Question

我是VBA / Macros的新手，我想创建一个仪表板，将工作簿1中的多个图表合并到工作簿2中的新的集中式工作表中。为此，我决定在VBA中添加一个代码，将数据从工作簿1复制到工作簿2中，但是当我将新信息添加到更改其数据的工作簿1时，它不会自动更新工作簿2中的数据。有没有办法同步工作表和两个工作簿，以便workbook2也更新，我不需要做任何事情？另外，我试图将工作簿2中的数据转换为自动更新的图表，以便在工作簿2（基本上是仪表板）中有一个易于阅读的表格。

Answer 1

下面的脚本会将工作簿中的所有图表复制到一张工作表中。我认为，这比将所有内容移动到另一个工作簿要清晰得多。希望这会有所帮助。

Sub PullOverAllCharts()

    Dim wsChart As Worksheet
    Dim ws As Worksheet
    Dim oChartObj As ChartObject
    Dim oChart As Chart
    Dim NextRow As Long
    Dim NextColumn As Long
    Dim ChartCount As Long


    Set wsChart = ThisWorkbook.Worksheets("Chart Sheet")

    wsChart.Cells.ClearContents

    On Error Resume Next
    wsChart.ChartObjects.Delete
    On Error GoTo 0

    Worksheets("Chart Sheet").Select

    NextRow = 1
    NextColumn = 1
    ChartCount = 0
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Log Sheet" And ws.Name <> "All Data" And ws.Name <> "Chart Sheet" Then
            If ws.ChartObjects.Count > 0 Then
                ChartCount = ChartCount + 1
                ws.ChartObjects(1).Copy
                With wsChart

                    .Paste
                    Set oChartObj = .ChartObjects(.ChartObjects.Count)
                    oChartObj.Left = .Cells(NextRow, NextColumn).Left
                    oChartObj.Top = .Cells(NextRow, NextColumn).Top
                End With
                If ChartCount Mod 4 = 0 Then
                    NextRow = NextRow + 16
                    NextColumn = 1
                Else
                    NextColumn = NextColumn + 8
                End If
            End If
        End If
    Next

    wsChart.Activate


End Sub

如何在workbook1更新时将工作簿1中的数据添加到workbook2和workbook2更新？

1 个答案: