ªð¦^¦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®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD