12
返回列表 上一主題 發帖

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

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-5 17:38 | 只看該作者

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

如題
那麼判斷式是   成交價>昨收價為紅色
                             成交價<昨收價為綠色
如果很多格要一起做同樣的事情，該如何解決呢？
收藏 分享

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

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 
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兔年全勤獎章
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 
10#
發表於 2012-2-7 02:33 | 只看該作者
回復 8# register313


    我把VBA貼回excel檔，結果沒反應 ，是因為我的是連DDE的嗎？
我下載你的檔案按  有用，  但是到別張sheet就沒反應了

TOP

leefing

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


    哇，謝謝R大，整個就是很簡潔

我以為還要宣告一堆。這樣就可以應用很多地方了!

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
8#
發表於 2012-2-6 23:54 | 只看該作者
回復 7# leefing
  1. Sub QQ()
  2. For R = 2 To [A65536].End(xlUp).Row
  3.   If Cells(R, "F") < Cells(R, "Q") Then
  4.      Cells(R, "F").Interior.ColorIndex = 35
  5.   ElseIf Cells(R, "F") > Cells(R, "Q") Then
  6.      Cells(R, "F").Interior.ColorIndex = 38
  7.   Else: Cells(R, "F").Interior.ColorIndex = xlNone
  8.   End If
  9. Next R
  10. End Sub
複製代碼
看盤1.rar (10.46 KB)

TOP

leefing

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


    看盤1.rar (8.24 KB)
檔案上傳了，那個條件格式目前我是用手動的，但是覺得有點麻煩
畢竟目前東西少少的

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-2-6 09:47 | 只看該作者
回復 3# leefing
上傳檔案看看

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
12
返回列表 上一主題