| ©«¤l835 ¥DÃD6 ºëµØ0 ¿n¤À915 ÂI¦W1  §@·~¨t²ÎWin 10,7 ³nÅ骩¥»2019,2013,2003 ¾\ŪÅv50 ©Ê§O¨k µù¥U®É¶¡2010-5-3 ³Ì«áµn¿ý2025-7-5 
 | 
                
| ¦^´_ 1# s7659109 §A·Qnªº¥\¯à¦b Excel¤@¯ë°Ï(§Y³æ¯Â³z¹LÀx¦s®æ¿é¤J¸ê®Æ©Î¤½¦¡) ¬O«ÜÃø°µ¨ìªº,
 ¦]¬° Excel ªºÀx¦s®æ¤º®e¦b "¥ô¤@®É¶¡ÂI¤W" °£«D¨Ï¥ÎªÌ©Î¬Oµ{¦¡(¥]§t¤½¦¡¤¤ªº¤é´Á®É¶¡©Î¬O¶Ã¼Æ¨ç¼Æµ¥,¤£¦P®ÉÂI¸ê®Æ¥i¯à·|¤£¦PªÌ)¦³°µ¤FÅܧó,
 ¤£µM¬O¤£·|¦Û¤vÅܰʪº,
 §Y«K¬O¤º®e¬°¤½¦¡¥ç©Î¬O¼Ï¯Ã¤ÀªRªí¤]¬O°k²æ¤£¥X¦¹ÂI.
 
 ©Ò¥H¬JµM§Aªº»Ý¨D¬O¨Ï¥ÎªÌ¿é¤J¸ê®Æ«á,
 Àx¦s®æªº¤º®eÁÙn¦³©ÒÅܰÊ,
 ¨º´N¥u¯à³z¹Lµ{¦¡Åo,
 ²{¨Ì§Aªº»Ý¨D¹ê§@¦p¤U :
 ½Æ»s¥N½XPrivate Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Column = 2 Then
      If .Offset(, -1) = "" And .Value <> "" Then
        Application.EnableEvents = False
        .Font.ColorIndex = -4105
        .Value = "²Î¤@¶×´Ú-" & .Value
        .Characters(1, 5).Font.ColorIndex = 3
        Application.EnableEvents = True
      End If
    End If
  End With
End Sub
 | 
 |