PTT
Submit
Submit
選擇語言
正體中文
简体中文
PTT
Visual_Basic
[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/WNfgnpo
https://imgur.com/TKYhPZy
我用逐行執行判斷B4儲存格,B4為粉紅色底色仍判斷成功事實上任何顏色都會判斷OK = = 還是版本有差啊><
作者:
olycats
( )
2019-06-02 22:41:00
請問B4是原本就粉紅色,還是格式化條件後變成粉紅色的?最後一段 是針對儲存格本身的底色去判斷如果是格式化條件之後改變的顏色則無法判斷
作者:
sf4566373
(阿歐收啦)
2019-06-04 21:27:00
原來是格式化關係 = =
繼續閱讀
[VBA ] excel字串太長變成###...
aerolien
[VBA ] Excel的range().select的問題
HIRUMA
[VBA ] EXCEL VBA 篩選欄位後分頁或分檔案
sonic74768
[VBA ] 問題:讀取txt 某關鍵字下第n行的值
Nonplaner
[VBA ] 多欄位畫圖邏輯請教
zchien
Re: [VBA ] 請問如何殺掉自己開啟新版檔案?
tsongs
[VBA ] 請問如何殺掉自己開啟新版檔案?
yimean
[.NET] 新手發問 亂數且連續的抽樣(不同按鈕)
yunniekevin
請問關於QB45及PDS71
bl2086
[VBA ] 請問WebBrowser如何偵測到Click
tootsie
Links
booklink
Contact Us: admin [ a t ] ucptt.com