2017-01-22 87 views
0

宏下面的工作正常,但我想範圍F23範圍D2的總數。Excel VBA:總和圖表範圍

Sub Macro1() 
ActiveSheet.ChartObjects("Graph").Activate 
ActiveChart.SetSourceData Source:=Range("Sheet1!$E$13:$F$23") 
End Sub 

因此,如果在單元格D2中是數字87,那麼$ F $ 23就是$ F $ 110。總是在D2中總結23的值。

回答

3

試試這個:

Source:=Range("Sheet1!$E$13:$F$" & (23 + Range("D2").Value)) 
2

你只需要修改範圍字符串 「工作表Sheet1 $ E $ 13:!$ F $ 23」。您可以嘗試:

Sub Macro1() 
    ActiveSheet.ChartObjects("Graph").Activate 

    Dim valD2 As Integer 
    valD2 = CInt(Sheets("Sheet1").Range("D2").Value) 
    Dim rangeStr As String 
    rangeStr = "Sheet1!$E$13:$F$" & CStr(valD2 + 23) 

    ActiveChart.SetSourceData Source:=Range(rangeStr) 
End Sub 
2

您可以使用:

Source:=Range("Sheet1!$E$13:$F$13").Resize(10 + Range("D2").Value)