0

我已经编写了通过单击按钮生成图形的代码，它工作正常。

问题是它正在选择整个列，即开始到结束，所以我想从第二个单元格中选择指定的列。

这是我的代码：

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" 那么它应该从 Columns(b).Offset(0, -2) 的第二个单元格中选择数据

4

1 回答 1

0

替换Columns(b)为例如Range(cells(2, b), cells(65536, b))。

65536 是 Excel 2003 中可能的最高行号，不知道在以后的版本中它是什么。只需将最后一行编号放在您的情况下即可。

于 2012-10-11T13:25:56.907 回答