變量圖範圍

Question

我希望圖表範圍在Sheet1範圍更改時發生變化。範圍從第5行開始，可以在任何其他行結束。試過這樣：

Option Explicit 

Sub Change_Chart() 
Application.ScreenUpdating = False 

Dim x As Range, y As Range 

Set x = Sheets("Sheet1").Range("B5", Range("B5").End(xlDown)) 
Set y = Sheets("Sheet1").Range("Q5", Range("Q5").End(xlDown)) 

ActiveChart.ChartArea.Select 
ActiveChart.PlotArea.Select 
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(x, y) 

Application.ScreenUpdating = True 
End Sub 

它編譯，但在運行時錯誤說「對象的方法‘範圍’「_Global失敗」

Answer 1

嘗試用代碼的最後一行的這種變化：

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(ChartRangex.address & _ 
          "," & ChartRangey.Address) 

或此修改：

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Union(ChartRangex, ChartRangey).Address) 

編輯：我有一個關於想法0錯誤（根據下面的評論）：

我有和想法什麼可能是錯的。更改Set line弄成這個樣子：

Set x = Sheets("Sheet1").Range(Sheets("Sheet1").Range("B5"), Sheets("Sheet1").Range("B5").End(xlDown))` 

做同樣與其他Set line。