这实际上是两个不同的问题。首先,我有一个包含三列数据的 Excel 表。我在 A、C 和 E 列中有 12 行数据。根据我一直在查找的内容,该程序应将 A 列分配给 x 轴,将 C 列和 D 列分配给 y 轴,同时还添加标签。
Sub ChartMaker()
ActiveWorkbook.Charts.Add
With ActiveWorkbook.ActiveChart
.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Range("A1:A12,C1:C12,E1:E12")
.Location xlLocationAsNewSheet
.HasTitle = True
.ChartTitle.Characters.Text = "CFL Over Time"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (Days)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "CFL"
.Axes(xlCategory).HasMajorGridlines = True
.Axes(xlCategory).HasMinorGridlines = False
.Axes(xlValue).HasMajorGridlines = True
.Axes(xlValue).HasMinorGridlines = False
.HasLegend = False
End With
End Sub
我不断收到错误“对象变量或未设置块变量”。
这是我的第一个问题!
我的第二个问题是如何使用以下数据集创建图表,其中 y 轴上有两组数据,但它们共享一个 x 轴。
数据集一:
X Y1
1 0.87
2 0.45
3 0.92
4 0.03
5 0.99
6 0.45
7 0.63
8 0.83
9 0.28
10 0.66
数据集二:
X Y2
0.3 2
4.5 3
6 6
7.2 1
7.8 6
8.3 1
9.1 4
9.6 5
10 9
13 2
有没有办法让这些在同一张图上?(当然使用 VBA)