- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 2
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows7
- ³nÅ骩¥»
- ±M·~ª©
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-12-15
- ³Ì«áµn¿ý
- 2019-8-13
|
¨ç¼Æ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)
|