４、VBAによるマクロの作成（基礎編）

４−９、セルの書式

セルの書式

セルの書式には、フォントのサイズ、書体、色や、文字の表示位置、セルそのもののサイズなどがあり、それぞれマクロでの変更が可能です。

例１０）

※「Example1」〜「Example8」の続きです。

各書式を変更します。

Sub Example10()
　　Range("A1:E3").Font.Bold = True
　　Range("B2:E3").Font.Size = 18
　　Range("A2:A3").Select
　　With Selection
　　　　.Font.Size = 14
　　　　.Font.ColorIndex = 50
　　　　.HorizontalAlignment = xlCenter
　　End With
　　Range("B1:E1").Select
　　With Selection
　　　　.Font.ColorIndex = 5
　　　　.HorizontalAlignment = xlDistributed
　　　　.VerticalAlignment = xlCenter
　　　　.ColumnWidth = 7
　　　　.RowHeight =20
　　End With
End Sub

記述後、「マクロの実行」から「Example10」を実行してください。

【このコードの解説】

これはA1とE3に囲まれたセル範囲の文字のスタイルを太字に設定するという命令です。スタイルの詳しい設定に関してはこのページの下の方に示してあります。

これはB2とE3に囲まれたセル範囲の文字のサイズを１８ポイントに変更するという命令です。単位はポイントでサイズを直接数字で指定します。

Range("A2:A3").Select
With Selection
　　.Font.Size = 14
　　.Font.ColorIndex = 50
　　.HorizontalAlignment = xlCenter
End With

「With Selection」の部分は「選択範囲に対して」という意味で、この「With」と「End With」の間に書いたすべての命令がその選択箇所に対して実行されます。
上の例はA2からA3に囲まれた範囲に対して、「サイズの変更」「文字の色の変更」「表示位置の配置」の３つを行うものです。
また、変更する命令を記述する際、ピリオド（．）から始めることに注意して下さい。

さて、変更の命令についてですが・・・
◎「サイズの変更」は前述の通りです。

◎「文字の色の変更」は

　　.Font.ColorIndex = 50

と記述します。これは、選択範囲のフォントの色を色番号50の色に変更するという意味です。主な色番号（ColorIndex）の一覧をこのページの下の方に示してあります。

◎「表示位置の配置」は

　　.HorizontalAlignment = xlCenter

と記述します。「Horizontal」の部分は「水平」、「Alignment」の部分は「並べる」という意味で、水平方向、つまり横位置の配置を表わします。この値を「xlCenter」にすると、セルの中央に配置されます。
また、垂直方向、つまり縦位置の配置は

　　.VerticalAlignment = xlCenter

という形で記述します。
詳しい表示位置の配置については、このページの下の方に示してあります。

ここでは選択範囲に「文字色の変更」「横位置・縦位置の配置」「セルのサイズ変更」を実行しています。

　　.ColumnWidth = 7

この記述がセルの幅を変更します。単位はポイントで、数字で直接指定します。

　　.RowHeight =20

この記述はセルの高さを変更します。こちらも単位はポイントで、数字で直接指定します。

書式設定の詳細

【文字のスタイル】

文字のスタイルには、「太字」「斜体」「下線」がありそれぞれ以下のような記述になります。

スタイル

記述

値

効果

太字
 Bold True 太字にする
False 太字を解除

斜体
 Italic True 斜体にする
False 斜体を解除

下線
 Underline xlUnderlineStyleSingle 下線をひく
xlUnderlineStyleDouble 二重下線をひく
xlUnderlineStyleNone 下線を解除

例）
◎セルA1の文字の太字を解除
　Range("A1").Font.Bold = False
◎セルA1の文字を斜体に設定
　Range("A1").Font.Italic = True
◎セルA1の文字に下線をひく
　Range("A1").Font.Underline = xlUnderlineStyleSingle

【表示位置の設定】

文字をセルの中のどの位置に配置するかを設定します。
横位置、縦位置それぞれに設定します。

方向

記述

値

効果

横位置
 HolizontalAlignment xlLeft 左詰め
xlCenter 中央揃え
xlRight 右詰め
xlDistributed 均等割り付け

縦位置
 VerticalAlignment xlTop 上詰め
xlCenter 中央揃え
xlBottom 下詰め
xlDistributed 均等割り付け

例）
◎セルA1の文字の横位置の配置を均等割り付けにします。
　Range("A1").HorizontalAlignment = xlDistributed
◎セルA1の文字の縦位置の配置を上詰めにします。
　Range("A1").VertixalAlignment = xlTop

【カラーインデックス】

カラーインデックス（色番号）の主なもの（一部）を載せておきます。

番号

色

番号

色

１

黒

９

茶

２

白

１０

緑

３

赤

１１

紺色

４

明るい緑

１２

おうど色

５

青

１３

紫

６

黄色

１４

濃い緑

７

マゼンダ

１５

灰色

８

シアン

１６

濃い灰色