vba的函数之传入参数问题 10
需要一个函数，其效果如下：函数名：test假设：A1中为1，A2中为2，A3中为3...........使用事例：=test(A1+A2+A3......+An)//传入...
需要一个函数，其效果如下：
函数名：test
假设：A1中为1，A2中为2，A3中为3...........
使用事例：=test(A1+A2+A3......+An) //传入参数无规则，n仅仅表示无限个数
输出将其中的An使用单元格中的数值代替：1+2+3+......
注：这里的A1，A2这些表示的是某个单元格，而且这些单元是任意的，不一定会是A1，A2~~~~~ 展开
函数名：test
假设：A1中为1，A2中为2，A3中为3...........
使用事例：=test(A1+A2+A3......+An) //传入参数无规则，n仅仅表示无限个数
输出将其中的An使用单元格中的数值代替：1+2+3+......
注：这里的A1，A2这些表示的是某个单元格，而且这些单元是任意的，不一定会是A1，A2~~~~~ 展开
1个回答
展开全部
Sub Test()
Dim my_Number, i As Single
[A1] = 1
[A2] = 2
my_Number = Application.InputBox("请输入n", Default:=3, Type:=1)
For i = 3 To my_Number
Cells(i, 1) = Application.WorksheetFunction.Sum(Range("A1:A" & i - 1))
Next
End Sub
更多追问追答
追问
这里的A1，A2这些表示的是单元格，而且不一定就是A1，A2~~~~~
追答
是1，2，3？然后4，5，6？
连续自然数？
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
