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

[µo°Ý] dde¶×¤J¼Æ­È«á¶i¦æ½Æ»s°ÝÃD

[µo°Ý] dde¶×¤J¼Æ­È«á¶i¦æ½Æ»s°ÝÃD

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2011-12-25 16:08): ÀɮפW¶Ç¨ÃµLµ¥¯Å­­¨î

§â91­Ódde¶×¤J¼Æ­È¥H«ö¶s°Ê§@½Æ»s¥X91x2(182)­Ó¼Æ­È¥X¨Ó®É¶¡»Ý­n9¬í¡A¦pHsiehª©¥D©Ò¨¥"¤£·|§a!"¡A·Qª¾¹D½Æ»s¤j¶q°ÊºA¼Æ­È©ó¥t¤@Àx¦s®æ¤º¬O§_¤@©w³o¼Ë¯Ó®É¡HÁÙ¬O»s§@¤è¦¡¤Î¤½¦¡¤W¿ù»~¡A¥Ñ©óÁÙ¥¼°÷Åv­­¤W¶Ç¤å¥ó¡A¥u¯à¥H¤å¦r±Ô­z¤è¦¡ªí¹F¡A½Ð½Ì!

¦^´_ 1# ²Â¤p«Ä


    ¤j­ô½Ð°Ý¤@¤U DDE ¦p¦ó¨Ï¥Î ¦p¦ó¨ú±o

·PÁ±z

TOP

¦^´_ 2# mustang

§Úªºdde¶×¤J¬O¥Ñ¤@¶¡¥I¶O¼Æ¾Ú¤½¥q´£¨Ñªº¡A´£¨ú¤èªk¬O¦b¥i¨£­¶­±¤W¡A¦b¥ô¦ó»Ý­n´£¨úªº¼Æ­È¤W«ömouse¿ï¨úÀò¨údde¡AµM«á¶K¤Wexcel«K¥i¨Ï¥Î¡C

TOP

·Ð¤FHsiehª©¥D«ü¾É¤W¶Ç¤å¥ó¬O¤£¨üÅv­­­­¨îªº¡A¤H¦p¨äID¨S¿ù§a¡I«¢«¢...

½Æ»s¯Ó®É¤Î·l¯Ó¹q¸£¸ê·½°ÝÃD¬O¦bA1©MC1§@­È¤ñ¸û®É¡A¦bB1(¦P®É¨Ï¥Î¤F182­Ó)¥H¤U¤½¦¡¡G

=IF(ISBLANK(C1)," ",IF(C1<=A1,A1-C1," "))

¦A¦bB1¨Ï¥Î®æ¦¡¤Æªº±ø¥ó»s§@¤F¥H¤U3±ø¤½¦¡¡G

±ø¥ó¤@¡G=$C1/$B1>0.499(¬õ¶ñº¡Àx¦s®æ)
±ø¥ó¤G¡G=$C1/$B1>0.299(Äx¶ñº¡Àx¦s®æ)
±ø¥ó¤T¡G=$C1/$B1>0.199(¶À¶ñº¡Àx¦s®æ)

§ÚÀv¸Õ§âB2©Ò¦³¤½¦¡²M°£¡A½Æ»s1¬í¤º¥i§¹¦¨¡A§Ú·Q§Ú¬O»s§@¤W¥¢±Ñ¤F¡A²{·Q½Ð±Ð¦Uexcel°ª¤H¦³§ó¦nªº¤èªk¸Ñ¨M§Ú³o­Ó°ÝÃD¶Ü¡HÁÂÁÂ...

TOP

¦^´_ 4# ²Â¤p«Ä

ªþ¤W "excelÀÉ®×"  ¤~¯à¯u¥¿ª¾¹D°ÝÃD©Ò¦b

TOP

¦^´_ 4# ²Â¤p«Ä
ÀɮפW¶Ç­ì«h
¦b¬¡­¶Ã¯¤º¥ô¦ó®æ¦¡³]©w¡B¤½¦¡³£·|¼vÅT¹Bºâ³t«×
¤×¨ä¦b¥Î¤F¤j¶q°}¦C¤½¦¡®É(¨Ã«D¥u¦³¥ÎCTRL+SHIFT+ENTER¬°¿é¤J¤è¦¡)
VBA¤]¨Ã«D´N¤@©w¯à´£¤É³t«×
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh


©ú¦ÛHsiehª©¥D¸ÑÄÀ¨Ï¥Î¤j¶q°}¦C¤½¦¡·|·l¯Ó¹q¸£¸ê·½¾É­P¹B§@½wºC¡A§Ú¤]Àv¸Õ§â¤å¥ó®³¨ìªB¤Í®a¶]1155 i3/3M§Ö¨ú¹q¸£°µ¹êÅç¡A¥i§â½Æ»s®É¶¡­°¦Ü4¬í§¹¦¨¡A

²{·Q¦p§¹¥þ¤£¨Ï¥Î®æ¦¡¤Æ±ø¥ó¡A¥u¨Ï¥ÎÀx¦s®æ¤½¦¡¨Ó»s§@§Ú·Q°µ¨ìªº¥Î³~¡A¤½¦¡¤W¯à»s§@¶Ü¡H½Æ»s®É¶¡¤W¯àÁYµu¶Ü¡H

TOP

¦^´_ 7# ²Â¤p«Ä


   Ãö³¬­«ºâ¦A°õ¦æ½Æ»s
Application.Calculation = xlCalculationManual


½Æ»s§¹¦¨­«·s³]©w¦Û°Ê­«ºâ
Application.Calculation = xlCalculationAutomatic
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# register313


    copy test.rar (17.85 KB)

½Ð°ª¤â­Ì¬Ý¬Ý¦³¤èªk§â½Æ»s®É¶¡´î¤p¶Ü¡HÁÂÁÂ

TOP

¦^´_ 9# ²Â¤p«Ä
  1. Sub «ö¶s0_Click()
  2. Application.Calculation = xlCalculationManual
  3.     For i = 1 To 26
  4.         Cells(i, "B").Value = Cells(i, "D").Value
  5.         Cells(i, "F").Value = Cells(i, "H").Value
  6.         Cells(i, "J").Value = Cells(i, "L").Value
  7.         Cells(i, "N").Value = Cells(i, "P").Value
  8.         Cells(i, "R").Value = Cells(i, "T").Value
  9.         Cells(i, "V").Value = Cells(i, "X").Value
  10.         Cells(i, "Z").Value = Cells(i, "AB").Value
  11.     Next i
  12. Application.Calculation = xlCalculationAutomatic
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD