[已解决]VBA 数组画图求助

lvliang19890415

请教各位牛人，如何直接用数组中的数据画图，比如，取出数组中的某一列，作柱状图。

最佳答案

月排行榜 / 总排行榜

孤单无所谓

2014-7-26 15:13

1. Sub ChartCreate()
   
2.     '必须将数组转换成像这样的 "={1,2,3,4,5,6,7}"  String格式， 再用Values=这个string
   
3.     Dim A() As Variant
   
4.     A = Array(1, 2, 3, 4, 5, 6, 7)  '定义数组并赋值
   
5.     For i = LBound(A) To UBound(A) '将数组转换成String格式
   
6.     str_A = str_A & A(i) & ","
   
7.     Next
   
8.     str_A = "={" & Left(str_A, Len(str_A) - 1) & "}"
   
9.     Charts.Add    '添加Chart
   
10.     ActiveChart.ChartType = xlColumnClustered
    
11.     ActiveChart.SeriesCollection.NewSeries  '添加系列
    
12.     ActiveChart.SeriesCollection(1).Values = str_A
    
13. End Sub

复制代码

跳转到最佳答案楼层

su45

画图咱不会，飘过了………………

lvliang19890415

你这不会又是最佳答案吧。。！

su45

没办法，不会只能帮顶下了！

孤单无所谓

1. Sub ChartCreate()
   
2.     '必须将数组转换成像这样的 "={1,2,3,4,5,6,7}"  String格式， 再用Values=这个string
   
3.     Dim A() As Variant
   
4.     A = Array(1, 2, 3, 4, 5, 6, 7)  '定义数组并赋值
   
5.     For i = LBound(A) To UBound(A) '将数组转换成String格式
   
6.     str_A = str_A & A(i) & ","
   
7.     Next
   
8.     str_A = "={" & Left(str_A, Len(str_A) - 1) & "}"
   
9.     Charts.Add    '添加Chart
   
10.     ActiveChart.ChartType = xlColumnClustered
    
11.     ActiveChart.SeriesCollection.NewSeries  '添加系列
    
12.     ActiveChart.SeriesCollection(1).Values = str_A
    
13. End Sub

复制代码

lvliang19890415

孤单无所谓 发表于 2014-7-26 15:13

多谢~~~~请问直方图的charttype是什么？

lvliang19890415

孤单无所谓 发表于 2014-7-26 15:13

比如一列数：1,2,3,1,3,2。。。我想画的图是三个柱子1、2、3，每个柱子的高度是出现的次数

孤单无所谓

比如出现的次数分别是 5 1 2 就设置{5,1,2}
然后说一下 每一个类型对应的值
你可以在VBE中 按F1 然后输入XlChartType 搜索 看一下XlChartType枚举 就知道各种图表的参数是什么了

lvliang19890415

孤单无所谓 发表于 2014-7-26 16:23
比如出现的次数分别是 5 1 2 就设置{5,1,2}
然后说一下 每一个类型对应的值
你可以在VBE中 按F1 然后输入 ...

{:2812:}