如何输出的和功能化进入细胞(How to output the sum function into

我正在写一个代码，将添加一个新员工的员工的列表，并更新所有的这些员工以下的总和功能。 我搜索了这个网站几天，似乎无法找到谁是具有完全相同的问题的人。

一旦雇员的姓名和时间已经在新行中添加了，我需要在底部的小计包括在总学时它的计算新行。

我已经使用了...下一个循环，用X更改循环到该行。

我得到尽可能得到这个输出到我的表。 这是逻辑上是正确的，但实际上并没有正常工作。 这只是给的什么，我试图做一个想法。

= SUM（范围（将细胞（5，17），将细胞（X，17）））

最后我只希望这样的事情在小计电池现身... = SUM（Q5：Q18）

非常感谢！

Answer 1:

试试下面的代码：

Sub sample()

   dim x as Integer

    For x = 5 To 17
        Cells(x, 18) = WorksheetFunction.Sum(Range(Cells(5, 17), Cells(x, 17)))
    Next
End Sub

要么

如果你想发送公式，你可以使用下面的字符串。

Sub sample()

   dim x as Integer

    For x = 5 To 17
        Cells(x, 18) = "=Sum(Q5:Q" & x & ")"
    Next
End Sub

文章来源: How to output the sum function into a cell