Question

我希望根据一组动态xy变量更改一系列条形图的格式。我设法建立了一个正确格式化单个图表的循环 - 选择包含数据的正确列，然后修改选择，以便省略任何空行。

我现在要做的是创建一个循环，将正确的格式应用于工作表中嵌入的13个图表中的每一个。每个图表将读取其自己的三列（X变量和2 x Y变量），其中包含的数据范围因图表而异。我的目标是使用range.offset和一个整数变量（下面的代码中的j2）来实现这一点，它随着每次迭代而增加，以便在循环的每次迭代中将列引用向右移动一个。

我需要这个变量与图表循环同时循环 - 是否可以从先前在循环中激活的数字图表或已经过的迭代次数中获取变量？

以下代码（现已删除）中有问题的行为'j2 = j1 +。

****我现在已经解决了这个问题，主要是通过添加一个简单的计数器（j1）并在循环结构中移动lastrow变量。完成的代码如下所示：****

    Sub ModifyChart()
Dim AllCatRange As Range
Dim lastRow As Long
Dim iLoop As Long
Dim PlotSerRange As Range
Dim PlotSer2Range As Range
Dim PlotCatRange As Range
Dim ws As Worksheet
Dim objCht As ChartObject
Dim j1 As Integer

Set ws = Worksheets("Indicator Summary")
j1 = -3

 With ws
     For Each objCht In ws.ChartObjects
        lastRow = 5
        j1 = j1 + 3
        Set AllCatRange = Worksheets("Indicator Summary").Range("J6:J50").Offset(0, j1)

        For iLoop = 1 To 45
            If AllCatRange.Cells(iLoop, 1) <> "" Then
            lastRow = lastRow + 1
            End If
        Next iLoop

        Set PlotCatRange = .Range("J6:J" & lastRow).Offset(0, j1)
        Set PlotSerRange = .Range("K6:K" & lastRow).Offset(0, j1)
        Set PlotSer2Range = .Range("L6:L" & lastRow).Offset(0, j1)

        With objCht
        .Chart.SeriesCollection(1).XValues = "=" & PlotCatRange.Address(False, False, xlA1, xlExternal)
        .Chart.SeriesCollection(1).Values = "=" & PlotSerRange.Address(False, False, xlA1, xlExternal)
        .Chart.SeriesCollection(2).XValues = "=" & PlotCatRange.Address(False, False, xlA1, xlExternal)
        .Chart.SeriesCollection(2).Values = "=" & PlotSer2Range.Address(False, False, xlA1, xlExternal)

        Set AllCatRange = Nothing
        Set PlotCatRange = Nothing
        Set PlotSerRange = Nothing
        Set PlotSer2Range = Nothing

        End With

    Next objCht
    End With

End Sub

谢谢，Ant

Answer 1

正文中的编辑提供了答案和正确的代码

VBA将整数与图表循环迭代组合在一起

1 个答案: