Excelマクロで行全体のフォントを変更する方法

日付:

 


Excelマクロで行全体のフォントを変更する方法

はじめに

　Excelマクロを使用して、行全体のフォントを一括で変更する方法を解説します。特定の行に適用したいフォントを選択し、マクロを実行することで、簡単にフォントを変更できます。

手順

  1. Excelファイルを開く:

    • Excelファイルを開いて、フォントを変更したい行を選択します。

  2. マクロを追加する:

    • 「開発」タブをクリックして、Visual Basic for Applications（VBA）エディタを開きます。
    • 新しいモジュールを挿入し、以下のマクロを追加します。
Sub ChangeFontToYuGothicBoldForCellRow()
    Dim selectedCell As Range
    Dim dataRange As Range
    Dim cell As Range
    
    ' 選択されているセルを取得
    Set selectedCell = Selection.Cells(1)
    
    ' データのある範囲を取得
    Set dataRange = Intersect(selectedCell.EntireRow, ActiveSheet.UsedRange)
    
    ' データのある各セルのフォントを遊ゴシックの太文字に変更
    For Each cell In dataRange
        cell.Font.Name = "Yu Gothic"
        cell.Font.Bold = True
    Next cell
End Sub
  1. マクロを実行する:
    • VBAエディタで作成したマクロを保存して閉じます。
    • Excelファイルに戻り、選択した行のセルでマクロを実行します。

おわりに

　この方法を使えば、Excelマクロを活用して行全体のフォントを簡単に変更できます。ぜひお試しください！