標題: [發問] 依據顏色判斷問題 [打印本頁]

---

作者: spermbank    時間: 2012-9-18 22:12     標題: 依據顏色判斷問題

大家好:

     想問一下；我要如何利用第一欄顯示"橘色"及第二欄顯示"黃色"的條件下；在第三欄指定顏色為紅色呢?
     因條件判斷是顏色，沒利用顏色當作判斷使用過，不知道怎麼寫判斷式。
     懇請指教，謝謝。

---

作者: Hsieh    時間: 2012-9-18 23:52

回復 1# spermbank

1. Sub ex()
   
2. Dim A As Range
   
3. For Each A In Range([A1], [A1].End(xlDown))
   
4.   If A.Interior.ColorIndex = 44 And A.Offset(, 1).Interior.ColorIndex = 6 Then _
   
5.   A.Offset(, 2).Interior.ColorIndex = 3 Else A.Offset(, 2).Interior.ColorIndex = -4142
   
6. Next
   
7. End Sub

複製代碼

---

作者: spermbank    時間: 2012-9-19 23:28

回復 2# Hsieh


    謝謝大大

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)