如何忽略特定的 sheet 名称？

Question

我下面的代码，它是用户窗体上的组合框，允许用户select 来自其他工作sheet 的某些数据。我的问题是，它还将我的 'Summary' sheet 显示为 select 可用选项。如何让它显示列表索引中的所有作品sheet，不包括 'summary' 作品sheet?

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 所述，在用户窗体上填充组合框时排除摘要 Sheet。

将以下代码合并到您的用户窗体初始化事件代码中。

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

如何忽略特定的 sheet 名称？

How to ignore a specific sheet name?

excel

vba

worksheet