Question

在我的工作簿中，我使用宏创建了一些图表，这些图表从工作表“ FG_Count”中获取数据。但是我不知道如何编写总是使用正确列的宏。

该图的数据位于范围B3 / D3 / F3 / H3中，并且这些图是使用前循环创建的。

这是我用于创建图表的宏。

Private Sub CommandButton1_Click()
    Dim v
    Dim a As Integer 

    For Each s In ActiveWorkbook.Sheets
        If s.Visible = True Then
            v = v + 1
        End If
    Next s

    a = 1
    For i = 2 to v 
        ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select
        With ActiveChart
            For Each s In ActiveChart.SeriesCollection
                s.Delete
            Next s
            .SeriesCollection.NewSeries
            .FullSeriesCollection(1).Name = "='Project Overview'!$B$" & a

            ' Here I don't know how to write the Code that it works
            .FullSeriesCollection(1).XValues = "='FG_Count'!$ ...."

            .FullSeriesCollection(1).Values = "={1}"
            .Axes(xlCategory).Select
            .Axes(xlCategory).MaximumScale = 1
        End With
        a = a + 1
    Next i
End Sub

编辑：

我可以找到一个解决方案..也许这不是最好的方法，但是它可行：）

For i = 2 To v
    Dep = Worksheets(i).Name

    If i = 2 Then
        ColumnLetter = "B"
    ElseIf i = 3 Then
        ColumnLetter = "D"
    ElseIf i = 4 Then
        ColumnLetter = "F"
    ElseIf i = 5 Then
        ColumnLetter = "H"
    ElseIf i = 6 Then
        ColumnLetter = "J"
    ElseIf i = 7 Then
        ColumnLetter = "L"
    ElseIf i = 8 Then
        ColumnLetter = "N"
    End If

    ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select
    With ActiveChart
        For Each s In ActiveChart.SeriesCollection
            s.Delete
        Next s
        .SeriesCollection.NewSeries
        .FullSeriesCollection(1).Name = "='Project Overview'!$B$" & e
        .FullSeriesCollection(1).XValues = "='FG_Count'!$" & ColumnLetter & "$3"
        .FullSeriesCollection(1).Values = "={1}"
        .Axes(xlCategory).Select
        .Axes(xlCategory).MaximumScale = 1
    End With
Next

Answer 1

秘密在于知道字母A具有ASCII码65。然后，我们可以使用CHR $函数将ASCII值转换为文本。这样您就可以替换整个

 If i = 2 Then
    ColumnLetter = "B"

用

屏蔽

  ColumnLetter = Chr$(64 + i)

VBA-创建具有不同列范围的图表

1 个答案: