1

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

在新行中添加员工姓名和小时数后，我需要底部的小计以将新行包含在总小时数的计算中。

我已经使用 for...next 循环循环到该行，其中 x 发生了变化。

我已经把它输出到我的工作表中了。这在逻辑上是正确的，但实际上并不奏效。这只是为了让我了解我正在尝试做的事情。

=SUM(范围(细胞(5, 17), 细胞(x, 17)))

最后，我只想在小计单元格中显示这样的内容... =SUM(Q5:Q18)

太感谢了！

4

1 回答 1

0

试试下面的代码：

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
于 2013-06-05T19:02:37.897 回答