VB6.0与excel 求代码
答案:1 悬赏:50 手机版
解决时间 2021-02-17 19:48
- 提问者网友：精神病院里
- 2021-02-16 21:35
VB6.0与excel 求代码
最佳答案
- 五星知识达人网友：三千妖杀
- 2021-02-16 22:25
Sub Macro3()
'
' Macro3 Macro
'
'
For i = 1 To 3
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("A2:D2,A" & i + 2 & ":D" & i + 2)
Next
End Sub不用VB6,直接在Excel中使用VBA即可。
追问能否找个注解 没看明白 不过确实出来三个图追答这个其实很简单，会VB的应该都会。关键在A2:D2是你的表头，后面是3个行的内容，随图表变化。
'
' Macro3 Macro
'
'
For i = 1 To 3
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("A2:D2,A" & i + 2 & ":D" & i + 2)
Next
End Sub不用VB6,直接在Excel中使用VBA即可。
追问能否找个注解 没看明白 不过确实出来三个图追答这个其实很简单，会VB的应该都会。关键在A2:D2是你的表头，后面是3个行的内容，随图表变化。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯