VBA Select 多個工作表宏

Question

我花了一些時間尋找答案，但沒有運氣。

我正在嘗試創建一個宏，該宏將根據來自輸入框的用戶輸入 select 多個工作表，並將其與 LIKE 運算符組合到一次 select 所有工作表。 這些工作表中的每一個都有不同的名稱，但都以一個 5 位數字開頭，例如 20001，我可以將其用作選擇標准。

如果我一次對 5 位數的值和 select 多張紙進行硬編碼但無法使其與輸入框值一起使用，我可以讓它工作。 我嘗試了輸入輸入框值/變量的不同迭代，但沒有任何運氣。

以下示例帶有輸入框：

Public Sub SixPayTest()
    Dim Bunumber As String
    Dim ws As Worksheet

    Bunumber = Application.InputBox("Enter BU #")

    For Each ws In ActiveWorkbook.Sheets
       If ws.Name Like bunumber Then ws.Select (False)
    Next ws
End Sub

下面的這個工作示例將 select 我需要的所有工作表，但沒有輸入框：

Public Sub SixPayTest()
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Sheets
       If ws.Name Like "*20001*" Then ws.Select (False)
    Next ws
End Sub

Answer 1

您需要為類似值添加通配符。 例如：

If ws.Name Like "*" & bunumber & "*" Then
    ....

更清楚的是在類似條件之前更新值。

bunumber="*" & bunumber & "*"

此外，如果要查找名稱以 bnumber 開頭的工作表，請不要在字符串中添加第一個星號“*”。