如何用宏将参考成本列设置条件格式数值小于6，用黄色显示,请大虾帮忙，感谢！

dennyliu

如何用宏将参考成本列设置条件格式数值小于6，用黄色显示,请大虾帮忙，感谢！

zxsea_7426

供参考:

dennyliu

谢谢，运行完的确低于6的都变黄色了，但是没有设置成条件格式，这个时候如果将某个数改成6以下，他不会自动变黄色，大于6也不会自动变成默认颜色。希望能运行一下所选列设置成条件格式那种。

zxsea_7426

dennyliu 发表于 2023-3-13 13:48
谢谢，运行完的确低于6的都变黄色了，但是没有设置成条件格式，这个时候如果将某个数改成6以下，他不会自动 ...

用宏录制了一个条件格式

1. Private Sub Worksheet_Activate()
   
2. Call 条件格式变黄底色
   
3. End Sub
   
4. 
   
5. Private Sub Worksheet_Change(ByVal Target As Range)
   
6. If Target.Columns = 3 Then Call 条件格式变黄底色
   
7. End Sub
   
8. 
   
9. Sub 条件格式变黄底色()
   
10.     Columns("C:C").Select
    
11.     Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:="=6"
    
12.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    
13.     With Selection.FormatConditions(1).Interior
    
14.         .PatternColorIndex = xlAutomatic
    
15.         .Color = 65535
    
16.         .TintAndShade = 0
    
17.     End With
    
18.     Selection.FormatConditions(1).StopIfTrue = False
    
19. End Sub

复制代码

bxm78

录制宏看一下即可

dennyliu

bxm78 发表于 2023-3-13 14:14
录制宏看一下即可

录制遇到那一列有空白，就不能到最后一行了

bxm78

请看以下代码，我也是录制宏后修改的

dennyliu

zxsea_7426 发表于 2023-3-13 14:14
用宏录制了一个条件格式

可以了，谢谢您

dennyliu

bxm78 发表于 2023-3-13 14:55
请看以下代码，我也是录制宏后修改的

非常感谢！