返回列表 上一主題 發帖

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

wayne0303

帖子
86 
主題
15 
精華
0 
積分
148 
點名
58  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2019-1-17 
最後登錄
2024-5-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

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

謝謝~
收藏 分享

wayne0303

帖子
86 
主題
15 
精華
0 
積分
148 
點名
58  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2019-1-17 
最後登錄
2024-5-10 
2#
發表於 2024-3-21 14:01 | 顯示全部帖子
回復 2# Andy2483


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

TOP

wayne0303

帖子
86 
主題
15 
精華
0 
積分
148 
點名
58  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2019-1-17 
最後登錄
2024-5-10 
3#
發表於 2024-3-21 14:26 | 顯示全部帖子
本帖最後由 wayne0303 於 2024-3-21 14:28 編輯

回復 4# Andy2483


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

謝謝~

TOP

wayne0303

帖子
86 
主題
15 
精華
0 
積分
148 
點名
58  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2019-1-17 
最後登錄
2024-5-10 
4#
發表於 2024-3-21 14:40 | 顯示全部帖子
回復 6# Andy2483


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

感謝Andy大~

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題