动态图表（柱状图）

杨大敏

各位老师好：

        由于工作需要：完成一个动态图表（柱状图）

        就是图表根据单元格数据内容的多少，则图表就自动捕捉多少组数据这样。

       希望有会的老师帮忙解答一下，谢谢。

杨大敏

有会的老师帮忙看看吗？非常谢谢

若标题做的不对，也麻烦朋友们指点一下，谢谢。

杨大敏

怎么没有老师回答呢，是否题目太复杂了

希望能得到老师们的回答。

yao2010678

用currentregion

yao2010678

杨大敏 发表于 2017-8-24 19:29
怎么没有老师回答呢，是否题目太复杂了

希望能得到老师们的回答。

你是做发动机的？

杨大敏

yao2010678 发表于 2017-8-24 20:35
你是做发动机的？

是啊

请问怎么做呢，麻烦你帮忙做好发来附件谢谢。

蓝桥玄霜

Sheet4代码：
Private Sub Worksheet_Activate()
Call lqxs
End Sub

杨大敏

蓝桥玄霜 发表于 2017-8-25 11:14
Sheet4代码：
Private Sub Worksheet_Activate()
Call lqxs

老师你好

      你的代码是图片，我不能复制，或者你上传一下附件我下载吧，谢谢。

杨大敏

蓝桥玄霜 发表于 2017-8-25 11:14
Sheet4代码：
Private Sub Worksheet_Activate()
Call lqxs

老师你好：我按照你的方法，插入模块，将代码全部打进去，执行有错误，停顿在图片下面位置。


Sub lqxs()

Dim arr, ks, js(3), shnm$, nm2$, dz2$, cht As Chart
Dim dz$, dz3$, yy$, nm, m&, i&, j&

Application.ScreenUpdating = False
shnm = Sheet1.Name

nm = Array("图表 1", "图表 3", "图表 4", "图表 5")
ks = Array(9, 37, 67, 95)

For j = 0 To UBound(nm)
    arr = Sheet1.Cells(ks(j), 6).CurrentRegion

    For i = 2 To UBound(arr)
        If arr(i, 1) = "" Then js(j) = i + ks(j) - 2: Exit For
        Next

        dz = "f" & ks(j) & ":h" & js(j)
        ActiveSheet.ChartObjects(nm(j)).Activate
        Set cht = ActiveChart

        With cht
             .SetSourceData Source:=Sheet1.Range(dz), PlotBy:=xlColumns

             dz1 = "g" & ks(j) + 1 & ":g" & js(j)
             .SeriesCollection(1).Values = "=" & shnm & "'!" & dz1

             dz2 = "h" & ks(j) + 1 & ":h" & js(j)
             .SeriesCollection(2).Values = "=" & shnm & "'!" & dz2

        End With

    Next
    [a1].Select
    Application.ScreenUpdating = True

    End Sub


在Sheet4 插入：
Private Sub Worksheet_Activate()
Call lqxs
End Sub



以上我想通过一个按钮来生成，麻烦老师再帮忙看下。

蓝桥玄霜

.SeriesCollection(1).Values = "=" & shnm & "'!" & dz1
中少抄了一个单引号'