[已解决]去掉用VBA定义的条件格式的“如果为真则停止”

xyjxd

条件格式1.rar (6.39 KB, 下载次数: 18)

2012-12-12 10:27 上传

点击文件名下载附件

我用VBA定义了一个条件格式，但生成的条件格式会自运勾选“如果为真则停止”，请教如何修改VBA代码来实现不勾选“如果为真则停止”。

手工去掉勾选的我会用，在此仅求教如何改VBA代码来实现这一功能。

1. Private Sub 格式()
   
2. Dim H, RNG
   
3. H = WorksheetFunction.Max(Range("A:A")) '3 最大一列表头
   
4. Set RNG = ActiveSheet.Range("$1:$1048576")
   
5. ActiveSheet.Range("D1").Select
   
6. With RNG
   
7. .FormatConditions.Delete
   
8. '以下为坚向格式
   
9. .FormatConditions.Add Type:=xlExpression, Formula1:= _
   
10. "=A1=""A"""
    
11. .FormatConditions(1).Font.Bold = True
    
12. .FormatConditions(1).Borders.LineStyle = xlContinuous '边框
    
13. End With
    
14. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-12 10:43

1. Private Sub 格式()
   
2.     Dim H, RNG
   
3.     H = WorksheetFunction.Max(Range("A:A")) '3 最大一列表头
   
4.     Set RNG = ActiveSheet.Range("$1:$1048576")
   
5.     ActiveSheet.Range("D1").Select
   
6.     With RNG
   
7.       .FormatConditions.Delete
   
8.     '以下为坚向格式
   
9.       .FormatConditions.Add Type:=xlExpression, Formula1:= _
   
10.       "=A1=""A"""
    
11.       .FormatConditions(1).Font.Bold = True
    
12.       .FormatConditions(1).Borders.LineStyle = xlContinuous '边框
    
13.       .FormatConditions(1).StopIfTrue = False
    
14.     End With
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub 格式()
   
2.     Dim H, RNG
   
3.     H = WorksheetFunction.Max(Range("A:A")) '3 最大一列表头
   
4.     Set RNG = ActiveSheet.Range("$1:$1048576")
   
5.     ActiveSheet.Range("D1").Select
   
6.     With RNG
   
7.       .FormatConditions.Delete
   
8.     '以下为坚向格式
   
9.       .FormatConditions.Add Type:=xlExpression, Formula1:= _
   
10.       "=A1=""A"""
    
11.       .FormatConditions(1).Font.Bold = True
    
12.       .FormatConditions(1).Borders.LineStyle = xlContinuous '边框
    
13.       .FormatConditions(1).StopIfTrue = False
    
14.     End With
    
15. End Sub
    

复制代码

hwc2ycy

1. .FormatConditions(1).StopIfTrue = False

复制代码

这句是你要的，我录宏录来的，

xyjxd

hwc2ycy 发表于 2012-12-12 10:43
这句是你要的，我录宏录来的，

问题已解决，非常感谢。
你是怎么录制的宏，我用录制宏的方法去没成功。

hwc2ycy

xyjxd

hwc2ycy 发表于 2012-12-12 11:06

现在明白了，再次感谢。

感谢版主，我也是在找个这个功能，也是宏录制找不到宏。。。看了版主的GIF图片，才发现自己少点了一下表格，导致后来的动作没有宏。
再次表示感谢。