excelのVBAについて質問です。

Question

excelで
「C11が空白だったら、B11～F11の色を塗りつぶす」というマクロを組みたいのですが、

---

Sub 空白セルがある列を塗りつぶす()

Range("B11:F11"). _
SpecialCells(xlCellTypeBlanks). _
Interior.ColorIndex = 12

End Sub

---

上記のマクロを実行すると、例えば、空白がC11～E11にしかない時に、塗りつぶされるのはC11～E11のみです。

私が希望するマクロは組めるのでしょうか？教えて頂けないでしょうか。
よろしくお願いします。

Answer 1

Sub 空白セルがある列を塗りつぶす()

If Range("C11") = "" Then
Range("B11:F11").Interior.ColorIndex = 12
End If

End Sub

最初の要求をそのままマクロに起こすとこういうことになると思うのですが・・・

Comments

[ichijou_ayaka]

swordoneさんのマクロで無事にできました！！ありがとうございます！