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
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools for Excel, og oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Office Tab Giver fanebladsgrænseflade til Office og gør dit arbejde meget nemmere
- 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!







