セルに入力されている文字のフォント体を変更したいケースがあります。ExcelVBAで文字フォントを変更するにはFont.Nameプロパティを使用します。このフォントを変更する方法について紹介します。
構文
記述方法は以下の通りとなります。
Range(”[セル範囲]”).Font.Name = ”[フォント名]”
[説明]:
セルのフォントを変更するには
「Range(”[セル範囲]”).Font.Name = ”[フォント名]”」
と記述します。
[セル範囲] | フォントを変更したいセル範囲を記述します。 ※「”」(ダブルクォーテーション)で囲みます。 |
[フォント名] | 変更するフォント体を記述します。 ※「”」(ダブルクォーテーション)で囲みます。 |
※上記の設定は、以下のセルの書式設定画面のフォント名設定と同じ意味になります。
※設定するフォント名については、以下のExcelメニュー内にあるフォント箇所(赤枠)より選択し、コピー&貼り付けにて使用して下さい。
[記述例]:
Range("A1:B2").Font.Name = "MS P明朝"
使い方
使い方について具体的に説明します。
[プログラミング例]:
Sub サンプル()
Range("A1:B2").Font.Name = "MS P明朝"
MsgBox "フォント名を変更しました。"
End Sub
内容は、「A1セル~B2セルのフォント名を”MS P明朝”に変更し、最後にMsgBoxで”フォント名を変更しました。”のメッセージを表示して下さい。」との意味になります。
※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①A1セル~C3セルにデータが入力されており、その範囲を選択するとフォント名が「MS Pゴシック」である事がわかります。
②<実行>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
③結果は以下の様になります。A1セル~B2セルのフォント名が「MS P明朝」に変更され、MsgBoxで「フォント名を変更しました。」が表示されます。
[サンプル]:
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
セルのフォント名を変更する方法についての説明は以上です。
おわりに
今回はセルのフォント名の変更方法について説明しました。プログラミングをする上では頻繁に記述する内容となりますので、是非覚えておいて下さい。