Question

下面的宏工作正常，但我想要范围D2的范围F23和数。

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

因此，如果单元格D2中的数字是87，那么$ F $ 23将是$ F $ 110。总是将23与D2中的值相加。

Answer 1

试试这个：

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

Answer 2

你只需要修改范围字符串＆＃34; Sheet1！$ E $ 13：$ F $ 23＆＃34;。你可以尝试：

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

Answer 3

您可以使用：

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

Excel VBA：总和图表范围

3 个答案: