Excel에서 여러 워크시트의 드롭다운 목록을 어떻게 동기화합니까?

통합 문서 내 여러 워크시트에 동일한 드롭다운 항목을 포함하는 드롭다운 목록이 있다고 가정해 보겠습니다. 이제 한 워크시트의 드롭다운 목록에서 항목을 선택하면 다른 워크시트의 드롭다운 목록도 자동으로 동일한 선택으로 동기화되도록 하려고 합니다. 이 기사는 이 문제를 해결하기 위해 VBA 코드를 제공합니다.

VBA 코드로 여러 워크시트의 드롭다운 목록 동기화하기

VBA 코드로 여러 워크시트의 드롭다운 목록 동기화하기

예를 들어, 드롭다운 목록이 Sheet1, Sheet2, ..., Sheet5라는 이름의 다섯 개의 워크시트에 있다고 가정하겠습니다. Sheet1에서 드롭다운 선택에 따라 다른 워크시트의 드롭다운 목록을 동기화하려면 다음 VBA 코드를 적용하세요.

1. Sheet1을 열고 시트 탭을 마우스 오른쪽 버튼으로 클릭한 후 바로가기 메뉴에서 코드 보기(View Code)를 선택합니다.

2. Microsoft Visual Basic for Applications 창에서 다음 VBA 코드를 Sheet1 (Code) 창에 붙여넣습니다.

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. Alt + Q 키를 눌러 Microsoft Visual Basic for Applications 창을 닫습니다.

이제부터 Sheet1에서 드롭다운 목록에서 항목을 선택하면 지정된 워크시트의 드롭다운 목록이 자동으로 동일한 선택으로 동기화됩니다. 아래 데모를 참조하세요.

데모: Excel에서 여러 워크시트의 드롭다운 목록 동기화하기