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



贊助商連結


TPBUNNY
2003-08-11, 12:52 AM
在A1輸入值,在B1設格式化條件:如果A1>50時,B1變成紅色,當A1輸入60,ENTER或右移儲存格後,B1變成紅色時出現對話框MSGBOX ("大於50"),請問這段VBA如何寫?

贊助商連結


ICLA
2003-08-11, 02:02 AM
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 2).Interior.ColorIndex = 3 Then MsgBox "RED"
End Sub

ICLA
2003-08-11, 02:03 AM
請問如何在B1設定當A1>50時將B1設定為紅色?

TPBUNNY
2003-08-11, 09:36 AM
在B1設 格式>>設定格式化條件>>公式為 =A1>50, 圖樣設為紅色
PS. 本想貼個圖上來,可是不會貼,能教一下嗎?謝謝!

TPBUNNY
2003-08-11, 09:52 AM
發現一個奇怪的問題,B1的紅色如果是用油漆桶給的,則ICLA的VBA可用,但若是經由格式化條件將它變成紅色,就無效!???????能解決嗎?

leonchou
2003-08-12, 07:02 PM
最初由 TPBUNNY 發表
PS. 本想貼個圖上來,可是不會貼,能教一下嗎?謝謝!
方法一.
圖放在網頁空間, 直接在回覆文章打 [ img ] 圖片網址 [/img].
如果在[回覆主題]的頁面, 亦可利用 [貼圖] 按鈕.

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

http://home.pchome.com.tw/world/leonblue/forum/pczone_attach_img.png

leonchou
2003-08-12, 07:08 PM
最初由 TPBUNNY 發表
發現一個奇怪的問題,B1的紅色如果是用油漆桶給的,則ICLA的VBA可用,但若是經由格式化條件將它變成紅色,就無效!???????能解決嗎?
Range.Interior 可以判斷到實際的顏色,
但經由格式化條件改變的顏色並非實際的顏色.

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

TPBUNNY
2003-08-12, 07:16 PM
明暸做法了,謝謝!