PeaceJetのブログ

金融系の社内エンジニアをやりながら、マーケティングやプランナーなども

フォントを統一する。【ExcelVBA・エクセルマクロ】

今回は、Excelの全てのシートに対して、
フォントを統一する方法をご紹介します。

ポイント

  1. For文を使わず、ForEach文を使用する。
  2. こうすることで、処理を高速化することができる。
Sub CharacterModify()
    
    Dim TargetSheets As Worksheet
    
    For Each TargetSheets In Worksheets
    
        With TargetSheets.Cells.Font

      .name = "Meiryo UI"    'フォント:Meiryo UI
            .Size = 11    'フォントサイズ:11

        End With
        
    Next TargetSheets
    
End Sub