求高手写个代码，自动生成图表的。

高飞扬

这个问题问了N遍，报考百度至今无人能解，不知道是太麻烦没时间看还是没有办法写，真诚求高手挑战一下，帮帮小弟。
在附件的周报月报中，需按数据自动生成图表，难点在 每个月的周次日期数据位置不固定，求高人研究帮解！

KCFONG

see if help you

You must kept the first 2 charts

蓝桥玄霜

1. Sub lqxs()
   
2. Dim Arr, ks, js, nm1$, nm2$, dz1$, dz2$
   
3. Dim dz$, dz3$, yy$, nm$
   
4. Application.ScreenUpdating = False
   
5. Sheet3.Activate
   
6. Arr = [a1].CurrentRegion
   
7. ks = 3: js = UBound(Arr) - 1
   
8.     nm = Sheet3.Name
   
9.     yy = Left(nm, Len(nm) - 3)
   
10.     nm1 = "图表 6"
    
11.     nm2 = "图表 4"
    
12.     dz = "A2:B" & js & ",D2:E" & js
    
13.     ActiveSheet.ChartObjects(nm1).Activate
    
14.     With ActiveChart
    
15.         .SetSourceData Source:=Sheets(nm).Range(dz), PlotBy:=xlColumns
    
16.         .SeriesCollection(1).Select
    
17.         dz1 = "R3C2:R" & js & "C2"
    
18.         .SeriesCollection(1).Values = "='" & nm & "'!" & dz1
    
19.         dz2 = "R3C4:R" & js & "C4"
    
20.         .SeriesCollection(2).Values = "='" & nm & "'!" & dz2
    
21.         dz3 = "R3C5:R" & js & "C5"
    
22.         .SeriesCollection(3).Values = "='" & nm & "'!" & dz3
    
23. 
    
24.         .ChartTitle.Select
    
25.         Selection.Characters.Text = yy & "月份合格率"
    
26.     End With
    
27.     ActiveSheet.ChartObjects(nm2).Activate
    
28.     With ActiveChart
    
29.         .ChartArea.Select
    
30.         dz = "H2:T2,H" & js + 1 & ":T" & js + 1
    
31.         .SetSourceData Source:=Sheets(nm).Range(dz), PlotBy:= _
    
32.         xlRows
    
33.         dz2 = "R" & js + 1 & "C8:R" & js + 1 & "C20"
    
34.         .SeriesCollection(1).Values = "='" & nm & "'!" & dz2
    
35.         .ChartTitle.Select
    
36.         Selection.Characters.Text = yy & "月份不良趋势统计"
    
37.     End With
    
38. Range("A" & ks).Select
    
39. Application.ScreenUpdating = True
    
40. MsgBox "OK"
    
41. End Sub
    
42. 
    

复制代码

蓝桥玄霜

请见附件。

高飞扬

十分感谢两位热心的老师！ 如果套用到其他月份和统计表有问题的时候，再来请教！再次谢过高手！

高飞扬

蓝桥玄霜 发表于 2013-9-25 16:56
请见附件。

版主您好！ 为什么我使用起来不能直接作出图表呢？ 另外，如果将八月份的VB数据套用到7月份作图，可以实现（我们需要的就是有这个功能能自动作图的，而且可以套用到其他月份）？ 可以麻烦再帮看看！十分感谢！ 统计报告0925a.zip (91.76 KB, 下载次数: 26)

2013-10-4 12:04 上传

点击文件名下载附件

蓝桥玄霜

我是利用了表格上原有的图表，如果要套用的话，可把表格全部复制过去，日报数据修改成当月数据即可。
全部重新制图的代码根据图表的复杂程度代码会很多。
制图也是用录制宏的方法获得代码的，如果你有时间可以自己试试看。

高飞扬

KCFONG 发表于 2013-9-25 12:03
see if help you

You must kept the first 2 charts

Hi, KC , 回去仔细研究了一下， 你帮忙写的VB还是基本能完成自动制图的，但是还有3个地方有点问题，不知道可以帮忙再更改一下么？
1. 合格率图表那边的柱线图到第3个开始就没有合格率的趋势线了，下面的都是…
2.  不良走势图线状的 到第2个开始下面也变成柱状了，能改成和原来一样线状的？我试着改没改好
3.  月报没有放一起做出来。

十分感谢！ 统计报告0901v1.zip (102.85 KB, 下载次数: 87)

2013-10-7 07:54 上传

点击文件名下载附件

lizuiyan

感谢，学习一下！

xlwxxh

学习了，好像挺复杂的