2017-04-10 57 views
0

我正试图在我的vba上绘制图表并设置图表范围。我希望图表范围在有空单元时结束,因为我有很多数据。但是,它不起作用。我想得到很多分,但我最终只得到一分。我检查了图表中选定的数据,结果发现范围不是我想要的范围,但我输入了正确的范围。谢谢你的帮助。设置图表范围并在有空单元格时停止

Set rng = Sheet2.range("I24", ActiveCell.End(xlDown)) 
Set ach = Sheet3.Shapes.AddChart2 
ach.Chart.SetSourceData Source:=rng 
ach.Chart.ChartType = xlXYScatter 
ach.Chart.ChartTitle.Text = "Alignment" 
ach.Left = 200 
ach.Height = 400 
ach.Width = 600 
+0

在哪里呢你'rng'用于启动图表?是从“I24”一路下来的吗? –

+0

yup直到有空单元 –

回答

0

用途:

With Sheet2 
    Set rng = .Range(.Range("I24"), .Range("I24").End(xlDown)) 
ENd With 
+0

它现在的作品!谢谢 :) –

相关问题