Vba 如何忽略特定的图纸名称？

下面是我的代码，它是userform上的一个组合框，允许用户从其他工作表中选择某些数据。我的问题是，它还将我的“摘要”表显示为可选选项。如何在列表索引中显示除“摘要”工作表之外的所有工作表

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

Private Sub cmb\u copycontact\u Change（）
如果cmb_copycontact.ListIndex为-1，则
使用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
以
如果结束
端接头

如UGP所述，在UserForm上填充组合框时，排除汇总表

将以下代码合并到UserForm Initialize事件代码中

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

Private子用户表单_Initialize（）
将ws设置为工作表
对于工作表中的每个ws
如果ws.Name是“Summary”，那么
Me.cmb\u copycontact.AddItem ws.Name
如果结束
下一个ws
端接头

修改代码，填充组合框，但不添加。你添加的代码对你的问题没有帮助。我真是个白痴！我完全忘记了Userform初始化事件。这是漫长的一天，很抱歉浪费您的时间，但非常感谢您的回复@杰森，不客气。很高兴您的问题得到解决。：）