求助！！如何使用存有数据的数组画散点图，不把数据显示到单元格里

vba做pls · 发表于 2019-12-21 22:57

我有数组 x()里面有数据点
ActiveSheet.Shapes.AddChart
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:= #########
。。。
。。。
上面###的部分好像只能用单元格来写，如果直接写
ActiveChart.SetSourceData Source:= x
会报错类型错误，能否在不把x数据显示到单元格里，把图做出来

micch · 发表于 2019-12-22 09:44

散点图，你可以把X,Y坐标数据分别写代码，而不是直接用二维数组。自己录个宏就明白了

vba做pls · 发表于 2019-12-22 17:17

micch 发表于 2019-12-22 09:44
散点图，你可以把X,Y坐标数据分别写代码，而不是直接用二维数组。自己录个宏就明白了

请问可以详细说一下吗，我上面贴的代码就是自己录的，绘图要选数据，只能在单元格里选啊。您说的我没太明白，我想不把数组里的数据拿到表格的单元格里显示

micch · 发表于 2019-12-22 19:28

vba做pls 发表于 2019-12-22 17:17
请问可以详细说一下吗，我上面贴的代码就是自己录的，绘图要选数据，只能在单元格里选啊。您说的我没太明 ...

会录制就好办啊，添加散点图，新增数据系列，选择X和Y值，然后看看代码就知道了。散点图一个系列需要两组数据

Datous · 发表于 2019-12-23 11:56

第一个数据系列，X/Y轴系列值

With ActiveChart.SeriesCollection(1)
.XValues = Array(2, 3)
.Values = Array(4, 1)
End With

悠悠的炊烟 · 发表于 2019-12-23 15:54

曾在excel 2010中测试过setsourcedata属性:
sheet1.chartobjects(1).chart.setsourcedata source := ?
当这个？是单元格引用时，ok
当这个？是数组时，失败
所以setsourcedata不可直接使用数组替代单元格区域引用，但你可以用5楼的方法曲线救国。
此外，excel版本一直在升级，不知道2010之后的版本是否有变化

vba做pls · 发表于 2019-12-24 15:47

Datous 发表于 2019-12-23 11:56
第一个数据系列，X/Y轴系列值

With ActiveChart.SeriesCollection(1)

好的，需要转换一下格式

vba做pls · 发表于 2019-12-24 15:47

悠悠的炊烟发表于 2019-12-23 15:54
曾在excel 2010中测试过setsourcedata属性:
sheet1.chartobjects(1).chart.setsourcedata source := ?
...

好的，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 求助！！如何使用存有数据的数组画散点图，不把数据显示到单元格里