標題: [發問] 文字返回原來設定顏色 [打印本頁]

---

作者: wayne0303    時間: 2024-3-21 10:42     標題: 文字返回原來設定顏色

Set xA = Intersect(Target, Range("C:C"))
    If Not xA Is Nothing Then
    For Each xR In xA
        Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 3 ^ -((xR Like "*假") + (xR = "出差") + (xR = "否") <> 0)
    Next
End If

請問怎麼在不是這些條件需求的時候返回原來選擇的文字顏色

謝謝~

---

作者: Andy2483    時間: 2024-3-21 13:16

回復 1# wayne0303

Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 3 ^ -((xR Like "*假") + (xR = "出差") + (xR = "否") <> 0)
改為
IF (xR Like "*假") + (xR = "出差") + (xR = "否") <> 0 Then Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 3

---

作者: wayne0303    時間: 2024-3-21 14:01

回復 2# Andy2483


感謝Andy2483大抽空回覆，
但選擇了不是條件內的選項結果還是紅色...並沒有返回原先的文字顏色

---

作者: Andy2483    時間: 2024-3-21 14:17

回復 3# wayne0303

原先的顏色是什麼顏色?
原先的顏色是用什麼條件決定??

---

作者: wayne0303    時間: 2024-3-21 14:26

本帖最後由 wayne0303 於 2024-3-21 14:28 編輯

回復 4# Andy2483


例如我原先設定是綠色(手動選擇)，選擇"不是"代碼條件內的選項所顯示的文字顏色就希望是返回綠色

謝謝~

---

作者: Andy2483    時間: 2024-3-21 14:35

回復 5# wayne0303

IF (xR Like "*假") + (xR = "出差") + (xR = "否") <> 0 Then Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 3 Else  Range(Cells(xR.Row, 1), Cells(xR.Row, 9)).Font.ColorIndex = 4

---

作者: wayne0303    時間: 2024-3-21 14:40

回復 6# Andy2483


所以還是必需有原來文字顏色的設定就是了。了解！

感謝Andy大~

---

作者: Andy2483    時間: 2024-3-21 14:50

回復 7# wayne0303

提到 原先設定是綠色(手動選擇)  
應該有某個需求或原因才讓原先設定是綠色吧! 不然就是隨個人喜好手動選擇

---

作者: 准提部林    時間: 2024-3-24 11:26

IF (xR Like "*假") + (xR = "出差") + (xR = "否") then cx=3 else cx=4
Cells(xR.Row, 1).resize(1, 9)).Font.ColorIndex = cx

---

作者: Andy2483    時間: 2024-3-25 11:57

回復 9# 准提部林


    謝謝前輩指導

---

作者: wayne0303    時間: 2024-5-21 12:00

回復 9# 准提部林


謝謝版主~

---

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