With~End Withステートメント

Withステートメント
Withステートメント

リンクユニット


マクロ講座2回-2 マクロの中身は?

マクロ講座2回は、マクロの中身を知るということで、「Visual Basic Editor(VBE)」を開いてコードを見ています。

このページは、マクロ講座2回からの続きです。
(サンプルファイルは、こちらから マクロ講座2回サンプルデータ

コードの意味

(6)こんどは、コードの意味です。
Sub Macro2()
' Macro1 の解説
'
    With Selection.Interior  'Withステートメント
        .Pattern = xlSolid '塗りつぶし(網かけ無し)
        .PatternColorIndex = xlAutomatic 'パターン色をxlAutomatic にする
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0 'PatternTintAndShadeプロパティ
    End With 'Withステートメントの終わり
End Sub
    
(7)プログラムの中に
  With オブジェクト名
       処理1
       処理2 
  End With     
がありますが、これは、With~End Withステートメントといいます。

同じオブジェクトに対して複数の処理を実行するときに使う方法です。
「Selection.Interior」とは「選択対象の内部」という意味です。
背景の塗りつぶしには、色の他にパターンもあるので、自動的に、 セルの色だけを指定すると、網掛けなしという指定が入るのです。
おもしろいですね。
不要な部分を削除したコードになります。

Sub Macro3()
    With Selection.Interior 
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.799981688894314
    End With
End Sub

具体的な設定をセルの書式設定ダイアログで確認

簡単なコードでしたが、具体的な設定をセルの書式設定ダイアログで確認しましょう。
セルの書式設定ダイアログの塗りつぶしタブをクリックすると以下のような画面になります。
新しいマクロの記録
マクロのコードでは、次の部分と対応します。
新しいマクロの記録
マクロ講座2回はこれで終了です。
お疲れ様でした。
おすすめコンテンツ