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

wayne0303

如圖，以vba執行將P欄為"已出圖"的時候，整列到V欄位置的文字變色？

謝謝

shuo1125

回復 1# wayne0303
字體變色是要整列還是限制到V欄?
Sub TEST()
    Dim i&, R&, T$
        R = [P1048576].End(3).Row
        For i = 1 To R
            T = Cells(i, 16)
            If T = "已出圖" Then Rows(i).Font.Color = RGB(128, 128, 128)
        Next
End Sub
簡易碼整列如上~

Andy2483

回復 1# wayne0303

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
   If .Columns.Count > ActiveSheet.UsedRange.Columns.Count Then Exit Sub
   If .Column <> 16 Or .Count > 1 Then Exit Sub
   Range(.Cells(1, -14), .Cells).Font.ColorIndex = IIf(.Value = "已出圖", 16, 1)
End With
End Sub

shuo1125

回復 3# Andy2483
還是Andy大思慮周到且完善~學習了!

hcm19522

https://hcm19522.blogspot.com/2023/10/11912.html

Andy2483

回復 4# shuo1125


    彼此彼此,需求情境猜測不同,思路不同,端看需求

wayne0303

回復 2# shuo1125


    字體變色是要整列還是限制到V欄? 到V欄
    可以執行，謝謝shuo1125大大

wayne0303

回復 3# Andy2483


    Andy大大...我用了代碼沒有反應，是還需要執行什麼嗎？

wayne0303

回復 5# hcm19522


    謝謝hcm大大

Andy2483

回復 8# wayne0303
需要將程式碼放入工作表模組
P欄輸入 已出圖 或 待確認