Question

我已经有一段时间了，而且我不明白为什么它不起作用。如果我使用类似＆＃34; New＆＃34;这样的值，代码可用于选择工作表，但我无法使cString工作。

Sub SelectTabWithString()


    Dim cString As String
    Dim ws As Worksheet, flg As Boolean
    cString = Application.InputBox("Enter Characters")
    For Each ws In Sheets
        If LCase(ws.Name) Like cString Then
            ws.Select Not flg
            flg = True
        End If
    Next
End Sub

我有10张，6张蓝色，4张绿色。其中5个被命名为＆＃34; Blue1＆＃34;，＆＃34; Blue2＆＃34;等等。我输入＆＃34; blue＆＃34;在InputBox中。出于某种原因，在我输入＆＃34; blue＆＃34;之后，程序只会切换回VBA窗口。

Answer 1

如果您有工作表名称，例如＆＃34; Blue1＆＃34;，＆＃34; Blue2＆＃34;，＆＃34; Blue3＆＃34;，则当用户输入＆＃34;时，当前代码将起作用。蓝色*＆＃34;

如果您希望用户能够输入＆＃34; blue＆＃34;，那么您应该将If语句更改为：

If Instr(LCase(ws.Name), LCase(cString)) > 0 Then

使用用户输入的字符串选择Excel工作表

1 个答案: