ブックに指定した名前のシートが存在するか判定する

ざっくり

アクティブブックの全てのシートの中に指定したシート名が無いか検索します。

コードサンプル

アクティブブックの中に「Result」という名前のシートが存在していた場合、マクロを終了します。

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

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」という名前のシートが存在していた場合、マクロを終了します。

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

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

ブックに指定した名前のシートが存在するか判定する

メッセージボックスのメッセージを改行する

ブックを保存する

ブックを開く