複数選択で次のマクロを実行できますか？

質問

http://www.relief.jp/itnote/archives/001406.php

上のサイト通りにすると、一列だけ指定した場合に、希望の動作をします。しかも、色が塗られるだけでなく、条件付き書式が使えるので文字を太くしたり斜体にしたり応用が効きます。このように条件付き書式が利用できる前提で、複数選択した時にも同じように動作するようにするマクロを組むことは可能でしょうか？

回答No.1

tom04 · ベストアンサー

こんばんは！
あまりスマートではないと思いますが・・・

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてセルを選択してみてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k, L As Long
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
i = Selection(1).Row
k = Selection(Selection.Count).Row
j = Selection(1).Column
L = Selection(Selection.Count).Column
Rows(i & ":" & k).Interior.ColorIndex = 36
Range(Columns(j), Columns(L)).Interior.ColorIndex = 36
Application.ScreenUpdating = True
End Sub

※　塗りつぶしの色は薄い黄色にしています。
※　＞条件付き書式が利用できる前提で・・・
とありますが、マクロの場合は条件付書式の方が優先されます。
逆に言えば条件付書式で色設定等が行われていてもマクロで色を変更することはできません。

参考になりますかね？m(_ _)m

お礼

ご回答ありがとうございますm(__)m
やはり条件付を設定するのは難しいですよね（汗）
でもばっちりできたのでよかったです。
感謝いたします♪