[已解决]求一段代码解决自动生成雷达图请老师帮忙啊。…。…。…。…。…。…。…。……

suzeawer · 发表于 2014-2-9 15:32

本帖最后由 suye1010 于 2014-2-9 18:49 编辑

老师们啊，领导让我做一张图，本来做好了，他要看图，说是更直观些。可这超出我的能力范围了，唉………… 所以在此求助。

我要的已经做成图片，请帮忙，小弟先谢为敬了！！！
点按钮则生成图片，也可以让程序自动识别自8行起向下所有有效数据

Book1.zip (17.01 KB, 下载次数: 15)

suye1010 · 发表于 2014-2-9 18:47

这个最佳答案由 suye1010 给出，感谢 suye1010 的回答。

单击隐藏图章

本帖最后由 suye1010 于 2014-2-9 18:52 编辑

Sub AddRadarChart()
Dim i, sha
'Remove existed charts
For Each sha In ActiveSheet.Shapes
If sha.Type = 3 Then sha.Delete
Next
'Add new chart
With ActiveSheet.ChartObjects.Add(100, 100, 500, 500).Chart
.ChartType = xlRadar
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = "Target"
.SeriesCollection(1).Values = Array(10, 10, 10, 10, 10, 10, 10, 10)
For i = 8 To Cells(65536, 7).End(xlUp).Row
.SeriesCollection.NewSeries
.SeriesCollection(i - 6).Name = Cells(i, 7)
.SeriesCollection(i - 6).Values = "='Supplier Overview'!$H$" & i & ":$O$" & i
Next i
.FullSeriesCollection(1).XValues = "='Supplier Overview'!$H$5:$O$5"
.HasTitle = True
.ChartTitle.Text = "Supplier Review"
End With
End Sub

复制代码

副本Book1.zip (17.04 KB, 下载次数: 28, 售价: 1 个金币)

suzeawer · 发表于 2014-2-9 18:53

suye1010 发表于 2014-2-9 18:47

谢谢版主！！！太感谢了！

我的是2007的版本，每次运行都有一个提示，说是不支持的，但有结果。谢谢！！！！！！

suzeawer · 发表于 2014-2-9 19:04

suye1010 发表于 2014-2-9 18:47

老师，发现一个问题：

数据是从8行开始收集的，但5行的名字没了，还有报错的问题

suzeawer · 发表于 2014-2-9 19:20

suzeawer 发表于 2014-2-9 19:04
老师，发现一个问题：

数据是从8行开始收集的，但5行的名字没了，还有报错的问题

12.zip (48.78 KB, 下载次数: 20)

xpql · 发表于 2015-1-28 15:27

很受用呀减少自己操作做图了

chuanxiang · 发表于 2015-10-31 12:11

谢谢，非常有用

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

[已解决]求一段代码解决自动生成雷达图请老师帮忙啊。…。…。…。…。…。…。…。……

点评

点评

[已解决]求一段代码解决自动生成雷达图 请老师帮忙啊。…。…。…。…。…。…。…。……

点评

点评

[已解决]求一段代码解决自动生成雷达图请老师帮忙啊。…。…。…。…。…。…。…。……