vba - 如何将特定工作表的列表添加到 ComboBox VBA 的列表中

Question

我找到了一种将工作簿中的所有工作表添加到 UserForm 上的 ComboBox 列表中的方法，这是使用以下代码完成的

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In Worksheets
        cmbSheet.AddItem ws.Name
    Next ws
End Sub

我的问题是我只需要添加一些特定的工作表而不是全部。例如，我的用户将选择特定的工作表，然后单击“继续”按钮应该在所选工作表上结束以继续他/她的任务。我的工作簿包含几个工作表，其中一些用于输出数据(报告)，一些工作表包含所谓的模板，我希望我的用户(只有那些)能够从我上面谈到的 ComboBox 中进行选择。

你们能帮帮我吗？

Answer 1

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In Worksheets
        if ws.Name like "*Template" then cmbSheet.AddItem ws.Name
    Next ws
End Sub