自动生成柱状图求助

黑山上的鹰

图表求助.rar (11.73 KB, 下载次数: 7)

2015-3-29 22:15 上传

点击文件名下载附件

，每月写分析需要手工制作10多个柱状图，费时费力，自己套用了一个宏，达不到要求，能否帮忙改一下，谢谢Sub ProductionCharts()    Dim r As Integer
    Dim rng As Range
    Dim MyChart As ChartObject
    On Error Resume Next
    With Sheets("报表")
       .ChartObjects("MyChart").Delete
        r = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Range(.Cells(3, 1), .Cells(r, 5))
        Set MyChart = .ChartObjects.Add(120, 40, 400, 250)
        MyChart.Name = "MyChart"
        With MyChart.Chart
            .ChartType = xl3DColumnClustered
            .SetSourceData Source:=rng, PlotBy:=xlRows
            .ApplyDataLabels ShowValue:=True
            .HasTitle = True
           .BackWall.Select
            .ApplyLayout (5)
           .Axes(xlCategory).Select
           .Walls.Select
            .Delete
            With .ChartTitle
                .Text = .Range("a1")
                .Font.Name = "宋体"
                .Font.Size = 14

            End With
        End With
    End With
    Set rng = Nothing
    Set MyChart = Nothing
End Sub

黑山上的鹰

继续等待，期待援手

xuyichen

可以先做一个模板，各个图表的数据标准化，之后通过切换图表数据实现不同月份的图表更换，要求是各个月份的数据结构一致。

wuyonglin8198

坐等高手，向这种情况我一般录制宏！！

黑山上的鹰

xuyichen 发表于 2015-3-31 13:11
可以先做一个模板，各个图表的数据标准化，之后通过切换图表数据实现不同月份的图表更换，要求是各个月份的 ...

通过vba查询数据，查询会做，不会做后面的生成图表