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

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

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

°ÝÃD¤@
½Ð°Ý¤u§@ªí¤ºªº¨ç¼Æ¥i¥H³]¥ß¶}Ãö¶Ü
¤£µM³øªí¤¤ªº¨ç¼Æ¹L¦h
µy§@­×§ï´N­«·s­pºâ¤@¦¸ «Ü¯Ó®É
¥Ø«e¤p§Ìª¾¹Dªº¬O±q¿ï¶µ¤¤ªº­pºâ§ï¬°¤â°Ê
¦ý§Ú·Q§â³o³]¬°¤@­Óbutton
©ó¤â°Ê©M¦Û°Ê­pºâ¶¡¤Á´«
¥i¥H¬Ù¥h¤@ª½¥h¿ï¶µ¤¤¿ï¨úªº°Ê§@

°ÝÃD¤G
¤p§Ì·Q§âªí®æ¤¤ªº¼Æ¦r§ï¬°¤p¼ÆÂI«á¤T¦ì
¨Ò  12.3745    ¡÷  12.374
   234.656552¡÷234.656
       1.12        ¡÷    1.120
§Ú­n§â¹ê»Ú¼Æ¦r§ï¬°¤p¼ÆÂI«á¤T¦ì
¤£¬O¥uÅã¥Ü¤p¼ÆÂI«á¤T¦ì
½Ð°Ý­n§ï®æ¦¡¡B¨ç¼ÆÁÙ¬O¼gVBA¤ñ¸û²³æ¨³³t

°ÝÃD¤T
¤p§Ì§Ú·QÁôÂÃÀx¦s®æ¤½¦¡
¦P®É¤S¦³ÁôÂÃÄæ¦Cªº¶}Ãö
§Ú«OÅ@ªº¿ï¶µ¥þ¥´¤Ä¤F
¦ý·|¥X²{¥H¤Uµe­±
½Ð°Ý¦³¿ìªkº¡¨¬³o¨â­Ó±ø¥óªº¤èªk¶Ü
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

°ÝÃD¤@,½Ð©ú½T©ú¶}Ãö§t·N,¨ä¹ê¤@¨Ç­pºâ¥i¥Î¼Ï¯Ã¤ÀªRªí,
°ÝÃD¤G,¥i«ö·Æ¹«¥k°·,Àx¦s®æ®æ¦¡,¦Û­q,¼Æ­È,
°ÝÃD¤T,§â·Æ¹««ü¦Va»P1ªº¦Ç¦â¥ª¤W¨¤>®æ¦¡>Àx¦s®æ>«OÅ@>§âÂê©w¤Î隠Âèú®ø¥´¤Ä>¤u¨ã¦C¿ï±q½s¿è¤¤¿ï¨ì>¯S®í>ÂI¿ï¤½¦¡>®æ¦¡>Àx¦s®æ>«OÅ@>§â隠ÂÃ¥´¤Ä>«OÅ@>¿é¤J±K½X>½T»{
³o¼Ë, §Aªº¸s²Õ¤Î¤jºõ¥i¥H¨Ï¥Î, ¦Ó¤½¦¡¬O·|隠ÂÃ, ¤W­zªº¸Ñµª¦p¦³»~¸Ñ¨ä§t·N,§Æ±æ¯à©ú½Tªí¹F....

TOP

Application.Calculation = xlManual
Application.Calculation = xlAutomatic
¶}Ãö¦b³o¨â¥y¶¡¤Á´«¡C

TOP

2.¤p¼ÆÂI²Ä4¦ì­Y¤j©ó©Îµ¥©ó5¡A­n¶i¦ì¶Ü¡H

TOP

¤£¦n·N«ä ¤p§Ì¦A¸É¥R²M·¡¤@ÂI
°ÝÃD¤@§Ú¬O·Q±N¿ï¶µ¤¤ªº­pºâ°µ¦¨¶}Ãö ¦p¹Ï¬õ®Ø³B


°ÝÃD¤G §Ú§Æ±æ¼Æ¦r¬OÅܦ¨¨ì¤p¼ÆÂI²Ä¤T¦ì
«á­±ªº¼Æ¦r³£¤£­n
§Ú¸Õ¤F¤@¤U¦Û­q ÁÙ¬O·|¸ò®æ¦¡¬°¼Æ­È¤p¼Æ²Ä¤T¦ì¤@¼Ë
Åã¥Ü®É¬O¤p¼ÆÂI«á¤T¦ì ¹ê»ÚÂI¸ÓÀx¦s®æÁÙ¬O­ì¥»ªº¼Æ­È ¦p¹Ï
¹Ï.JPG

°ÝÃD¤T
¤p§Ì¦b½s¿è¤¤§ä¤£¨ì¯S®í­C
¥i§_³Â·Ð§iª¾¸Ô²Ó¤@ÂI ÁÂÁÂ
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

°ÝÃD¤G §Ú§Æ±æ¼Æ¦r¬OÅܦ¨¨ì¤p¼ÆÂI²Ä¤T¦ì
«ö·Æ¹«¥k°·>Àx¦s®æ®æ¦¡>¦Û­q>¼Æ­È>±q¤p¼Æ¦ì¤W¤U©Ô¤¤¿ï©w3«K¥i.
°ÝÃD¤T ±q¤u¨ã¦C>½s¿è>¿ï¨ì>«K·|¼u¥X¨ìµ¡®Ø>¿ï¾Ü¯S®í«K·|¼u¥X¯S®í¥Ø¼Ðµ¡®Ø..
¤j¤jªº¹Ï¤ù¤¤¨ú¥N¤U­±«K¬O¨ì,¸Õ¸Õ...

TOP

¦^´_ 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

¨ä¹ê隠ÂÃÄæ¦ì¦C, ¸s²Õ¬O¥i¦æ, ¦ý©w¸q¦WºÙ¤]¥i¥H,

TOP

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


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

TOP

hsieh¤j¤j,
¬O¤p§Ìªí¹F¤£²M¦â, ±q¤W­z¤j¤j¹Ï¤ù¤¤, ¦³¿ï¥Î¸s²Õ¥\¯à, ©ó¬O¤p§Ì·Q¸s²Õ¬O¥i§âÄæ¦C¦ìÁôÂÃ, ©w¸q¦WºÙ¤]¥i°µ¨ì¤W­z¥\¯à, ¤£¦P¬O, ¸s²Õ¥iª½±µ©ó¤u§@ªí¤¤«ö¤Q©Î¤@,Åã¥Ü¤ÎÁôÂÃ, ¦Ó©w¸q¦WºÙ¥²¶·©ó¸Óµ¡®Ø¤¤¿ï©w­nÅã¥Üªº¦WºÙ,
·í¤¤¤£¯A¤Î«OÅ@¤u¯à,
¦b¦¹ÁÂÁÂhsieh¤j¤j, ¤j¤j¤À¨É¤ß±o¤W¶ÇÀÉ, ©w¸q¦WºÙªº°g«ä, ªº½T¹ï§Úµ¥¾Ç²ßªÌ±q¤¤¨V¨ú¸gÅç, ¶X¦¹¾÷·|, »¡ÁnÁÂÁÂ..

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD