写动态公式到指定单元格

拼音佳佳

这个问题没有实际需求,做为知识积累,并且百度找不到.
在指定单元格内写入公式
Worksheets("5月工资").Cells(24, 3).Formula = "=sum(a1:a20)"
如何让单元格显示的公式是=sum(b1:b20)?
嗯,当然了,我也可以用offset写入一个死公式来对b列求和.

Sub 练习()
For xa = 1 To 100
Cells(21, 1).Formula = "=sum(a1:a20)" '要求改写为b1:b20等等等等
MsgBox Cells(21, 1)
Next
End Sub




直接使用/调用EXCEL的公式/函数
Application.WorksheetFunction.sum(range("A1:A20"))
Cells(3, 3).Resize(26,3)
在指定单元格内写入公式
Worksheets("5月工资").Cells(24, 3).Formula = "=sum(b13)"

excel玉米

单元格显示的公式是=sum(b1:b20)
Worksheets("5月工资").Cells(24, 3).Formula = "=sum(b1:b20)"

Yalishanda30

.Formula = "'=sum(a1:a20)"

拼音佳佳

excel玉米 发表于 2019-12-6 09:23
单元格显示的公式是=sum(b1:b20)
Worksheets("5月工资").Cells(24, 3).Formula = "=sum(b1:b20)"

如果做100次循环,在同一个单元格写入a1:a20一直改写到xx1:xx20...

blanksoul12

For i = 1 To 100
    Cells(1, i).Formula = "=sum(" & Cells(1, i).Address & ":" & Cells(20, i).Address & ")"
Next

Q155133209

直接resize  = 公式 不就好了 还循环干嘛

拼音佳佳

Q155133209 发表于 2019-12-6 09:39
直接resize  = 公式 不就好了 还循环干嘛

都说了并没有实际需求,而且我自己也知道变通的方法.纯粹为了研究嘛.

拼音佳佳

blanksoul12 发表于 2019-12-6 09:38
For i = 1 To 100
    Cells(1, i).Formula = "=sum(" & Cells(1, i).Address & ":" & Cells(20, i).Addre ...

Sub 练习()
For i = 1 To 20
     Cells(21, 1).Formula = "=sum(" & Cells(1, i).Address & ":" & Cells(20, i).Address & ")"
     MsgBox Cells(21, 1).Formula
Next
End Sub

膜拜膜拜

lss001

拼音佳佳 发表于 2019-12-6 09:54
Sub 练习()
For i = 1 To 20
     Cells(21, 1).Formula = "=sum(" & Cells(1, i).Address & ":" & Cel ...

列变化→
Cells(24, 3).Formula = "=sum("& Range(cells(1, i), cells(20, i).address)) &")"
行变化→
Cells(24, 3).Formula = "=sum("& Range(cells(j, 1), cells(j + 19, 1).address)) &")"
行列都变→
Cells(24, 3).Formula = "=sum("& Range(cells(j, i), cells(j + 19, i).address)) &")"