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

¤p§Ì¦³¤T­Ó°ÝÃD·Q½Ð±Ð

¦^´_ 5# amu1129
°ÝÃD¤@:°£¦s®æ¤º®e¸ò®æ¦¡Åã¥Ü­n¬Û¦P,¥²¶·¨Ï¥Î¨ç¼Æ¦b¥t¤@¦ì¸mÅã¥Ü,­Y­n¦P®æ¹F¦¨®ÄªG¥²»Ý¨Ï¥Îvba
§A¹Ï¥Üµ²ªGÀ³¬OµL±ø¥ó±Ë¥h
   ¤½¦¡°µªk:a1¿é¤J¼Æ­È,b1¤½¦¡=ROUNDDOWN(A1,3)
   vba§@ªk¥i§Q¥Î¨Æ¥óµ{§Ç¥N½X½Ð°Ñ¦Ò
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Application.EnableEvents = False
  3. If IsNumeric(Target) Then
  4.    With Target
  5.      .Value = Application.RoundDown(Target, 3)
  6.      .NumberFormat = "0.000"
  7.    End With
  8. End If
  9. Application.EnableEvents = True
  10. 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ºõ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# ©P¤j°¶


    §Ú¸Õ¹L2­Óª©¥»¡A¦b«OÅ@ª¬ºA¤U¥iÁôÂÃÄæ¡A¦ý¬O¸s²ÕªºÁôÂøòÅã¥Ü°Ê§@¨ÃµLªk¨Ï¥Î
¯à°µ¨ìªº¸Ü½Ð¸Ô­z§@ªkÅý¤j®a¾Ç²ß¾Ç²ß
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD