在多个Excel工作表中应用各种图表(根据每个工作表中的行数)

时间:2017-03-29 22:39:48

标签: excel vba excel-vba

我创建了一个数据透视表,显示主要城市为“过滤器”(总共80个),某些性能数字为“值总和”。在Excel文件中,我有26张相应于这些城市的国家/地区的表格,并且在每张表格中都有一个包含城市列表的表格(对于某些国家/地区,它可以是1行(1个城市),5行或其他...)< / p>

在每个国家/地区表中,我应该显示该表(已经完成)以及表性能的每一行的图表(同样,它可以是1,5或其他)。

我认为最简单的方法是在每张工作表中粘贴数据透视表,然后自动选择具有城市名称的每一行,并将其应用到数据透视的过滤器。

到目前为止,这是我写的代码:

Sub PastPivot() 
    Dim sht As Worksheet
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.ChartArea.Copy
    For Each sht In Worksheets
        sht.Range("a16").PasteSpecial
    Next
    Application.CutCopyMode = False
End Sub

但我有几个问题:

  1. 运行代码

  2. 时会出现“错误5”
  3. 我不确定如何编写代码,以便在每个工作表中执行尽可能多的图表行(以及如何确定图表的位置,因为我不会有相同的数字每张图表上的图表。

  4. 也许解决方案是使用其他类型的图形而不是枢轴图形。

    关于如何执行它的任何建议?

0 个答案:

没有答案