Question

我的代码如下，它是userform上的一个组合框，允许用户从其他工作表中选择某些数据。我的问题是，它还显示了我的总结＆＃39;表格作为可选择的选项。如何让它显示列表索引中的所有工作表，不包括＆＃39;摘要＆＃39;工作表？

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时排除摘要表。

将以下代码合并到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

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

1 个答案: