关于多列批量设置条件格式

yxyujjjj

大佬们，我的表格有很多列，每列有固定两行是条件值，其他行都是具体数值，我想求助，有没有快捷方式，批量设置条件格式，每列数值在条件1和条件2的区间值呈现绿色，不在区间值的呈现红色，非常感谢！

user湫

这样的效果吗？

user湫

1. Sub text()
   
2.     Dim RgeMax, columnNumberLetter, column_maximum
   
3.     RgeMax = Range("a65536").End(xlUp).Row
   
4.     column_maximum = Range("zz1").End(xlToLeft).Column
   
5.     columnNumberLetter = ColNumToColLetter(Range("zz1").End(xlToLeft).Column)
   
6.     Excel.Application.ScreenUpdating = False
   
7.     For i = 1 To column_maximum - 1
   
8.     '条件一必须是最小值
   
9.         i2 = Range("b2:" & columnNumberLetter & "2").Columns(i)
   
10.         i3 = Range("b3:" & columnNumberLetter & "3").Columns(i)
    
11.         Call FormatG(Range("b4:" & columnNumberLetter & RgeMax).Columns(i), i2, "-16752384", "13561798", xlBetween, True, i3)
    
12.         Call FormatG(Range("b4:" & columnNumberLetter & RgeMax).Columns(i), i2, "-16383844", 13551615, xlLess, False, "")
    
13.         Call FormatG(Range("b4:" & columnNumberLetter & RgeMax).Columns(i), i3, "-16383844", 13551615, xlGreater, False, "")
    
14.     Next
    
15.     Excel.Application.ScreenUpdating = True
    
16.     [a1].Select
    
17. End Sub
    
18. Function ColNumToColLetter(colNum As Long) As String
    
19.     Dim iAlpha As Long
    
20.     Dim iRemainder As Long
    
21.     iAlpha = Int(colNum / 27)
    
22.     iRemainder = colNum - (iAlpha * 26)
    
23.     If iAlpha > 0 Then
    
24.         ColNumToColLetter = Chr(iAlpha + 64)
    
25.     End If
    
26.     If iRemainder > 0 Then
    
27.         ColNumToColLetter = ColNumToColLetter & Chr(iRemainder + 64)
    
28.     End If
    
29. End Function
    
30. Sub FormatG(reg As Range, pdValue1, Font_C As String, Rge_C As String, OperatorV As String, TF As Boolean, pdValue2)
    
31.     reg.Select
    
32.     If TF = False Then
    
33.         Selection.FormatConditions.Add Type:=xlCellValue, Operator:=OperatorV, _
    
34.             Formula1:="=" & pdValue1
    
35.     Else
    
36.         Selection.FormatConditions.Add Type:=xlCellValue, Operator:=OperatorV, _
    
37.             Formula1:="=" & pdValue1, Formula2:="=" & pdValue2
    
38.     End If
    
39.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    
40.     With Selection.FormatConditions(1).Font
    
41.         .Color = Font_C
    
42.     End With
    
43.     With Selection.FormatConditions(1).Interior
    
44.         .PatternColorIndex = xlAutomatic
    
45.         .Color = Rge_C
    
46.     End With
    
47.     Selection.FormatConditions(1).StopIfTrue = False
    
48. End Sub
    
49. 
    

复制代码

将之前的代码拼凑了一下 大概是这样

yxyujjjj

user湫 发表于 2023-2-13 23:19
这样的效果吗？

哇，是的，谢谢大佬

sandays

选中b4:h15，活动单元格B4，条件格式：
绿色:=AND(B4>=B$2,B4<=B$3)
红色：=OR(B4<B$2,B4>B$3)
共两条条件格式。

表哥佩奇

可以直接设置

表哥佩奇

文件发给你

表哥佩奇

哦  你说的是批量设置   

yxyujjjj

sandays 发表于 2023-2-14 06:32
选中b4:h15，活动单元格B4，条件格式：
绿色:=AND(B4>=B$2,B4

我试了，这个方法可以，非常感谢

yxyujjjj

表哥佩奇 发表于 2023-2-14 10:53
哦  你说的是批量设置

是的，需要批量，非常感谢你的回复