关于VBA条件格式问题求助

亲、现在我半价

打算做一个数据色阶，单元格第三行起且行数为偶数行，A:D列单元格输入内容则填充红色

代码：

1. Private Sub CommandButton1_Click()
   
2.     Cells.FormatConditions.Delete
   
3.     With Columns("$A:$D")
   
4.         .FormatConditions.Add _
   
5.             Type:=xlExpression, _
   
6.             Formula1:="=AND(ROW()>2,MOD(ROW(),2),OR($A1<>"""",$B1<>"""",$C1<>"""",$D1<>""""))", _
   
7.             Formula2:=Empty
   
8.         .FormatConditions(.FormatConditions.Count).SetFirstPriority
   
9.         With .FormatConditions(1)
   
10.             .Interior.Color = vbRed
    
11.             .StopIfTrue = False
    
12.             .SetLastPriority
    
13.         End With
    
14.     End With
    
15. End Sub

复制代码

效果似乎不理想，初步原因：下图所示，VBA条件格式设置后$A1会变成$A1048575



附件：
测试.zip (53.29 KB, 下载次数: 2)

2023-4-17 19:21 上传

点击文件名下载附件

求解决方法

xunanming

excel2016测试没有出现你描述的问题.
把这MOD(ROW(),2)改为MOD(ROW(),2)=0.否则就是奇数行填充颜色了.

亲、现在我半价

xunanming 发表于 2023-4-18 00:33
excel2016测试没有出现你描述的问题.
把这MOD(ROW(),2)改为MOD(ROW(),2)=0.否则就是奇数行填充颜色了.

不行，还是会变，色阶无法达到预期效果，用的是WPS版本

WANT-T

1. Public Sub 添加色阶(目标区域 As Range, Optional Is_Add As Boolean = False)
   
2.     With 目标区域.FormatConditions
   
3.         If Is_Add = False Then .Delete
   
4.         With .AddColorScale(ColorScaleType:=3)
   
5.             With .ColorScaleCriteria(1)
   
6.                 .Type = xlConditionValueLowestValue
   
7.                 With .FormatColor
   
8.                     .Color = 7039480
   
9.                 .TintAndShade = 0
   
10.                 End With
    
11.             End With
    
12.             With .ColorScaleCriteria(2)
    
13.                 .Type = xlConditionValuePercentile
    
14.                 .Value = 50
    
15.                 With .FormatColor
    
16.                     .Color = 16776444
    
17.                 .TintAndShade = 0
    
18.                 End With
    
19.             End With
    
20.             With .ColorScaleCriteria(3)
    
21.                 .Type = xlConditionValueHighestValue
    
22.                 With .FormatColor
    
23.                     .Color = 8109667
    
24.                     .TintAndShade = 0
    
25.                 End With
    
26.             End With
    
27.         End With
    
28.     End With
    
29. End Sub

复制代码