Excelですべてのフォントとフォントサイズを統一するマクロ

Excelですべてのフォントとフォントサイズを統一するマクロ

マクロをアドインとして登録する手順

Excelを便利に！アドインの作成

マクロ

すべてのシートに対してフォントを[Meiryo UI]に、フォントサイズを[9pt]に変更する

Sub フォント変更()
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 全てのワークシートに適用
    For Each ws In ThisWorkbook.Sheets
        ws.Cells.Font.Name = "Meiryo UI"
        ws.Cells.Font.Size = 9
    Next ws
    
    MsgBox "すべてのフォントを変更しました!", vbInformation, "完了"
End Sub

開いているアクティブなシートにのみ適用する

Sub フォント変更()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 現在アクティブなシートを取得
    
    ws.Cells.Font.Name = "Meiryo UI"
    ws.Cells.Font.Size = 9
    
    MsgBox "アクティブなシートのフォントを変更しました!", vbInformation, "完了"
End Sub