[µo°Ý] Ãö©ó¡GVBA­pºâ°õ¦æ³t«×

­³¥°´¼

¿Ô¸ß¦U¦ìª©¤Í¡A¤p§ÌªºVBAµ{¦¡½X¤¤¡A¦]¬°¨C°j°é1¦¸´N»Ý¶i¦æ1~245Äæ¦ìªº­pºâ¡A¦Ó¾É­Pµ{¦¡°õ¦æ³t«×¬Û·íªº½wºC¡A
½Ð°Ý¬O§_¦³§ïµ½ªº¤è¦¡¡H¥Î°}¦Cªº¤è¦¡¯à§ïµ½¶Ü¡H

1. For d = 0 To 100 Step 5
   
2.   For i = 1 To 245
   
3. Cells(i + 1, 24) = Int(Cells(i + 1, 18) + Cells(i + 1, 18) * (d / 100))
   
4. Cells(i + 1, 25) = Int(Cells(i + 1, 18) + Cells(i + 1, 18) * (d / -100))

½Æ»s¥N½X

¥t¥~¡Aªí®æÄæ¦ì¤¤¥X²{#NUM!¡A§Ú¸Ó¦p¦ó¨Ï¥Îif§PÂ_¡A¥X²{#NUM!«á¡A¤´Ä~Äò°õ¦æ

1. If Cells(1, 1 )= #NUM! Then
   
2.             End If

½Æ»s¥N½X

³o¼Ëªºµ{¦¡¡AµLªk°õ¦æ¡A¤wgoogle´M§ä¹L¡A¤´µMµL¸Ñ¡C

¤U¸ü (1.27 KB)

2017-5-11 09:00

­³¥°´¼

¦^´_ 3# ­ã´£³¡ªL


ÁÂÁ±z¡A§Ú²z¸Ñ¦p¦ó¨Ï¥ÎNot IsError©MIsNumeric¤F¡A¦]¬°ªì¤ßªÌªºÃö«Y¡A¦bgoogleÁ`¤£¯à¦³®Ä¦a¿é¤JÃöÁä¦r¡A¾É­P¨Æ­¿¥\¥b¡A¥t¥~·Q¸ò§A½T©w«Å§iX¤ÎY¬O«üX¶b»PY¶bªº·N«ä§a¡H(³o¤è­±§ÚÁÙ±o¾Ç²ß¾Ç²ß)

­³¥°´¼

¦^´_ 2# ikboy


  ÁÂÁ±z¡A¦^´_¨ó§U§Ú¡A§Ú¤w¸g¾Ç·|¤Î¸Ñ¨M³o­Ó°ÝÃD¤F¡AÁÂÁ¡G¢Ò