Question

您好我需要一些帮助，我可以调整我的搜索宏并选择一个工作表＆＃34; sheet9＆＃34;并继续宏......

有时候工作表中没有创建工作表

所以在这里我需要有关它应该如何的语法的帮助？

''''''''''''''''''' example not valid macro!! ''''''''''''''''''''''
Search worksheet "sheet9" in active workbook 
if "sheet9" not found then create.worksheet"sheet9"
ELSE 
sheets("sheet9").select

希望有意义

START
搜索工作表＆＃34; sheet9＆＃34;
IF工作表＆＃34; sheet9＆＃34;没找到
然后创建工作表＆＃34; sheet9＆＃34;
ELSE选择工作表＆＃34; sheet9＆＃34;如果找到了
END

Answer 1

你可以搜索工作表然后决定做什么，或者你可以尝试选择它，如果有错误则创建它：

Sub Sheet9()
    On Error GoTo Create
    Worksheets("Sheet9").Select
    Exit Sub
Create:
    Worksheets.Add.Name = "Sheet9"
End Sub

Answer 2

以下是如何查找然后创建或选择工作表的示例

Dim ws As Worksheet
Dim bFound As Boolean
bFound = False
    For Each ws In ActiveWorkbook.Sheets
        If ws.Name = "sheet9" Then
            bFound = True
            Exit For
        End If
    Next ws

    If bFound Then
        Sheets("sheet9").Select
    Else
        Set ws = ActiveWorkbook.Worksheets.Add
        ws.Name = "sheet9"
        ws.Select
    End If

如果那么ELSE声明excel vba宏

2 个答案: