シートの追加

新規シートの追加
①シート名を入力
②シートの追加ボタンを押下

指定したシート名かつセルの書式設定が文字列の新しいシートが作成されます。
※ボタンを自作してください。VBAにコピペ、ボタンのクリックイベントの紐づけで使用可能になります。

■■■■↓ソースコード↓■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

' シート名
Private Const CL_SHEETNAME = "A2"

'------------------------------
' シート追加ボタン
'------------------------------
Private Sub btnAddSheet_Click()

' 新しいシートを作成
Call newAddSheet

End Sub

'------------------------------
' シート名を指定して新しいシートを追加
'------------------------------
Private Sub newAddSheet()

Dim sheetName As String
sheetName = Range(CL_SHEETNAME).Value

' シート名未入力チェック
If IsEmpty(sheetName) Then

MsgBox "シート名を入力して下さい。"

' シート重複チェック
ElseIf IsExistWs(sheetName) Then

MsgBox "すでに存在するシート名です。"

Else
' 新規シートの作成
Worksheets.Add
ActiveSheet.Name = sheetName

' シートを文字列書式へ変更
Call sheetStr

End If

End Sub

'------------------------------
' シートを文字列書式へ変更
'------------------------------
Private Sub sheetStr()

ActiveSheet.Cells.Select
Selection.NumberFormatLocal = "@"

End Sub

'------------------------------
' 空白NULLチェック
'------------------------------
Private Function IsEmpty(str As String) As Boolean

If str = "" Or str = Null Then
IsEmpty = True
Else
IsEmpty = False
End If

End Function

'------------------------------
' シート名重複チェック
'------------------------------
Private Function IsExistWs(newSheetName As String) As Boolean

Dim ws As Worksheet

IsExistWs = False

For Each ws In Worksheets

If ws.Name = newSheetName Then
IsExistWs = True
End If

Next ws

End Function

■■■■↑ソースコード↑■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■