- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¦^´_ 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 :- Private 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
½Æ»s¥N½X |
|