특정 시트 이름을 무시하는 방법은 무엇입니까?

Question

아래의 코드는 사용자가 다른 워크 시트의 특정 데이터를 선택할 수 있도록하는 사용자 정의 폼의 콤보 상자입니다. 내 문제는, 그것은 또한 '요약'시트를 선택 가능한 옵션으로 보여줍니다. '요약'워크 시트를 제외한 목록 인덱스의 모든 워크 시트를 표시하려면 어떻게해야합니까?

Private Sub cmb_copycontact_Change() 
If cmb_copycontact.ListIndex <> -1 Then 

     With ActiveWorkbook.Sheets(cmb_copycontact.Value) 
      txt_MailAdd1.Value = .Range("B21").Value 
      txt_mailadd2.Value = .Range("B22").Value 
      txt_mailburb.Value = .Range("B23").Value 
      cmb_mailstate.Value = .Range("B24").Value 
      txt_pcode.Value = .Range("B25").Value 
      End With 

    End If 

End Sub 

Answer 1

UGP가 명시된대로 UserForm에서 ComboBox를 채우는 동안 요약 시트를 제외하십시오.

다음 코드를 사용자 정의 폼 초기화 코드에 통합하십시오.

Private Sub UserForm_Initialize() 
Dim ws As Worksheet 
For Each ws In Worksheets 
    If ws.Name <> "Summary" Then 
     Me.cmb_copycontact.AddItem ws.Name 
    End If 
Next ws 
End Sub