PTT數位生活區 / Visual_Basic

[VBA ]求救!要如何判斷儲存格底色?

看板Visual_Basic作者 (阿歐收啦)時間5年前 (2019/05/31 22:15), 編輯推噓2(2推 0噓 7→)
留言9則, 3人參與, 5年前最新討論串1/1
版本:Microsoft Office 2007 本人為剛接觸VBA新手 目前使用錄製巨集 錄製<格式化條件> 程式如下 Range("B4").Select Range(Selection, Selection.End(xlDown)).Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _ Formula1:="=100", Formula2:="=50" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 5296274 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False 上面表示選取範圍儲存格內數字介於50~100，底色變為淺綠色 這邊有個疑問想請教! 如何下判斷，當範圍內皆為淺綠色跳出MSGBOX顯示"OK" 以下為自己寫的判斷式(下列皆無法有效判斷) If Range("B4").Interior.Color = RGB(146, 208, 80) Then MsgBox "OK" End If -------無法判斷 If Range("B4").Interior.Color = 5296274 Then MsgBox "OK" End If -------任何顏色都會顯示OK 這邊先是測試單一儲存格能否做判斷，最終是要判斷範圍內所有儲存格 PS:淺綠色RGB(146,208,80) -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.241.172.206 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1559312106.A.84E.html
→
06/01 07:56, 5年前 , 1F
你寫的兩段是可以判斷 沒問題阿
06/01 07:56, 1F
→
06/01 09:49, 5年前 , 2F
06/01 09:49, 2F
→
06/01 09:50, 5年前 , 3F
06/01 09:50, 3F
→
06/01 09:51, 5年前 , 4F
我用逐行執行判斷B4儲存格，B4為粉紅色底色仍判斷成功
06/01 09:51, 4F
→
06/01 09:52, 5年前 , 5F
事實上任何顏色都會判斷OK = = 還是版本有差啊><
06/01 09:52, 5F
推
06/02 22:41, 5年前 , 6F
請問B4是原本就粉紅色，還是格式化條件後變成粉紅色的？
06/02 22:41, 6F
推
06/02 22:48, 5年前 , 7F
最後一段 是針對儲存格本身的底色去判斷
06/02 22:48, 7F
→
06/02 22:48, 5年前 , 8F
如果是格式化條件之後改變的顏色則無法判斷
06/02 22:48, 8F
→
06/04 21:27, 5年前 , 9F
原來是格式化關係 = =
06/04 21:27, 9F
‣ 更多 sf4566373 的文章
文章代碼(AID): #1SyJRgXE (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 sf4566373 的文章
文章代碼(AID): #1SyJRgXE (Visual_Basic)