wayne0303

回復 16# 准提部林


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

shuo1125

回復 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

wayne0303

回復 22# shuo1125


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

准提部林

回復 23# wayne0303


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

Andy2483

回復 23# wayne0303


    讓P欄格公式變成 已出圖 的源頭欄位做觸發
例如以O欄輸入 日期（出圖日），P欄公式就會變成 已出圖
如果是這種情境 就觸發O欄
還是建議上傳個範例

wayne0303

回復 24# 准提部林


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

wayne0303

回復 25# Andy2483


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

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

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

    謝謝~

Andy2483

回復 28# wayne0303


15 ^ -(xR = "已出圖")   改成
15 ^ -((xR Like "*假") + (xR = "出差") <> 0)

wayne0303

回復 29# Andy2483


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