Excel VBA リファレンス

Option Explicit

'このプロシージャから実行してください。
Sub main()
  '現在のフォントを取得する
  With Worksheets("Sheet1")
    Debug.Print ("現在のフォントは" & Cells(1, 1).Font.Name)
  End With
  
  '現在のフォントを設定する
  With Worksheets("Sheet1")
    Cells(1, 1).Font.Name = "ＭＳ 明朝"
    Cells(1, 1).Value = "Excel VBA"
    
    Cells(2, 1).Font.Name = "ＭＳ Ｐゴシック"
    Cells(2, 1).Value = "Excel VBA"
    
    Cells(3, 1).Font.Name = "MS Hei"
    Cells(3, 1).Value = "Excel VBA"
    
    Cells(4, 1).Font.Name = "Arial"
    Cells(4, 1).Value = "Excel VBA"
  End With

  '現在のフォントを取得する
  With Worksheets("Sheet1")
    Debug.Print ("現在のフォントは" & Cells(1, 1).Font.Name)
  End With
End Sub

フォント操作 / 関数・ステートメント索引（Ｆ）