Как синхронизировать выпадающие списки на нескольких листах в Excel?

Предположим, у вас есть раскрывающиеся списки на нескольких листах рабочей книги, которые содержат одни и те же раскрывающиеся элементы. Теперь вы хотите синхронизировать раскрывающиеся списки на рабочих листах, чтобы при выборе элемента из раскрывающегося списка на одном рабочем листе раскрывающиеся списки на других рабочих листах автоматически синхронизировались с тем же выбором. В этой статье представлен код VBA, который поможет вам решить эту проблему.

Синхронизируйте раскрывающиеся списки на нескольких листах с кодом VBA

Синхронизируйте раскрывающиеся списки на нескольких листах с кодом VBA

Например, раскрывающиеся списки находятся на пяти рабочих листах с именами Лист1, Лист2, ..., Лист5, чтобы синхронизировать раскрывающиеся списки на других листах в соответствии с раскрывающимся выбором на Листе 1, примените следующий код VBA, чтобы сделать это.

1. Откройте Sheet1, щелкните правой кнопкой мыши вкладку листа и выберите Просмотреть код из контекстного меню.

2. в Microsoft Visual Basic для приложений окно, вставьте следующий код VBA в Лист1 (Код) окно.

Код VBA: синхронизировать раскрывающийся список на нескольких листах

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

Ноты:

3. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

Отныне при выборе элемента из выпадающего списка в Лист1, раскрывающиеся списки на указанных рабочих листах будут автоматически синхронизированы, чтобы иметь одинаковый выбор. См. приведенную ниже демонстрацию.

Демонстрация: синхронизация раскрывающихся списков на нескольких листах в Excel