教えて!ExcelVBA!

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

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

f:id:m_kbou:20210502060528p:plain

文字列のフォントスタイルを変更するにはFont.FontStyleプロパティを使用します。フォントスタイルには「標準」「太字」「斜体」「太字+斜体」の4種類があります。このフォントスタイルを変更する方法について紹介します。

 

 

構文

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

Range(”[セル範囲]”).Font.FontStyle = ”[スタイル]”

[説明]:

セルのフォントスタイルを変更するには

 「Range(”[セル範囲]”).Font.FontStyle = ”[スタイル]”」

と記述します。

[セル範囲] フォントスタイルを変更したいセル範囲を記述します。
※「”」(ダブルクォーテーション)で囲みます。
[スタイル] 変更したいスタイルを記述します。
※スタイルの種類については、以下一覧を参考にして下さい。
スタイル 設定内容
標準 ”標準”
斜体 ”斜体”
太字 ”太字”
太字+斜体 "太字 斜体"

※上記の設定は、以下のセルの書式設定画面のスタイル設定と同じ意味になります。

f:id:m_kbou:20210815140939p:plain

[記述例]:

Range("A1").Font.FontStyle = "標準"
Range("A1").Font.FontStyle = "斜体"
Range("A1").Font.FontStyle = "太字"
Range("A1").Font.FontStyle = "太字 斜体"

 

使い方

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

フォントスタイルを「斜体」に変更する方法

フォントスタイルを斜体に変更する方法について説明します。

[プログラミング例]:

Sub 斜体()
  Range("A1").Font.FontStyle = "斜体"
  MsgBox "フォントスタイルを斜体にしました。"
End Sub

内容は、「A1セルのフォントスタイルを”斜体”に変更し、最後にMsgBoxで”フォントスタイルを斜体にしました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210502060038p:plain

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

[実行例]:

①A1セルには「おはようございます」の文字列が標準スタイルで入力されています。<斜体>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210502060107p:plain

②結果は以下の様になります。A1セルの文字列が斜体スタイルに変更され、MsgBoxで「フォントスタイルを斜体にしました。」が表示されます。

f:id:m_kbou:20210502060148p:plain

フォントスタイルを斜体に変更する方法についての説明は以上です。

 

フォントスタイルを「太字」に変更する方法

フォントスタイルを太字に変更する方法について説明します。

[プログラミング例]:

Sub 太字()
  Range("A1").Font.FontStyle = "太字"
  MsgBox "フォントスタイルを太字にしました。"
End Sub

内容は、「A1セルのフォントスタイルを”太字”に変更し、最後にMsgBoxで”フォントスタイルを太字にしました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210502061214p:plain

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

[実行例]:

①A1セルには「おはようございます」の文字列が標準スタイルで入力されています。<太字>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210502063029p:plain

②結果は以下の様になります。A1セルの文字列が太字スタイルに変更され、MsgBoxで「フォントスタイルを太字にしました。」が表示されます。

f:id:m_kbou:20210502061346p:plain

フォントスタイルを太字に変更する方法についての説明は以上です。

 

フォントスタイルを「太字+斜体」に変更する方法

フォントスタイルを太字+斜体に変更する方法について説明します。

[プログラミング例]:

Sub 太字と斜体()
  Range("A1").Font.FontStyle = "太字 斜体"
  MsgBox "フォントスタイルを太字+斜体にしました。"
End Sub

内容は、「A1セルのフォントスタイルを”太字+斜体”に変更し、最後にMsgBoxで”フォントスタイルを太字+斜体にしました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210502061851p:plain

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

[実行例]:

①A1セルには「おはようございます」の文字列が標準スタイルで入力されています。<太字+斜体>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210502063001p:plain

②結果は以下の様になります。A1セルの文字列が太字+斜体スタイルに変更され、MsgBoxで「フォントスタイルを太字+斜体にしました。」が表示されます。

f:id:m_kbou:20210502061919p:plain

フォントスタイルを太字+斜体に変更する方法についての説明は以上です。

 

フォントスタイルを「標準」に変更する方法

フォントスタイルを標準に変更する方法について説明します。

[プログラミング例]:

Sub 標準()
  Range("A1").Font.FontStyle = "標準"
  MsgBox "フォントスタイルを標準にしました。"
End Sub

内容は、「A1セルのフォントスタイルを”標準”に変更し、最後にMsgBoxで”フォントスタイルを標準にしました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210502062256p:plain

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

[実行例]:

①A1セルには「おはようございます」の文字列が太字+斜体スタイルで入力されています。<標準>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210502062531p:plain

②結果は以下の様になります。A1セルの文字列が標準スタイルに変更され、MsgBoxで「フォントスタイルを標準にしました。」が表示されます。

f:id:m_kbou:20210502062501p:plain

フォントスタイルを標準に変更する方法についての説明は以上です。

 

[サンプル]:

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

drive.google.com

 

おわりに

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