- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2013-10-17 23:45 ½s¿è
¤j®a¦n,§Ú¼g¤U¤@Өƥó¦p¤U:
¬O·Q±N¦b¿é¤J²Ä¥|©Î²Ä¤»ÓÀx¦s®æ®É·|¦Û°ÊÅÜ°£¥H10000«á¦AÂন¾ã¼Æ
¦ý¹ê»Ú¹B§@ ...
maomao µoªí©ó 2013-10-17 21:16
1. ¦]¬° ActiveCell »P Target ¤£¬O¦P¤@ÓÀx¦s®æ,
·í§A«ö¤U Enter ®É ActiveCell ¤w¸g²¾¦ì¤F.
2. ¬JµM§A«e±¤w¸g¥Î¤F With Target,
¨º»ò¦b End With ¤§«e¥un¦³°Ñ·Ó¨ì Target ªº«ü¥O³£¥i¥H¥Î . ¨Ó¨ú¥N¨Ï¥Î.
3. ¦]¬°ÅܧóÀx¦s®æ¤º®e®É(¥]§t¥Ñ Excel VBA µ{¦¡Åܧóªº)³£·|©I¥s Worksheet_Change,
¬G¦ÓÀ³¦bÅܧó«e±NIJµo¶}Ãö (Application.EnableEvents) Ãö±¼,
¦A©óÅܧó«á¥´¶},
¥HÁקK¥X²{ ¤£¥i¹w´Áªº¿ù»~µ²ªG ¬Æ¦Ü¬O "µL¦¸ªº" IJµo(©I¥sµ{¦¡)ªº¿ù»~¥X²{.
קï«áªºµ{¦¡¦p¤U :- Private Sub Worksheet_Change(ByVal Target As Range)
- With Target
- If .Column = 4 Or .Column = 6 Then
- Application.EnableEvents = False
- .Value = Round(.Value / 10000)
- Application.EnableEvents = True
- End If
- End With
- End Sub
½Æ»s¥N½X |
|