交互式动态图表

635149045

各位大神：

      想做一张交互式动态图表，上网查了教程学习制作，但是网上只有单列柱形图的，我想做双列柱形图，应该怎样操作？请各位指教！

zpy2

下面好像已经有图表了，。。。

635149045

我想做成，分为5个阶段的交互式动态图表，。看教程学会了单列柱形图动态图表，但是我想做双列的（效果就是附件里的图，分五个阶段）

Datous

635149045 发表于 2019-4-3 10:11
我想做成，分为5个阶段的交互式动态图表，。看教程学会了单列柱形图动态图表，但是我想做双列的（效果就是 ...

定义名称有点麻烦，用代码做的。开表，启用宏。

1. Option Explicit
   
2. Sub DynChart()
   
3. Dim dbl5Loop#(), dbl10Loop#(), strAxis$()
   
4. Dim rng5Loop As Range, rngPoint As Range, A%, intSerCnt%, bytStageNum As Byte
   
5. 
   
6. intSerCnt = [A100].End(xlUp).Row - 2
   
7. bytStageNum = [H16].Value
   
8. Set rng5Loop = [A3].Resize(intSerCnt).Offset(0, bytStageNum * 2 - 1)
   
9. 
   
10. For Each rngPoint In rng5Loop
    
11.     If rngPoint.Value <> Empty Then
    
12.         ReDim Preserve dbl5Loop(A), dbl10Loop(A), strAxis(A)
    
13.         dbl5Loop(A) = rngPoint.Value
    
14.         dbl10Loop(A) = rngPoint.Offset(0, 1).Value
    
15.         strAxis(A) = Range("A" & rngPoint.Row).Value
    
16.         A = A + 1
    
17.     End If
    
18. Next
    
19. With Me.ChartObjects("图表 1").Chart
    
20.     .SeriesCollection(1).Values = dbl5Loop
    
21.     .SeriesCollection(2).Values = dbl10Loop
    
22.     .SeriesCollection(1).XValues = strAxis
    
23. End With
    
24. End Sub

复制代码

635149045

Datous 发表于 2019-4-3 10:21
定义名称有点麻烦，用代码做的。开表，启用宏。

谢谢，有心了

Datous

给你放个附件。
20190403-钢板强度数据统计.7z (13.76 KB, 下载次数: 84)

2019-4-3 10:32 上传

点击文件名下载附件

635149045

Datous 发表于 2019-4-3 10:32
给你放个附件。

非常感谢大神，正是我想要的效果。再请问一下这个图怎么完美复制到Word上，在Word上也是动态图效果

Datous

word嵌入窗体控件、excel，我也没做过