TPBUNNY
2003-08-11, 12:52 AM
在A1輸入值,在B1設格式化條件:如果A1>50時,B1變成紅色,當A1輸入60,ENTER或右移儲存格後,B1變成紅色時出現對話框MSGBOX ("大於50"),請問這段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 明暸做法了,謝謝! |
|