Excel VBA 新規ワークシートを追加する

VBAを使ってワークシートを新規に追加する

VBAの例

下の例は新規ワークシートをワークシートの一番後ろに追加して書式設定を変更します。
ちなみに書式設定は、セル幅を「4.5」の等幅間隔にして、表示形式を文字列にフォント設定を「Meiryo UI」に変更します。

Sub 新規WorkSheet追加して()
    '### ワークシートの変数 ###
    Dim mySheet As Worksheet
    
    '### シートの一番うしろに新規ワークシートの追加 ###
    Set mySheet = _
        Worksheets().Add _
        (After:=Worksheets(Worksheets.Count))
    
    '### 以下、書式設定変更 ###
    With mySheet
        Cells.Select

    '### セル幅を等間隔・表示形式を文字列に変更 ###
        Selection.ColumnWidth = 4.5
        Selection.NumberFormatLocal = "@"

    '### フォント設定を変更 ###
        With Selection.Font
            .Name = "Meiryo UI"
        End With

    End With
End Sub

表示形式の一覧（抜粋）

「NumberFormatLocal」の設定値を列挙します＼(^o^)／