ªð¦^¦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 : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD