shuo1125

¦^´_ 1# wayne0303
¦rÅéÅܦâ¬O­n¾ã¦CÁÙ¬O­­¨î¨ìVÄæ?
Sub TEST()
    Dim i&, R&, T$
        R = [P1048576].End(3).Row
        For i = 1 To R
            T = Cells(i, 16)
            If T = "¤w¥X¹Ï" Then Rows(i).Font.Color = RGB(128, 128, 128)
        Next
End Sub
²©ö½X¾ã¦C¦p¤W~

shuo1125

¦^´_ 3# Andy2483
ÁÙ¬OAndy¤j«ä¼{©P¨ì¥B§¹µ½~¾Ç²ß¤F!

shuo1125

¦^´_ 13# wayne0303
¦Û¦æ¬Ý¹Ï¤K~Andy¤j¥N½Xªº¨Ï¥Î¤è¦¡¡C
¥t§ó·s»Ý¨Dµ{¦¡½X:
>>RGB(255, 0, 0)³o¥i¦Û¦æ´«¦â
---------------------------------------------------------------------------------
Sub TEST()
    Dim i&, R&, T$
    R = [P1048576].End(3).Row
    For i = 1 To R
        T = Cells(i, 16)
        If T = "¤w¥X¹Ï" 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)
    '°²³]¨Ï¥Î²Ä¤@­Ó¤u§@ªí¡A¦p¦³»Ý­n½Ð¦Û¦æ½Õ¾ã
    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 = "¤w¥X¹Ï" Then
            wS.Range("A" & xR.Row & ":V" & xR.Row).Font.Color = RGB(255, 0, 0)
        End If
    Next
End Sub
---------------------------------------------------------------------------------
ÁÂÁÂ~~

¤U¸ü (137.98 KB)

2023-10-20 23:07

shuo1125

¦^´_ 16# ­ã´£³¡ªL
­ã¤jÁ`¬OÅý¤H´Ü¨Ø...¾Ç²ß¤F!!

shuo1125

¦^´_ 21# wayne0303
¹Á¸Õ·L­×¤F¤@¤U­ã¤j´£¨Ñªºµ{¦¡½X...ÁÂÁ¡C

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 = "¤w¥X¹Ï")
Next
End Sub