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
簡易碼整列如上~

shuo1125

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

shuo1125

回復 13# wayne0303
自行看圖八~Andy大代碼的使用方式。
另更新需求程式碼:
>>RGB(255, 0, 0)這可自行換色
---------------------------------------------------------------------------------
Sub TEST()
    Dim i&, R&, T$
    R = [P1048576].End(3).Row
    For i = 1 To R
        T = Cells(i, 16)
        If T = "已出圖" Then
            Range("A" & i & ":V" & i).Font.Color = RGB(255, 0, 0)
        End If
    Next
End Sub
---------------------------------------------------------------------------------
Sub TEST_1()
    Dim xR As Range, xS As Range, wS As Worksheet
    Dim T$
    Set wS = ThisWorkbook.Worksheets(1)
    '假設使用第一個工作表，如有需要請自行調整
    Set xS = wS.Range("P1:P" & wS.Cells(wS.Rows.Count, "P").End(3).Row)
    For Each xR In xS
        T = xR.Value
        If T = "已出圖" Then
            wS.Range("A" & xR.Row & ":V" & xR.Row).Font.Color = RGB(255, 0, 0)
        End If
    Next
End Sub
---------------------------------------------------------------------------------
謝謝~~

下載 (137.98 KB)

2023-10-20 23:07

shuo1125

回復 16# 准提部林
准大總是讓人欽佩...學習了!!

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