Excel에서 ActiveX 목록 상자의 선택 항목을 저장하거나 유지하려면 어떻게 해야 하나요?

일부 목록 상자를 만들고 해당 목록 상자에서 선택 항목을 지정했지만, 통합 문서를 닫았다가 다시 열면 이러한 목록 상자의 모든 선택 항목이 사라집니다. 통합 문서를 닫았다가 다시 열 때마다 목록 상자에서 이전에 선택한 항목들을 유지하고 싶으신가요? 이 문서의 방법이 도움이 될 수 있습니다.

Excel에서 VBA 코드를 사용하여 ActiveX 목록 상자의 선택 항목 저장 또는 유지하기

Excel에서 VBA 코드를 사용하여 ActiveX 목록 상자의 선택 항목 저장 또는 유지하기

아래 VBA 코드는 Excel에서 ActiveX 목록 상자의 선택 항목을 저장하거나 유지하는 데 도움이 됩니다. 아래 단계를 따르세요.

1. 선택 항목을 유지하려는 ActiveX 목록 상자가 포함된 통합 문서에서 Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 왼쪽 창에 있는 ThisWorkbook을 두 번 클릭하여 ThisWorkbook 코드 창을 엽니다. 그런 다음 다음 VBA 코드를 코드 창에 복사합니다.

VBA 코드: Excel에서 ActiveX 목록 상자의 선택 항목 저장하기

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim I As Long
    Dim J As Long
    Dim K As Long
    Dim KK As Long
    Dim xSheet As Worksheet
    Dim xListBox As Object
    On Error GoTo Label
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    K = 0
    KK = 0
    If Not Sheets("ListBox Data") Is Nothing Then
        Sheets("ListBox Data").Delete
    End If
Label:
    Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "ListBox Data"
    Set xSheet = Sheets("ListBox Data")
    For I = 1 To Sheets.Count
        For Each xListBox In Sheets(I).OLEObjects
            If xListBox.Name Like "ListBox*" Then
                With xListBox.Object
                For J = 0 To .ListCount - 1
                    If .Selected(J) Then
                        xSheet.Range("A1").Offset(K, KK).Value = "True"
                    Else
                        xSheet.Range("A1").Offset(K, KK).Value = "False"
                    End If
                    K = K + 1
                Next
                End With
                K = 0
                KK = KK + 1
            End If
        Next
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()
    Dim I As Long
    Dim J As Long
    Dim KK As Long
    Dim xRg As Range
    Dim xCell As Range
    Dim xListBox As Object
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    KK = 0
    For I = 1 To Sheets.Count - 1
        For Each xListBox In Sheets(I).OLEObjects
            If xListBox.Name Like "ListBox*" Then
                With xListBox.Object
                    Set xRg = Intersect(Sheets("ListBox Data").Range("A1").Offset(0, KK).EntireColumn, Sheets("ListBox Data").UsedRange)
                    For J = 1 To .ListCount
                        Set xCell = xRg(J)
                        If xCell.Value = "True" Then
                            .Selected(J - 1) = True
                        End If
                    Next
                    KK = KK + 1
                End With
            End If
        Next
    Next
    Sheets("ListBox Data").Delete
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

3. Alt + Q 키를 눌러 Microsoft Visual Basic for Applications 창을 닫습니다.

4. 이제 통합 문서를 Excel 매크로 사용 가능 통합 문서로 저장해야 합니다. 파일 > 다른 이름으로 저장 > 찾아보기를 클릭하세요.

5. 다른 이름으로 저장 대화 상자에서 통합 문서를 저장할 폴더를 선택하고 필요에 따라 이름을 변경한 후, 저장 형식 드롭다운 목록에서 Excel 매크로 사용 가능 통합 문서를 선택하고 마지막으로 저장 버튼을 클릭합니다. 스크린샷 참조:

목록 상자를 업데이트할 때마다 통합 문서를 저장하세요. 그러면 통합 문서를 다시 열었을 때 이전에 선택한 모든 항목들이 목록 상자에 유지됩니다.

참고: 통합 문서를 저장할 때, “ListBox Data”라는 이름의 워크시트가 자동으로 모든 워크시트의 끝에 생성됩니다. 이 워크시트는 통합 문서가 닫힐 때 자동으로 사라지므로 무시해도 됩니다.