ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ÃöÁä¦rÅý¦C¤å¦rÅܦâ

¦^´_ 10# Andy2483


    ÃöÁä¦r¬O¦³ªº
    §Ú§â¥N½X§ï¶K¨ì¤u§@ªíÁÙ¬O¨S¤ÏÀ³¡H

TOP

¦^´_ 11# wayne0303
½Ð¤W¶Ç½d¨Ò

²{¦b¨S¿ìªkÀ°§U§A
½Ð¨ä¥L«e½úÀ°§A¦£
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 12# Andy2483


    ¨SÃö«Y¡A¥u¬O·Qª¾¹D±zªº¥N½X«áÄò®M¥Î¬O¤£¬O¤ñ¸û²³æ
    ÁÙ¬OÁÂÁÂAndy¤jªºÀ°¦£~

TOP

¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ shuo1125 ©ó 2023-10-20 23:19 ½s¿è

¦^´_ 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
---------------------------------------------------------------------------------
ÁÂÁÂ~~

TOP

VÄæ..¥i³s¿ï/¸õ¿ï...¶K¤J"¤w¥X¹Ï"©Î²M°£
ÃöÁä¦rÅܦâ.rar (6.94 KB)

TOP

¦^´_ 14# Andy2483


    ÁÂÁÂAndy´£¨Ñ¸ê®Æ~

TOP

¦^´_ 15# shuo1125


    ¦Û¦æ¬Ý¹Ï¤K~Andy¤j¥N½Xªº¨Ï¥Î¤è¦¡¡C §Úª¾¹D
   
    ÁÂÁÂshuo¤jªº¼ö¤ßÀ°¦£~

TOP

¦^´_ 16# ­ã´£³¡ªL


    ¥i¥H¦^´_吔¡I¡I«D±`ÁÂÁ­ã¤jªºÀ°¦£~

TOP

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

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD