返回列表 上一主題 發帖

[發問] 文字返回原來設定顏色

[發問] 文字返回原來設定顏色

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

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

謝謝~

回復 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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 2# Andy2483


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

TOP

回復 3# wayne0303

原先的顏色是什麼顏色?
原先的顏色是用什麼條件決定??
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

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

回復 4# Andy2483


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

謝謝~

TOP

回復 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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 6# Andy2483


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

感謝Andy大~

TOP

回復 7# wayne0303

提到 原先設定是綠色(手動選擇)  
應該有某個需求或原因才讓原先設定是綠色吧! 不然就是隨個人喜好手動選擇
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

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

TOP

回復 9# 准提部林


    謝謝前輩指導
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 口說一句好話,如口出蓮花;口說一句壞話如口吐毒蛇。
返回列表 上一主題