是否可以檢查牀單名稱是否在附近？

Question

我想知道是否有可能檢查特定的牀單是否可用。如果它在附近，它會繼續執行其餘的代碼。如果不在附近，它會添加到表單中。

我想到了它，但它給了我錯誤。如果你知道某事，請分享一些信息！謝謝！

sub macro1() 
If sheets("Test") = False Then 
Sheets.Add.Name = "Test" 
End If 
'Run my code 
End Sub 

Answer 1

是這樣的？

Sub Sample() 
    Dim ws As Worksheet 

    On Error Resume Next 
    Set ws = Sheets("Test") 
    On Error GoTo 0 

    If ws Is Nothing Then 
     Set ws = Sheets.Add 
     ws.Name = "Test" 
    End If 

    '~~> Run your code 
End Sub 

Answer 2

另一種方法...創建 功能 - 接受一個工作簿對象，你以後和 的工作表的名稱 - 如果表是在工作簿中找到，返回TRU

Function SheetExists(oWorkbook As Workbook, sSheetname As String) 

    Dim oWs As Worksheet 
    For Each oWs In oWorkbook.Worksheets 
     If oWs.Name = sSheetname Then 
      SheetExists = True 
      Exit Function 
     End If 
    Next 

End Function 

Sub TestSheetExists() 
    If SheetExists(ActiveWorkbook, "Bob") Then 
     MsgBox "Found it" 
    Else 
     MsgBox "No joy" 
    End If 
End Sub