シートを指定、無ければ作成する
2021年5月14日
特定のシート名を確認して無ければ作成する。
確認作成するシート名 = WS1NAME = “TestSH1”
・存在しない場合は作成する
・存在する場合は一度削除し再作成する。
|
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 44 45 |
Sub SheetCreate() 'シートを作成する '2021/05/14 '初期設定 Dim WB1 As Workbook 'このブックの宣言 Set WB1 = ThisWorkbook 'このブックを取得 Dim WS1 As Worksheet 'シートの宣言 Dim WS1NAME As String 'シート名の設定 WS1NAME = "TestSH1" 'シートの確認 Dim WSCHECK As Worksheet 'シートの存在確認用変数 Dim WSCFRAG As String '確認用フラッグ For Each WSCHECK In Worksheets '存在するシートを確認 If WSCHECK.Name = WS1NAME Then '設定シート名があれば WSCFRAG = "Yes" 'フラッグ="Yes" Else End If Next WSCHECK 'シートの作成と設定 If WSCFRAG = "" Then '設定シート名が無ければ Worksheets.Add after:=Worksheets(1) 'シートを2番目に作成 ActiveSheet.Name = WS1NAME 'シート名を設定シートにする Else '設定シートがある場合の処理 '設定シートを一度削除して作り直す Application.DisplayAlerts = False '削除確認のアラートをオフ Worksheets(WS1NAME).Delete '既存の設定シート名を削除 Application.DisplayAlerts = True 'アラートをオン Worksheets.Add after:=Worksheets(1) 'シートを2番目に作成 ActiveSheet.Name = WS1NAME 'シート名を設定シートにする End If Set WS1 = WB1.Worksheets(WS1NAME) '変数"WS1"を設定シートにする End Sub |