GBKEE

回復 7# leefing

1. Sub Ex()
   
2.     'With Range("F2:F" & Rows.Count).SpecialCells(xlCellTypeVisible).FormatConditions
   
3.       '上式  為F欄中有資料數值的儲存格: 設定格式化條件  可節省系統資源.
   
4.     With Range("F2:F" & Rows.Count).FormatConditions     '整列 設定格式化條件 消耗系統 資源較大
   
5.       .Delete                                   '刪除全部設定格式化條件
   
6.       .Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=RC[11]" '   '條件一
   
7.       'Add 的 參數可錄製得到,
   
8.       'RC[11]:  為[欄名列號表示法]  工作表指令->工具->選項->一般 勾選 [欄名列號表示法]
   
9.       .Item(1).Interior.ColorIndex = 35          '圖樣顏色
   
10.       .Item(1).Font.ColorIndex = 10               '文字顏色
    
11.       .Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=RC[11]"           '條件二
    
12.       .Item(2).Interior.ColorIndex = 38
    
13.       .Item(2).Font.ColorIndex = 13
    
14.      End With
    
15. End Sub

複製代碼

leefing

回復 11# GBKEE


    謝謝G大的回覆
現在已經可以使用了，但是我有一個疑問，
就是為什麼不是 RC17 而是RC[11]呢？
昨收價不是在17嗎？

GBKEE

回復 12# leefing
如列號 R=5    RC17= $Q$5     ->每一個儲存格格式的公式皆為 固定在  $Q$5
[相對位置]      RC[11]-> F5  右移11欄  在相對的位置
如 F10      儲存格格式公式會  相對在  $Q$10
如 F11      儲存格格式公式會  相對在  $Q$11

leefing

回復 13# GBKEE


    謝謝G大，這樣我懂了!!!