- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 207
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-9-20
|
¦^´_ 5# amu1129
°ÝÃD¤@:°£¦s®æ¤º®e¸ò®æ¦¡Åã¥Ün¬Û¦P,¥²¶·¨Ï¥Î¨ç¼Æ¦b¥t¤@¦ì¸mÅã¥Ü,Yn¦P®æ¹F¦¨®ÄªG¥²»Ý¨Ï¥Îvba
§A¹Ï¥Üµ²ªGÀ³¬OµL±ø¥ó±Ë¥h
¤½¦¡°µªk:a1¿é¤J¼ÆÈ,b1¤½¦¡=ROUNDDOWN(A1,3)
vba§@ªk¥i§Q¥Î¨Æ¥óµ{§Ç¥N½X½Ð°Ñ¦Ò- Private Sub Worksheet_Change(ByVal Target As Range)
- Application.EnableEvents = False
- If IsNumeric(Target) Then
- With Target
- .Value = Application.RoundDown(Target, 3)
- .NumberFormat = "0.000"
- End With
- End If
- Application.EnableEvents = True
- End Sub
½Æ»s¥N½X °ÝÃD¤G:§â¤u¨ãªº«ºâ³]©w³]¦¨¤â°Ê,¦Ûq¤u¨ã¦C,¦b¤u¨ã¦C«ö¥kÁä/¦Ûq
¦b¤u¨ãõè§O§ä¥X¥ß§Y«ºâ,©ì¦²¨ì¤u¨ã¦C·í¶}Ãö«ö¯Ã
°ÝÃD¤T:«OÅ@¤u§@ªíª¬ºA¤UµLªk¨Ï¥Î¸s²Õ¤jºõ |
|