Hvordan synkroniseres rullelister i flere regneark i Excel?
Antag, at du har rullelister på flere regneark i en projektmappe, der indeholder nøjagtig de samme rullemenuer. Nu vil du synkronisere rullelisterne på tværs af regneark, så når du vælger et element fra en rulleliste i et regneark, synkroniseres rullelisterne i andre regneark automatisk med det samme valg. Denne artikel indeholder en VBA-kode, der hjælper dig med at løse dette problem.
Synkroniser rullelister i flere regneark med VBA-kode
Synkroniser rullelister i flere regneark med VBA-kode
For eksempel er rullelisterne i fem navngivne regneark Ark1, Ark2, ..., Ark 5, for at synkronisere rullelisterne i andre regneark i henhold til rullemenuen i Ark1, skal du anvende følgende VBA-kode for at få det gjort.
1. Åbn Ark1, højreklik på arkfanen og vælg Vis kode fra højreklikmenuen.
2. i Microsoft Visual Basic til applikationer vinduet, indsæt følgende VBA-kode i Ark1 (kode) vindue.
VBA-kode: Synkroniser rullelisten i flere regneark
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
Dim tSheet1 As Worksheet
Dim tRange As Range
Dim xRangeStr As String
On Error Resume Next
If Target.Count > 1 Then Exit Sub
xRangeStr = "A2:A11"
Set tRange = Intersect(Target, Range(xRangeStr))
If Not tRange Is Nothing Then
xRangeStr = tRange.Address
Application.EnableEvents = False
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
tSheet1.Range(xRangeStr).Value = Target.Value
Application.EnableEvents = True
End If
End Sub
Bemærkninger:
3. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når du vælger et element fra rullelisten i Ark 1, rullelisterne i de angivne regneark vil automatisk blive synkroniseret for at have det samme valg. Se nedenstående demo.
Demo: Synkroniser drop-down lister i flere regneark i Excel
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!





