2013-06-05 41 views
1

我正在編寫一個代碼,該函數將新員工添加到員工列表並更新這些員工下面的所有求和函數。我在這個網站上搜索了幾天,似乎無法找到任何具有相同問題的人。如何將求和函數輸出到單元格

一旦員工的姓名和小時數已添加到新行中,我需要底部的小計在其總計小時數中包含新行。

我已經循環使用for ... next循環,x變化。

我得到這個輸出到我的工作表。這在邏輯上是正確的,但實際上並不奏效。只是想知道我想要做什麼。

= SUM(範圍(單元(5,17),電池(X,17)))

最後我只是希望這樣的事情在小計電池露面...... = SUM (Q5:Q18)

非常感謝!

+0

你在做什麼的代碼在哪裏?這將有助於顯着。我懷疑你可以使用'Range(Cells(5,17),Cells(x,17))。Address' – enderland

回答

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 

OR

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

Sub sample() 

    dim x as Integer 

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

Perfect!代碼的第二個版本正是我所需要的!我不能投票,但顯然是因爲我需要15個聲望才能做到這一點...... – FinanceMajor

+0

啊。現在我擁有它。再次感謝。第一篇文章。 – FinanceMajor

相關問題