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

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

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

2^#

發表於 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

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

TOP

wayne0303

中學生 Rank: 2

帖子: 86
主題: 15
精華: 0
積分: 148
點名: 51
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-4-26

3^#

發表於 2024-3-21 14:01 | 只看該作者

回復 2# Andy2483

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

4^#

發表於 2024-3-21 14:17 | 只看該作者

回復 3# wayne0303

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

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

TOP

wayne0303

中學生 Rank: 2

帖子: 86
主題: 15
精華: 0
積分: 148
點名: 51
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2024-4-26

5^#

發表於 2024-3-21 14:26 | 只看該作者

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

回復 4# Andy2483

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

謝謝~

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

6^#

發表於 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

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

TOP

wayne0303