作者ricaro ( )
看板Visual_Basic
标题[VBA ] 设定格式化条件
时间Wed Jan 22 23:57:43 2014
请问各位
我的资料形式类似如下
C1 C2 C3 C4 C5 C6 . . . .. .. .
SPEC_L SPEC_H
R1 5 9 1 6 7 11
R2
R3
R4 6 11 2 8 10 15
R5
R6
.
.
.
大概就是每三列会重复一次
每一次的SPEC都不一样 然後 我希望在那一列之後的数值能跟SPEC_L&H比较
不在范围内的就变色
因为之後可能会在新增资料或是变更
所以希望能用巨集的形式去做
而不手动去改格式
我的程式如下
SPEC_L = Sheets("Summary Format").Cells(2 + 3 * i, 7).Value
SPEC_H = Sheets("Summary Format").Cells(2 + 3 * i, 8).Value
Sheets("Summary Format").Select
Cells(2 + 3 * i, 10 + Current_grade).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue,
Operator:=xlNotBetween, _
Formula1:="SPEC_L", Formula2:="SPEC_H"
^^^^^^ ^^^^^^
Selection.FormatConditions(1).Font.ColorIndex = 3
问题在我执行时 程式没办法接受SPEC_H&L ?
我也不确定是不是这个错误
因为我是先用录写 再借用它的程式
假如有更好的方式 也请各位不吝赐教
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 180.177.13.252