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^)/

書式設定設定値
標準“G/標準”
数値“0_ “
通貨“\#,##0;\-#,##0”
会計“_ * #,##0_ ;_ * -#,##0_ ;_ * “-“_ ;_ @_ “
日付“yyyy/m/d”
時刻“[$-F400]h:mm:ss AM/PM”
パーセンテージ“0%”
分数“# ?/?”
指数“0.E+00”
文字列“@”

コメント

タイトルとURLをコピーしました