EXCEL VBA区域填充

A1内容与区域内容相同时,填充区域1内容为紫色,并填充区域1为黄色
如果:A1内容与区域内容"不"相同时,还原区域1为无色
区域1 (H17:N26)

if 区域内容=A1 then
range(“H17:N26”).Font.Color = 29
range(“H17:N26”).Interior.ColorIndex =6
else
range(“H17:N26”).Interior.ColorIndex =xlnone
end if追问

    可以填充整个区域,但是相同内容的单元无法填充其它颜色

    当内容与A1不同时,无法还原区域1单元格为无色

追答

'假如E1是区域内容的单元格
Sub a()
If Range("E1") = Range("A1") Then
Range("H17:N26").Font.Color = vbMagenta
Range("H17:N26").Interior.ColorIndex = 6
Else
Range("H17:N26").Interior.ColorIndex = xlNone
End If
End Sub

我试过可以的,没什么问题,你再试试。

温馨提示:答案为网友推荐,仅供参考
相似回答