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,代码如下:
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2305938578@qq.com 举报,一经查实,本站将立刻删除。本文网址:https://www.excelwordppt.com/word-excel-ppt/24972.html