Question

我正在编写一个代码，将新员工添加到员工列表中，并更新这些员工下面的所有和函数。我在这个网站上搜索了几天，似乎找不到任何有同样问题的人。

一旦在新行中添加了员工的姓名和小时数，我需要在底部添加小计，以便在其中计算总小时数。

我使用for ... next循环向下循环，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

OR

如果您想将公式作为字符串发送，可以使用以下内容。

Sub sample()

   dim x as Integer

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

如何将sum函数输出到单元格中

1 个答案: