Excelで複数のワークシートのドロップダウンリストを同期する方法は?

まったく同じドロップダウン項目を含むワークブックの複数のワークシートにドロップダウン リストがあるとします。 ここで、ワークシート間でドロップダウン リストを同期して、XNUMX つのワークシートのドロップダウン リストから項目を選択すると、他のワークシートのドロップダウン リストが自動的に同じ選択内容に同期されるようにします。 この記事では、この問題の解決に役立つ VBA コードを提供します。

複数のワークシートのドロップダウン リストを VBA コードと同期する

複数のワークシートのドロップダウン リストを VBA コードと同期する

たとえば、ドロップダウン リストは、次の名前の XNUMX つのワークシートにあります。 シート1、シート2、 ···、 シート5、 Sheet1 のドロップダウン選択に従って他のワークシートのドロップダウン リストを同期するには、次の VBA コードを適用してください。

1. Sheet1 を開き、シート タブを右クリックして選択します。 コードを表示 右クリックメニューから選択します。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウで、次の VBA コードを Sheet1 (コード) 窓。

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 で複数のワークシートのドロップダウン リストを同期する