EXCEL中如何用VBA将某个单元格填充颜色(高亮显示)?
方法一
如你的数据在A列,代码如下。
sub aa ()
for x =1 to range("A65536").end(xlup).row'建立循环
if cells(x,1)=6 then'判断单元格值
cells(x,1).interior.colorIndex = 3'单元格值等于6时,该单元格填充红色
end if
next x
end sub
方法二:
简单一点,假设数据在A1~A10,取6这个值
sub xxx()
for i=1 to 10
if cells(i,1)=6 then cells(i,1).interior.colorindex=3
next i
end sub
方法三:
如果你的Excel版本是2003版,那么你只能用系统预设的56色。用VBA代码实现的其他填充色会被转换为和这56色最接近的一种。
如果你的Excel版本是2007及以上,那么单元格填充色几乎不受限制,你完全可以通过单元格填充的命令实现自定义颜色填充,支持RGB、HSL两种模式,无需借助VBA。
如果使用VBA,代码如下:
赞 (0)