宏下面的工作正常,但我想範圍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的值。
宏下面的工作正常,但我想範圍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的值。
試試這個:
Source:=Range("Sheet1!$E$13:$F$" & (23 + Range("D2").Value))
你只需要修改範圍字符串 「工作表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
您可以使用:
Source:=Range("Sheet1!$E$13:$F$13").Resize(10 + Range("D2").Value)