關鍵字讓列文字變色 - Excel程式區

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

11^# 跳轉到 »

發表於 2023-10-21 20:44 | 顯示全部帖子

本帖最後由 wayne0303 於 2023-10-21 20:50 編輯

回復 22# shuo1125

先謝謝shuo大的幫忙~
但不知是不是我P欄有公式影響的關係，用工作表的程式碼執行都沒反應，用打字key入倒是可以...
所以結果只能走您 15#提供的模組程式碼執行，但是這樣應該就沒有辦法做像准大那種回復這個動作了吧

以上，謝謝大大們的幫忙~

TOP

wayne0303

中學生 Rank: 2

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

12^#

發表於 2023-10-21 22:53 | 顯示全部帖子

回復 24# 准提部林

原來如此~
感謝准大的說明~

TOP

wayne0303

中學生 Rank: 2

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

13^#

發表於 2023-10-21 23:00 | 顯示全部帖子

回復 25# Andy2483

感謝Andy大的提點得以應用工作表的程式碼執行了~謝謝

TOP

wayne0303

中學生 Rank: 2

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

14^#

發表於 2023-10-23 09:58 | 顯示全部帖子

本帖最後由 wayne0303 於 2023-10-23 10:10 編輯

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xA As Range, xR As Range
Set xA = Intersect(Target, Range("P:P"))
If xA Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xR In xA
Range(Cells(xR.Row, 1), Cells(xR.Row, 22)).Font.ColorIndex = 15 ^ -(xR = "已出圖")
Next
End Sub

不好意思，想請問可以用這個程式碼將關鍵字改成關鍵字內只要有"假"(例如事假、病假...之類，萬用字元的代碼)或"出差"就有反應，這樣嗎？

謝謝~

TOP

wayne0303