エクセルVBAについて

質問

エクセルVBAについて

下記のようなマクロで、選択したセルの、列の背景色の切り替えを行いたいと思っています。
が、写真のように、塗りつぶしを行いたいセルが結合しているところと、
そうでないところがあり、列全体に、うまく塗りつぶしができません。

'列の背景色を変更

Cells.Interior.ColorIndex = xlNone

Dim i As Long

i = Target.Column

Columns(i).Interior.ColorIndex = 6
　　Columns(i + 1).Interior.ColorIndex = 6

また、選択するセルは、2行目で、2列が結合しています。

うまく、2列が結合しているセルにも、塗りつぶしを適用することは可能でしょうか？

また、できれば列全体の塗りつぶしでなく、行の範囲も指定できればと思っています。

写真では、2列が結合していない部分のみ、塗りつぶしが適用されています。

表の構成上、結合しているセルとそうでないセルの変更ができないため、困っています。

どうぞ、よろしくお願いいたします。

回答No.2

ebis · ベストアンサー

単純に
Dim i As Long
i = Target.Column
Range(Columns(i), Columns(i + 1)).Select
Selection.Interior.ColorIndex = 6
Target.Select
ではどうでしょう？

複数行の場合は３行目を
Range(Rows(i), Rows(i + 1)).Select
に変えます。

お礼

うまくいきました！
他の回答をくださった方も、ありがとうございました。

回答No.1

myRange

先日から色々やってますねぇ。。

結合セルの処理が間違っています。

●表の範囲を、Ｂ１～Ｐ２５、と仮定して以下の処理

（１）表の範囲内の任意のセルをクリックすると、
　　　列全体を塗りつぶさないで、表の範囲内の列を塗りつぶす

（２）表の範囲外のセルをクリックしたら無視する。

'-------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　Dim R As Range
　Dim myRange As Range

'■重要■表の範囲を指定

　Set myRange = Range("B1:P25")

'■表範囲以外をクリックしたら無視

　If Intersect(Target, myRange) Is Nothing Then Exit Sub

'■表範囲内の色をクリアー

　myRange.Interior.ColorIndex = xlNone

'■表範囲内の該当列色付け開始

　For Each R In myRange.Columns(1).Cells
　　With Intersect(myRange, Cells(R.Row, Target.Column).MergeArea.EntireColumn)
　　　　.Interior.ColorIndex = 6
　　End With
　Next R

End Sub
'-------------------------------------------------

それから結合セルが絡む質問をするときはその辺りを細かく提示した方がいいでしょう。
結合セルの処理はそれなりの処理をしないといけないので。
以上です。