如何利用VBA来设置条件格式

WANT-T

这是我经常用的代码，
想要什么合适自已在代码里设置一下就好了

1. 
   
2. Public Sub 添加颜色标识(目标区域 As Range, 关键词 As String, ColorIndex As Long, Optional Is_Add As Boolean = False)
   
3. With 目标区域.FormatConditions
   
4. If Is_Add = False Then .Delete
   
5. With .Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:=关键词)
   
6. .Interior.ColorIndex = ColorIndex
   
7. With .Font
   
8. '.ColorIndex = ColorIndex
   
9. .TintAndShade = 0
   
10. End With
    
11. .StopIfTrue = False
    
12. End With
    
13. End With
    
14. End Sub
    

复制代码

等爱的誓言

3190496160 发表于 2022-11-11 08:17
目前打开文件自动添加填充色，也可以点击按钮填充颜色，
但是，看你的附件，完全可以做成单元格触发事件， ...

颜色更改的判断条件就是单元格的内容
单元格包含"已超期"则设成红色，
单元格包含“已到期”设置成黄色，
单元格包含“合格期”设置成绿色

等爱的誓言

3190496160 发表于 2022-11-11 08:16

如何设置成不用按钮触发

等爱的誓言

WANT-T 发表于 2022-11-11 09:32
这是我经常用的代码，
想要什么合适自已在代码里设置一下就好了

能否请大神帮忙弄一下，直接小白呀

3190496160

等爱的誓言 发表于 2022-11-11 20:00
如何设置成不用按钮触发

在10楼主就已经跟你说清楚了，其实，用按钮也不麻烦呀

等爱的誓言

3190496160 发表于 2022-11-11 20:17
在10楼主就已经跟你说清楚了，其实，用按钮也不麻烦呀

打开文件触发或者按钮触发。我的这样的工作表有很多。按钮就有点麻烦了

3190496160

等爱的誓言 发表于 2022-11-11 20:22
打开文件触发或者按钮触发。我的这样的工作表有很多。按钮就有点麻烦了

呵呵，论坛是做义务的，没有多少人有多好的耐性在一个问题上反复折腾的，特别是没有任何挑战性和技术性的问题，所以，一开始就要把自己的真实意图表述清楚，

等爱的誓言

3190496160 发表于 2022-11-11 21:28
呵呵，论坛是做义务的，没有多少人有多好的耐性在一个问题上反复折腾的，特别是没有任何挑战性和技术性的 ...

好的，非常感谢大神的帮助

等爱的誓言

已经实现我想要的功能了！




非常感谢以下几位大侠的热心帮助
本帖的
[color=rgb(153, 153, 153) !important]https://club.excelhome.net/?4343875
[color=rgb(153, 153, 153) !important]https://club.excelhome.net/?4482907
[color=rgb(153, 153, 153) !important]https://club.excelhome.net/?3314682
另一贴如何利用VBA实现列计算
https://club.excelhome.net/thread-1644847-1-1.html
(出处: ExcelHome技术论坛)
的
[color=rgb(153, 153, 153) !important]https://club.excelhome.net/?4482907
[color=rgb(153, 153, 153) !important]https://club.excelhome.net/?4487461
现在将附件上传，唯一还需要解决的是把代码应用到除sheet1的所有工作表

Learner2022

录制宏都是事件宏 不是触发宏（应该是这个名字我突然有点忘了emmm）