[已解决]条件格式疑问

explist_

1. Sub Test()
   
2.     With Sheet1.[a1].Resize(2, 5).FormatConditions
   
3.         .Delete
   
4.         .Add xlExpression, , "=LEN($a$1)>0"
   
5.          With .Item(1).Borders
   
6.             .LineStyle = 1
   
7.             .Weight = 2
   
8.             .Color = RGB(255, 0, 0)    '此处提示出错
   
9.          End With
   
10.     End With
    
11. End Sub
    
12. 
    

复制代码

总是提示：无效的过程调用或参数
虽然有错误提示，但条件格式却正确添加
将.color属性改为.colorIndex属性却不会有提示，这是为什么？

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-11-7 11:52

你用的是什么版本的OFFICE？2016没问题的

跳转到最佳答案楼层

望帝春心

你用的是什么版本的OFFICE？2016没问题的