Withステートメント

マクロを書くときには、処理の違うコードを字下げしたりして読みやすくなるように書きます。

オブジェクトに関する操作を複数指定するときは、Withステートメントなどを使ってまとめて書くとわかり易くなります。

コードを１行で記述できないとき　は「半角スペース＋_(アンダースコア)」を使います。

Withステートメントで指示をまとめる

１つのオブジェクトに対して複数の指示をするときは、Withステートメントを使ってオブジェクトを簡単にすることができます。

■　Withステートメントを使わないとき

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ステートメント」の説明を終わります。