アクティブブックの全てのシートの中に指定したシート名が無いか検索します。
アクティブブックの中に「Result」という名前のシートが存在していた場合、マクロを終了します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
Sub 指定したシート名が存在しているか検索する() Dim shName As String shName = "Result" 'シート名を指定 If IsSheetNameSearth(shName) = True Then MsgBox "既にある" & shName & "シートを削除するか名前を変更して下さい。" _ & vbLf & "マクロを終了します。", , "終了" Exit Sub End If End Sub '+============================================================== '| ・概 要 :シートの中に指定のシート名がないか検索する '+============================================================== Function IsSheetNameSearth(shName) Dim i As Long Dim sh As Worksheet IsSheetNameSearth = False On Error GoTo Syserr For Each sh In Sheets 'ワークシート全てをみて If sh.Name = shName Then '指定のシートがあれば IsSheetNameSearth = True Exit Function End If i = i + 1 Next Exit Function 'システムエラー Syserr: MsgBox "エラー番号:" & Err.Number & vbLf & _ "エラーの種類:" & Err.Description & vbLf & _ "IsSheetNameSearth()のエラー" End End Function |
ブック名「book1.xlsm」の中に
「Result」という名前のシートが存在していた場合、マクロを終了します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
Sub 指定したシート名が存在しているか検索する2() Dim wb As Workbook Dim shName As String Set wb = Workbooks("Book1.xlsm") shName = "Result" 'シート名を指定 If IsSheetNameSearth2(wb, shName) = True Then MsgBox "既にある" & shName & "シートを削除するか名前を変更して下さい。" _ & vbLf & "マクロを終了します。", , "終了" Exit Sub End If End Sub '+============================================================== '| ・概 要 :シートの中に指定のシート名がないか検索する '+============================================================== Function IsSheetNameSearth2(wb As Workbook, shName As String) As Boolean Dim i As Long Dim sh As Worksheet IsSheetNameSearth2 = False On Error GoTo Syserr wb.Activate For Each sh In Sheets 'ワークシート全てをみて If sh.Name = shName Then '指定のシートがあれば IsSheetNameSearth2 = True Exit Function End If i = i + 1 Next Exit Function 'システムエラー Syserr: MsgBox "エラー番号:" & Err.Number & vbLf & _ "エラーの種類:" & Err.Description & vbLf & _ "IsSheetNameSearth2()のエラー" End End Function |