帖子: 99
主題: 18
精華: 0
積分: 164
點名: 55
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2025-4-11

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

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 55
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2025-4-11

11^#

發表於 2024-5-21 12:00 | 只看該作者

回復 9# 准提部林

謝謝版主~

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

10^#

發表於 2024-3-25 11:57 | 只看該作者

回復 9# 准提部林

謝謝前輩指導

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-2-15

9^#

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

8^#

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

回復 7# wayne0303

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

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

TOP

wayne0303

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 55
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2025-4-11

7^#

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

回復 6# Andy2483

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

感謝Andy大~

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

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