教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA セル操作】セルのフォント名(Font.Name)を変更する方法を教えて!

f:id:m_kbou:20210428091111p:plain

セルに入力されている文字のフォント体を変更したいケースがあります。ExcelVBAで文字フォントを変更するにはFont.Nameプロパティを使用します。このフォントを変更する方法について紹介します。

 

 

構文

記述方法は以下の通りとなります。

Range(”[セル範囲]”).Font.Name = ”[フォント名]”

[説明]:

セルのフォントサイズを変更するには「Range(”[セル範囲]”).Font.Name = ”[フォント名]”」と記述します。[セル範囲]にはフォント体を変更したいセル範囲を記述し、「”」(ダブルクォーテーション)で囲みます。Font.Nameの後の[フォント名]には指定するフォント体を記述し、「”」(ダブルクォーテーション)で囲みます。内容を纏めると、「[セル範囲]で指定したセル範囲のフォント体を[フォント名]で指定したフォント体に変更して下さい。」との意味になります。(※フォント名に設定するフォント体は、以下のExcelメニューのフォントよりコピーして使用して下さい。)

f:id:m_kbou:20210428091226p:plain

[記述例]:

Range("A1:B2").Font.Name = "MS P明朝"

 

使い方

使い方について具体的に説明していきます。

[プログラミング例]:

Sub サンプル()
  Range("A1:B2").Font.Name = "MS P明朝"
  MsgBox "フォント名を変更しました。"
End Sub

内容は、「A1セル~B2セルのフォント名を”MS P明朝”に変更し、最後にMsgBoxで”フォント名を変更しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210428091051p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①A1セル~C3セルにデータが入力されており、その範囲を選択するとフォント名が「MS Pゴシック」である事がわかります。

f:id:m_kbou:20210428091136p:plain

②<実行>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210428091153p:plain

③結果は以下の様になります。A1セル~B2セルのフォント名が「MS P明朝」に変更され、MsgBoxで「フォント名を変更しました。」が表示されます。

f:id:m_kbou:20210428091206p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

セルのフォント名を変更する方法についての説明は以上です。

 

おわりに

今回はセルのフォント名の変更方法について説明しました。プログラミングをする上では頻繁に記述する内容となりますので、是非覚えておいて下さい。