要有向下填滿的效果向高手求代碼

張美惠 · 发表于 2009-6-13 12:45

請高手協助新手
售價J2填上=ROUND(G2*H2*I2/100,0)公式並
向下填滿至最後一筆
最後總計
並將合計的資料總本數及售價填入下方總本書總售價中及總金額中

Aeolian-Vox · 发表于 2009-6-13 12:54

供参考：
Range("J2").FormulaR1C1 = "=ROUND(RC[-3]*RC[-2]*RC[-1]/100,0)"
Range("J2").AutoFill Destination:=Range("J2:J" & Range("A2").End(xlDown).Row)
Range("J" & Range("A2").End(xlDown).Row + 1) = "=SUM(R[-417]C:R[-1]C)"

張美惠 · 发表于 2009-6-13 13:01

謝謝您的協助
已達到向下填滿的功能
不過最後一筆的合計為卻為"0"
可以幫忙合計嗎?
感謝

Aeolian-Vox · 发表于 2009-6-13 13:08

最后一句修改一下。
Range("J" & Range("A2").End(xlDown).Row + 1) = "=SUM(R2C10:R" & Range("A2").End(xlDown).Row & "C)"

張美惠 · 发表于 2009-6-13 13:13

這個代碼並不能套用同格式但資料數量卻不一樣效果
請高手幫忙可以達到同格式但資料數不一致時可以達成同樣效果
謝謝

Aeolian-Vox · 发表于 2009-6-13 13:20

Range("A2").End(xlDown).Row 就是适应資料數量卻不一樣的效果。

張美惠 · 发表于 2009-6-13 13:32

謝謝您的一鼎力協助
再次感謝你

		自动登录	找回密码
密码			免费注册

[求助] 要有向下填滿的效果向高手求代碼