Excel VBA フォントを変更する(Withステートメント)

指定した範囲のフォントを変更します。

プログラムの完了前など、見た目を整えるために使用することがあります。

ここでは「ＭＳ ゴシック」にフォントを指定しています。

 

 

 

Sub test()

 

    '範囲指定

    Worksheets(1).Activate 'Sheet1をアクティブにする

    Range("A1").Select 'セル選択

    ' Range("A1:A3").Select '範囲選択

    ' Cells.Select '全セル選択

 

    With Selection.Font

        .Name = "ＭＳ ゴシック"

    End With

 

End Sub