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

wayne0303

¦p¹Ï¡A¥Hvba°õ¦æ±NPÄ欰"¤w¥X¹Ï"ªº®É­Ô¡A¾ã¦C¨ìVÄæ¦ì¸mªº¤å¦rÅܦâ¡H

ÁÂÁÂ

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~

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 = "¤w¥X¹Ï", 16, 1)
End With
End Sub

shuo1125

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

hcm19522

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

Andy2483

¦^´_ 4# shuo1125


    ©¼¦¹©¼¦¹,»Ý¨D±¡¹Ò²q´ú¤£¦P,«ä¸ô¤£¦P,ºÝ¬Ý»Ý¨D

wayne0303

¦^´_ 2# shuo1125


    ¦rÅéÅܦâ¬O­n¾ã¦CÁÙ¬O­­¨î¨ìVÄæ? ¨ìVÄæ
    ¥i¥H°õ¦æ¡AÁÂÁÂshuo1125¤j¤j

wayne0303

¦^´_ 3# Andy2483


    Andy¤j¤j...§Ú¥Î¤F¥N½X¨S¦³¤ÏÀ³¡A¬OÁٻݭn°õ¦æ¤°»ò¶Ü¡H

wayne0303

¦^´_ 5# hcm19522


    ÁÂÁÂhcm¤j¤j

Andy2483

¦^´_ 8# wayne0303
»Ý­n±Nµ{¦¡½X©ñ¤J¤u§@ªí¼Ò²Õ
PÄæ¿é¤J ¤w¥X¹Ï ©Î «Ý½T»{