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

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

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

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

ÁÂÁÂ

¦CÅܦâ.jpg (37.67 KB)

¦CÅܦâ.jpg

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

TOP

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

TOP

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

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 4# shuo1125


    ©¼¦¹©¼¦¹,»Ý¨D±¡¹Ò²q´ú¤£¦P,«ä¸ô¤£¦P,ºÝ¬Ý»Ý¨D
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# shuo1125


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

TOP

¦^´_ 3# Andy2483


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

TOP

¦^´_ 5# hcm19522


    ÁÂÁÂhcm¤j¤j

TOP

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

¦^´_ 8# wayne0303
»Ý­n±Nµ{¦¡½X©ñ¤J¤u§@ªí¼Ò²Õ
PÄæ¿é¤J ¤w¥X¹Ï ©Î «Ý½T»{
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD