如何将包含特定字符串的工作表名称添加到用户窗体组合框

Question

我正在尝试编写在当前excel中循环浏览所有工作表的代码，并且如果工作表名称包含单词“ Pack”，则会将其添加到我的用户窗体组合框中。 我的代码没有产生错误，但是组合框似乎为空。

Private Sub UserForm_Initialize()

Dim wS As Worksheet

PackComboBox.Font.Size = 12

    For Each wS In Sheets
        If LCase(wS.Name) Like "*Pack*" Then
            With PackComboBox
            .AddItem wS
            End With
        Else
        End If
        Next wS

    End Sub

任何帮助，将不胜感激，谢谢！

Answer 1

您在LCase比较中有一个大写字母：

如果LCase（wS.Name）像“ Pack ”，则

如果LCase（wS.Name）像“ pack ”，则

让With子句包围For Each循环会更有效。 这样， PackComboBox只需解析1次。

With PackComboBox
    For Each wS In Sheets
        If LCase(wS.Name) Like "*pack*" Then
            .AddItem wS.Name
        Else

        End If
    Next wS
End With