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

作者: sf4566373 (阿歐收啦)   2019-05-31 22:15:04
版本: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
作者: noworneverev (小朋友)   2019-06-01 07:56:00
你寫的兩段是可以判斷 沒問題阿
作者: sf4566373 (阿歐收啦)   2019-06-01 09:49:00
https://imgur.com/WNfgnpohttps://imgur.com/TKYhPZy我用逐行執行判斷B4儲存格,B4為粉紅色底色仍判斷成功事實上任何顏色都會判斷OK = = 還是版本有差啊><
作者: olycats ( )   2019-06-02 22:41:00
請問B4是原本就粉紅色,還是格式化條件後變成粉紅色的?最後一段 是針對儲存格本身的底色去判斷如果是格式化條件之後改變的顏色則無法判斷
作者: sf4566373 (阿歐收啦)   2019-06-04 21:27:00
原來是格式化關係 = =

Links booklink

Contact Us: admin [ a t ] ucptt.com