「フォント」の操作を最速理解するエクセルVBA

エクセルVBAでセルの書式設定のフォント操作を行います。
全てFontプロパティの関連ですが、フォント名・スタイル・サイズ・下線・色・文字飾りの設定についてです。

こんにちは　じゅんぱ店長　(＠junpa33)　です。

エクセルVBAの操作の中での基本中の基本　セルの書式設定。その中で今回は「セルのフォント」についてです。

セルの文字表示の設定では欠かせない設定項目です。非常に重要ですので、しっかり設定できる様にしておきましょう。

セルの書式設定

コンテンツ

セルの書式設定「フォント」の操作とはこの部分

書類作成でフォントの選択が、書類の品位に大きくかかわっているのは事実です。

書類内容的に非常に有益なものであっても、フォント種の選択から来る見栄えの違いで、受け手側の扱いが大きく変わるものです。

大げさではなく、それだけ重要な設定項目だということです。

目次へ戻る

「フォント」の要件を決めるそれぞれの設定をVBAで知る

セルの書式設定フォントタブの設定項目は、

になっています。

このフォントタブで設定される項目すべてに関わっている、VBAコードは「Fontプロパティ」です。

Fontプロパティ

構文

Rangeオブジェクト.Font

Fontプロパティは戻り値として「Fontオブジェクト」を返します。

ですので、更にその「Fontオブジェクト」に対して各種の設定を行える「関連プロパティ」をつなぐことが出来ます。

フォント名

「フォント名」の設定は書類作成でも、書類の顔と言える部分でもあり、必須の習得事項です。

Fontプロパティが返すFontオブジェクトに対して、「Nameプロパティ」をつなげます。

構文

Rangeオブジェクト.Font.Name = “フォント名”

フォント名は全角の名称になっていますので、名称中に半角が混じっていると設定できません。

フォント名（サンプル）

フォント名	入力用フォント名
MS Pゴシック	ＭＳＰゴシック
MS P明朝	ＭＳＰ明朝
MS UI Gothic	MS UI Gothic
メイリオ	メイリオ
游ゴシック	游ゴシック

＜Example＞

ActiveSheet.Cells.Font.Name = “ＭＳＰ明朝”

現在表示しているシート全体のフォントを「MS P明朝」に設定します。

スタイル

「スタイル」の設定は、標準・斜体・太字・太字斜体　を指定することが出来ます。

設定するプロパティは「FontStyleプロパティ」です。

構文

Rangeオブジェクト.Font.FontStyle = “定数”

FontStyleの定数	説明
“標準”	デフォルト
Bold　又は　”太字”	太字
Italic　又は　”斜体”	斜体
Bold Italic　又は　”太字斜体”	太字斜体
False	設定の解除

＜Example＞

（太字斜体を設定）

Range(“B3”).Font.FontStyle = “太字斜体”

（太字斜体を設定解除）

Range(“B3”).Font.FontStyle = False

このスタイルの設定には、同様のことが可能な別のプロパティも存在します。

「Boldプロパティ」と「Italicプロパティ」です。

（太字設定）　Range(“B3”).Font.Bold = True

（斜体設定）　Range(“B3”).Font.Italic = True

サイズ

「サイズ」の設定は、文字の大きさを設定します。通常は11～12pt.の設定になっています。

設定するプロパティは「Sizeプロパティ」です。

文字を強調したいということで大きく設定すると、セルに入りきらないことがあります。その場合は、

AutoFitプロパティで、入力文字がすべて表示されるようにしましょう。

構文

Rangeオブジェクト.Font.Size = 数値（文字サイズ）

＜Example＞

Range(“B1”).Font.Size = 13

セルB1の文字サイズを13ポイントに設定します。

セル幅自動調節のコード例

With Range(“B5”)

　　.Font.Size = 25

　　.EntireColumn.AutoFit

End With

セルB5の文字サイズを25pt.設定しセル幅を調節

下線

「下線」の設定は、なし・下線・二重下線・下線（会計）・二重下線（会計）　を指定することが出来ます。

設定するプロパティは「Underlineプロパティ」です。

構文

Rangeオブジェクト.Font.Underline = “定数”

Underlineの定数	説明
xlUnderlineStyleNone	なし
xlUnderlineStyleSingle	下線
xlUnderlineStyleDouble	二重下線
xlUnderlineStyleSingleAccounting	下線（会計）
xlUnderlineStyleDoubleAccounting	二重下線（会計）

＜Example＞

Range(“B3”).Font.Underline = xlUnderlineStyleDouble

色

「色」の設定はフォントカラーの設定になりますが、

色を指定するプロパティは「Colorプロパティ」か「ColorIndexプロパティ」を利用します。

Colorプロパティ

Colorプロパティは、色の指定方法として色の「定数」または「RGB値」での指定となります。

構文

Rangeオブジェクト.Font.Color = 色定数

または　

Rangeオブジェクト.Font.Color = RGB(R値, B値, G値)

指定色	定数	RGB(R値, B値, G値)	カラー値
黒	vbBlack	0,0,0	0
赤	vbRed	255,0,0	255
緑	vbGreen	0,255,0	65280
黄	vbYellow	255,255,0	65535
青	vbBlue	0,0,255	16711680
マゼンダ	vbMagenta	255,0,255	16711935
シアン	vbCyan	0,255,255	16776960
白	vbWhite	255,255,255	16777215