|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub ddd()
- 'ActiveChart.SeriesCollection.NewSeries
- 'ActiveChart.SeriesCollection(2).Name = "=Sheet1!$A$3"
- ActiveChart.SeriesCollection(1).XValues = _
- "='Sheet1'!$f$1:$I$1,'Sheet1'!$B$1:$e$1"
- ActiveChart.SeriesCollection(1).Values = _
- "=Sheet1!$f$2:$I$2,Sheet1!$B$2:$e$2"
-
- ActiveChart.SeriesCollection(3).Values = _
- "=Sheet1!$f$4:$I$4,Sheet1!$B$4:$e$4"
- ActiveChart.SeriesCollection(2).Values = _
- "=Sheet1!$f$3:$I$3,Sheet1!$B$3:$e$3"
- ActiveChart.SeriesCollection(3).Name = "='Sheet1'!$A$4"
- End Sub
复制代码 |
|