返回列表 上一主題 發帖

[發問] 關鍵字讓列文字變色

回復 16# 准提部林


    准大不好意思~我的關鍵字是要在P欄,變色才是到V欄是要怎麼改呢?

TOP

回復 21# wayne0303
嘗試微修了一下准大提供的程式碼...謝謝。

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 於 2023-10-21 20:50 編輯

回復 22# shuo1125


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

TOP

回復 23# wayne0303


P欄是公式, 只能 1)格式條件  2)按鈕執行

TOP

回復 23# wayne0303


    讓P欄格公式變成 已出圖 的源頭欄位做觸發
例如以O欄輸入 日期(出圖日),P欄公式就會變成 已出圖
如果是這種情境 就觸發O欄
還是建議上傳個範例
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 24# 准提部林


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

TOP

回復 25# Andy2483


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

TOP

本帖最後由 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

回復 28# wayne0303


15 ^ -(xR = "已出圖")   改成
15 ^ -((xR Like "*假") + (xR = "出差") <> 0)
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 29# Andy2483


    喔喔喔~萬用字元是用 Like "*"
    謝謝Andy大大~

TOP

        靜思自在 : 【為善競爭】人生要為善競爭,分秒必爭。
返回列表 上一主題