[已解决]如何用在VBA直接后台编辑一个函数

billyzhang0609

假设我需要在 range("A1:w10") 范围内以每一行为单位，计算它们的和，那也就是在X1输入“=sum（A1：W1）”然后下拉

也可以用VBA输入代码 range("X1")="=sum(a1:w1)"

请问：如何用VBA直接后台输入函数(不是VBA直接给某个单元格输入函数)？

我记得是用Application的方法，但是具体怎么用，真的忘记了。。。求高手

最佳答案

月排行榜 / 总排行榜

dsmch

2015-9-22 06:19

1. Sub Macro1()
   
2. [X1] = Application.Evaluate("=SUM(A1:W1)")
   
3. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. [X1] = Application.Evaluate("=SUM(A1:W1)")
   
3. End Sub

复制代码

dsmch

或者

1. Sub Macro1()
   
2. [X1] = Application.Evaluate("SUM(A1:W1)")
   
3. End Sub

复制代码

billyzhang0609

dsmch 发表于 2015-9-22 08:25
或者

[X1] = Application.Evaluate("SUM(A1:W1)")

假设 有个 变量 i 代替 A1 W1中的1

sub test()

dim i&

for i=1 to 999
[X1] = Application.Evaluate("SUM(A & i & :W & i)")
next i

end sub

为什么X1单元格得不出来数值，应该怎么修改？

dsmch

billyzhang0609 发表于 2015-9-22 10:43
[X1] = Application.Evaluate("SUM(A1:W1)")

假设 有个 变量 i 代替 A1 W1中的1

Sub Macro1()
i = 1
[x1] = Application.Sum(Range("a" & i & ":w" & i))
End Sub