[µ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

rogersg

¦^´_ 4# ­³¥°´¼
¬O«Å§iÅܼƤ£¬OX¶b©ÎY¶b³á

bioleon69

ª½±µ¥Îon error resume next ¸ò
IsNumeric
Not IsError
·|¦³®t§O¶Ü?
(°õ¦æ¤W,©ÎªÌ³t«×)
ÁÂÁÂ^^

­³¥°´¼

¦^´_ 2# ikboy


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

­³¥°´¼

¦^´_ 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¾Ç²ß¾Ç²ß)

­ã´£³¡ªL

Sub TestA()
Dim Arr, Brr, X, Y
Arr = [R2:R246]
[X2:Y246].ClearContents: Brr = [X2:Y246]
For D = 0 To 100 Step 5
¡@¡@For i = 1 To 245
¡@¡@¡@¡@If Not IsError(Arr(i, 1)) Then¡@'¤£¬O¡e¿ù»~­È¡f¤~¶i¦æ­pºâ
¡@¡@¡@¡@¡@¡@Brr(i, 1) = Int(Arr(i, 1) + Arr(i, 1) * (D / 100))
¡@¡@¡@¡@¡@¡@Brr(i, 2) = Int(Arr(i, 1) + Arr(i, 1) * (D / -100))
¡@¡@¡@¡@End If
    Next
Next
[X2:Y246] = Brr
End Sub
¡@

If IsNumeric(Arr(i, 1)) Then¡@¤]¥i³o¼Ë§PÂ_¡]¬O¼Æ­È¤~­pºâ¡^
¡@
¡@

ikboy

¦^´_ 1# ­³¥°´¼


    ­º¥ýª½±µ¦bcells°õ¦æ¤@©wºC, ²Ä¤G°N¬Ý¨º4¦æ¥N½X, ­º´`Àô¬O¦h¾lªº, «Øij¤W¸üÀÉ®×, ¼ÒÀÀµ²ªG, »¡©ú­pºâÅÞ¿è.