【Excel VBA】新規でブックを作成する方法

 やりたいこと

新規ブックを作成してセルの書式を設定する

マクロ実行後に以下のような新規のブックを作成して、

データの書式の設定までを行う方法について説明します。

コードと解説は以下の通りです。
【VBA コード】

Sub ブック作成()
    Dim 新規ブック As Workbook
    Dim 新規シート As Worksheet
    
    '空白のブックを新規作成して変数「新規ブック」へ代入
    Set 新規ブック = Workbooks.Add
    
    '新規作成したブックの1番目のシートの参照を変数「新規シート」へ代入
    Set 新規シート = 新規ブック.Worksheets(1)
    
    新規シート.Name = "新規追加シート"
    With 新規シート
        With .Cells(1, 1)
            .Value = "請求書番号"
            
            '太字に設定
            .Font.Bold = True
            
            '列幅設定
            .ColumnWidth = 11
            
        End With
        With .Cells(1, 2)
            .Value = "請求先"
            .Font.Bold = True
            .ColumnWidth = 25
        End With
        With .Cells(1, 3)
            .Value = "請求日"
            .Font.Bold = True
            .ColumnWidth = 11
        End With
        With .Cells(1, 4)
            .Value = "請求金額"
            .Font.Bold = True
            .ColumnWidth = 10
        End With
        
     'ウィンドウ枠を固定する位置を選択
    .Cells(2, 1).Select
    
    'ウィンドウ枠の固定
    ActiveWindow.FreezePanes = True
    
    End With
End Sub

ポイント

Addメソッド

Addメソッドはコレクションに新しいオブジェクトを追加するメソッドです。

今回はWorkbooksにAddメソッドを使用することで新しいブックを作成しました。

WorksheetsにAddメソッドを使用するとブックに新しいワークシートを追加することができます。

Set 新規ブック = Workbooks.Add

Fontオブジェクト

セルのフォントサイズや色を変更する時は、Fontオブジェクトのプロパティで設定することができます。

Rangeオブジェクト

セルやセル範囲を操作する際はRangeオブジェクトを使用します。

ColumnWidthプロパティ

セルの列幅を設定する時はColumnWidthプロパティを使用します。

ColumnWidthプロパティは現在の設定値を確認することもできます。

'B列の列幅を表示
MsgBox Range("B:B").ColumnWidth

 ウィンドウ枠の固定

「ウィンドウ枠の固定」は対象となるオブジェクトがWorkbookではなくWindowになります。

ウィンドウ枠の固定以外にもウィンドウの分割やズームなどを設定することができます。

ActiveWindow → 選択されているブックのウィンドウ

FreezePanes → ウィンドウ枠の固定を設定

ActiveWindow.FreezePanes = True

 ひとこと

Addメソッドは追加するというイメージが強いですが、

新規でブック作成する時などにも活躍します。

追加した後にはActiveになることも覚えておくと便利です!(^^)!

できるシリーズはフルカラーでかなり細かいところまで画像を使って解説してあるのでオススメです！

リンク

リンク