ªð¦^¦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 : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD