Hur synkroniserar man rullgardinslistor i flera kalkylblad i Excel?

Anta att du har rullgardinslistor på flera kalkylblad i en arbetsbok som innehåller exakt samma rullgardinsobjekt. Nu vill du synkronisera rullgardinslistorna över kalkylblad så att när du väl väljer ett objekt från en rullgardinslista i ett kalkylblad, synkroniseras rullgardinslistorna i andra kalkylblad automatiskt med samma urval. Den här artikeln innehåller en VBA-kod som hjälper dig att lösa det här problemet.

Synkronisera rullgardinslistor i flera kalkylblad med VBA-kod

Synkronisera rullgardinslistor i flera kalkylblad med VBA-kod

Till exempel finns listorna i fem kalkylblad med namn Blad1, Blad2, ... Blad 5, för att synkronisera rullistorna i andra kalkylblad enligt rullgardinsvalet i Sheet1, använd följande VBA-kod för att få det gjort.

1. Öppna Blad1, högerklicka på arkfliken och välj Visa kod från högerklick-menyn.

2. I Microsoft Visual Basic för applikationer fönstret, klistra in följande VBA-kod i Blad1 (kod) fönster.

VBA-kod: Synkronisera listrutan i flera kalkylblad

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

Anmärkningar:

3. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.

Från och med nu, när du väljer ett objekt från rullgardinsmenyn i Blad 1, rullgardinslistorna i de angivna kalkylbladen synkroniseras automatiskt för att ha samma val. Se demon nedan.

Demo: Synkronisera rullgardinslistor i flera kalkylblad i Excel