12
返回列表 上一主題 發帖

請問如何一次變更多個儲存格的條件格式

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2012-2-7 08:22 | 只看該作者
回復 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
複製代碼

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
12#
發表於 2012-2-7 16:07 | 只看該作者
回復 11# GBKEE


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
13#
發表於 2012-2-7 16:26 | 只看該作者
回復 12# leefing
如列號 R=5    RC17= $Q$5     ->每一個儲存格格式的公式皆為 固定在  $Q$5
[相對位置]      RC[11]-> F5  右移11欄  在相對的位置
如 F10      儲存格格式公式會  相對在  $Q$10
如 F11      儲存格格式公式會  相對在  $Q$11

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
14#
發表於 2012-2-8 17:35 | 只看該作者
回復 13# GBKEE


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

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
12
返回列表 上一主題