[VBA ] 設定格式化條件

作者: ricaro ( )   2014-01-22 23:57:43
請問各位
我的資料形式類似如下
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 ?
我也不確定是不是這個錯誤
因為我是先用錄寫 再借用它的程式
假如有更好的方式 也請各位不吝賜教
感謝

Links booklink

Contact Us: admin [ a t ] ucptt.com