如何忽略特定的工作表名称？

我的代码如下，它是一个用户窗体上的combobox，允许用户从其他工作表中select某些数据。 我的问题是，它也显示我的“摘要”表作为一个可select的选项。 如何获取它显示列表索引中的所有工作表，不包括“摘要”工作表？

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所述，在用户窗体上填充combobox时排除汇总表。

将以下代码合并到UserForm初始化事件代码中。

 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