www.5213.net > ExCEl VBA 将有颜色的单元格 前后两个单元个加上不同颜色

ExCEl VBA 将有颜色的单元格 前后两个单元个加上不同颜色

Sub 颜色()Dim I%For I = 5 To 100If Cells(I, "D").Interior.ColorIndex = 6 ThenRange(Cells(I, "B"), Cells(I, "c")).Interior.ColorIndex = 3Range(Cells(I, "E"), Cells(I, "F")).Interior.ColorIndex = 10End IfNextEnd Sub

用 格式-》条件格式

选中B列,格式-条件格式,设置条件为大于A1(注意默认$A$1改为A1),格式为红色

楼主:你好,对于你这个问题有个前提条件:如果你的excel版本是2003版,那么你只能用系统预设的56色.用vba代码实现的其他填充色会被转换为和这56色最接近的一种.如果你的excel版本是2007及以上,那么单元格填充色几乎不受限制,

如你的数据在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

查找里就可以设置单元格格式;vba定位更方便:可以使用for语句循环,然后根据单元格格式处理,比如:dim c as range for each c in selection If c.Interior.Color = vbYellow Then '这里是填充颜色 .End If next

作用:比较两个单元格内部的内容,并把不同的字(中英文、数字、符号等都有)用红色标示出来(不同处长短未知)坐等高手啊~~

sub xx() n = [r65536].end(3).row if n 评论0 0 0

公式是无法识别颜色的,你可以使用VBA自定义识别颜色的函数,然后就可以了.

将A1的填充颜色设置为无 Range("A1").Interior.Pattern = xlNone录制宏就可以查看代码了,不需要问吧

网站地图

All rights reserved Powered by www.5213.net

copyright ©right 2010-2021。
www.5213.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com