在EXCEL中如何判斷顏色取值？(VBA)

[TPBUNNY]

在A1輸入值，在B1設格式化條件：如果A1>50時，B1變成紅色，當A1輸入60，ENTER或右移儲存格後，B1變成紅色時出現對話框MSGBOX ("大於50")，請問這段VBA如何寫？

[ICLA]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 2).Interior.ColorIndex = 3 Then MsgBox "RED"
End Sub

[ICLA]

請問如何在B1設定當A1>50時將B1設定為紅色？

[TPBUNNY]

在B1設 格式>>設定格式化條件>>公式為 =A1>50, 圖樣設為紅色
PS. 本想貼個圖上來，可是不會貼，能教一下嗎？謝謝！

[TPBUNNY]

發現一個奇怪的問題，B1的紅色如果是用油漆桶給的，則ICLA的VBA可用，但若是經由格式化條件將它變成紅色，就無效！???????能解決嗎？

[leonchou]

最初由 TPBUNNY 發表
PS. 本想貼個圖上來，可是不會貼，能教一下嗎？謝謝！

方法一.
圖放在網頁空間, 直接在回覆文章打 [ img ] 圖片網址 [/img].
如果在[回覆主題]的頁面, 亦可利用 [貼圖] 按鈕.

方法二.
由自己的PC將圖上傳到這裡. 參考下圖.
注意:
1.圖片(檔案)大小有限制. (為了節省主機空間)
2.需在[回覆主題]的頁面才有上傳的選項, 用"快速回覆"則不行.

[leonchou]

最初由 TPBUNNY 發表
發現一個奇怪的問題，B1的紅色如果是用油漆桶給的，則ICLA的VBA可用，但若是經由格式化條件將它變成紅色，就無效！???????能解決嗎？

Range.Interior 可以判斷到實際的顏色,
但經由格式化條件改變的顏色並非實際的顏色.

既然是由格式化條件 A1>50 來的, 應可從"A1值改變"著手,
think about it.

[TPBUNNY]

明暸做法了，謝謝！