マクロを書くときには、処理の違うコードを字下げしたりして読みやすくなるように書きます。
オブジェクトに関する操作を複数指定するときは、Withステートメントなどを使ってまとめて書くとわかり易くなります。
コードを１行で記述できないとき は「半角スペース＋_(アンダースコア)」を使います。
Withステートメントで指示をまとめる
１つのオブジェクトに対して複数の指示をするときは、Withステートメントを使ってオブジェクトを簡単にすることができます。
■ Withステートメントを使わないとき
■ コード内を「Wクリック」で選択できます。
Sub サンプル0060()
<pre><code>Range("A1").Font.Name = "MS P ゴシック"
Range("A1").Font.Size = 16
Range("A1").Font.Color = RGB(255, 0, 0)
Range("A1").Font.Bold = True
Range("A1").Font.Italic = True
Range("A1").Font.Underline _
= xlUnderlineStyleDouble</code></pre>
End Sub
• Range(“A1”).Font.Name = “MS P ゴシック”
’セルA1のフォントを”MS P ゴシック”にします。
• Range(“A1”).Font.Size = 16
’フォントのサイズを「16」にします。
• Range(“A1”).Font.Color = RGB(255, 0, 0)
’フォントの色を「赤」にします。
• Range(“A1”).Font.Bold = True
’フォントを「太字」にします。
• Range(“A1”).Font.Italic = True
’フォントを「イタリック」にします。
• Range(“A1”).Font.Underline _
= xlUnderlineStyleDouble
’下線を二重下線にします。
■ Withステートメントを使うとき
Withステートメントを使うと「Range(“A1”).Font」を何度も書かなくて済みます。
■ コード内を「Wクリック」で選択できます。
Sub サンプル0061()
<pre><code>With Range("A1").Font
.Name = "MS P ゴシック"
.Size = 16
.Color = RGB(255, 0, 0)
.Bold = True
.Italic = True
.Underline = xlUnderlineStyleDouble
End With</code></pre>
End Sub
■ マクロの実行前
セルA1に「ABC」が入力されています。
■ マクロの実行結果
セルA1の「ABC」がマクロの仕様に変更されました。
以上で「Withステートメント」の説明を終わります。