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

¨ç¼Æ­pºâ¦p¦ó¥ÎVba²¤Æ

¨ç¼Æ­pºâ¦p¦ó¥ÎVba²¤Æ

½Ð±Ð¦U¦ì°ª¤â¦p¦ó±N¥H¤U²©ö¤Æ

Sub ­pºâ()
'
' ­pºâ ¥¨¶°

For i = 4 To 50
    Cells(i, 4).Value = "=IF(BB!RC[-3]="""","""",IF(AA!RC[-3]=0,0,IF(BB!RC[-3]="""","""",BB!RC[-3]-AA!RC[-3])/AA!RC[-3]*100))"
    Selection.NumberFormatLocal = "0.00_ "

    Next
End Sub

123456.rar (11.39 KB)

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD