無法從活動單元格到它的上述範圍單元格值

我目前在單元格說H37這是我的活動單元格，並將繼續動態更改。我想用一個範圍H37憑藉其上述細胞中H36 + H35..till H3（最後一個整數值）來總結無法從活動單元格到它的上述範圍單元格值

我想是這樣的，但它不工作：

Dim rng As Range   
Set rng = Range(ActiveCell & H3)     

Range("F3") = Application.WorksheetFunction.Sum(rng)

我想要的總和爲F3。

也試過像---

WorksheetFunction.Sum(Range(ActiveCell, .End(xlUp)))

有什麼建議？

來源

2013-04-28 Developer

我編輯了你的標題。請參閱：「[應該在其標題中包含」標籤「]（http://meta.stackexchange.com/questions/19190/）」，其中的共識是「不，他們不應該」。 – 2013-04-28 22:16:37

試試這個：'Set rng = Range（「h3」，ActiveCell）' – 2013-04-28 22:36:01

你可以試試下面的代碼：

Sub Macro1() 

Dim InitialCell As String 
Dim FinalCell As String 


InitialCell = "H3" 
FinalCell = ActiveCell.Address 

Range("F3").Select 
ActiveCell.Formula = "=Sum(" & InitialCell & ":" & FinalCell & ")" 

End Sub

，如果你想從求和比H3之外的其他地方開始，你可以調整InitialCell和FinalCell表示activecell的地址。這可以通過將單元格位置轉換爲字符串並在單元格F3中寫入一個公式，該公式將這些字符串單元格位置和它們之間的和值進行求和。

希望這會有所幫助！

來源

2013-04-29 00:14:13

您可以使用：

Set rng = Range("H3:" & ActiveCell.address)

這將設置正確的地址。

你可能會發現，雖然這個有趣的：

dim myRngStr as string 
myRngStr = "H3:" & ActiveCell.address 
msgbox myRngStr 
Set rng = Range(myRngStr)

因爲它會告訴你正在尋找的實際地址。

來源

2013-04-28 22:15:49 enderland

是的，它顯示消息H3：$ H $ 37.但我無法在目標單元格F3中獲得總和。 – Developer 2013-04-28 22:28:45

MsgBox Application.WorksheetFunction.Sum（rng）給我0 – Developer 2013-04-28 22:34:30

'Range（「F3」）。Value = Application.WorksheetFunction.Sum（rng）' – 2013-04-29 08:45:28

無法從活動單元格到它的上述範圍單元格值

回答

相關問題