我已经编写了通过单击按钮生成图表的代码,它正常工作。
问题是它是选择整个列i,e开始结束,所以我想从第二个单元格中选择指定的列。
这是我的代码:
Dim ch As Chart
Set ch = ActiveWorkbook.Charts.Add
Set ch = ch.Location(Where:=xlLocationAsObject, Name:=assume)
With ch
.ChartType = xlXYScatterLines
With .Parent
.Top = Columns(b).Offset(0, 4).Top
.Left = Columns(b).Offset(0, 4).Left
.Name = "ch"
End With
End With
Dim sh As Series
Set sh = ch.SeriesCollection(1)
With sh
.Values = Columns(b).Offset(0, 0)
.XValues = Columns(b).Offset(0, -2)
End With
这里“假设”是保存工作表名称的变量。并且“b”是保持列名示例“a”“b”......
的变量soo如果“b”= coulmn“e”那么它应该从列的第二个单元格中选择数据(b).Offset(0,-2)
答案 0 :(得分:0)
将Columns(b)
替换为例如Range(cells(2, b), cells(65536, b))
。
65536是Excel 2003中可能的最高行号,不知道它在更高版本中是什么。只要把最后一行编号放在你的情况下。