Jak synchronizovat rozevírací seznamy ve více listech v aplikaci Excel?

Předpokládejme, že máte rozevírací seznamy na několika listech v sešitu, které obsahují přesně stejné rozevírací položky. Nyní chcete synchronizovat rozevírací seznamy napříč listy tak, že jakmile vyberete položku z rozevíracího seznamu v jednom listu, rozevírací seznamy v ostatních listech se automaticky synchronizují se stejným výběrem. Tento článek poskytuje kód VBA, který vám pomůže tento problém vyřešit.

Synchronizujte rozevírací seznamy ve více listech s kódem VBA

Synchronizujte rozevírací seznamy ve více listech s kódem VBA

Například rozevírací seznamy jsou v pěti pojmenovaných listech List1, List2, ..., List5, Chcete-li synchronizovat rozevírací seznamy v jiných listech podle rozevíracího výběru v Listu1, použijte k tomu následující kód VBA.

1. Otevřete List1, klepněte pravým tlačítkem na záložku listu a vyberte Zobrazit kód z nabídky pravým tlačítkem myši.

2. V Microsoft Visual Basic pro aplikace okno, vložte následující kód VBA do List1 (kód) okno.

Kód VBA: Synchronizujte rozevírací seznam ve více listech

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

Poznámky:

3. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

Od této chvíle, když vyberete položku z rozevíracího seznamu v List1, rozevírací seznamy v určených listech budou automaticky synchronizovány, aby měly stejný výběr. Podívejte se na níže uvedené demo.

Demo: Synchronizace rozevíracích seznamů ve více listech v aplikaci Excel