ªð¦^¦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 : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD