圖表根據范圍大小返回不同的結果

Question

我嘗試在macro-excel中制作程序，以顯示2012年12月至今的月度數據圖表。

我希望X軸是月份，但僅在1月份，圖例的軸已切換。

我的代碼：

Public Sub pi()

    Dim bulan1
    Dim bulan2
    Dim kpi As Worksheet
    Dim data As Worksheet
    Dim a As Integer
    Dim x As Integer
    Dim xaxis As Axis


    Set kpi = ThisWorkbook.Sheets("KPI chart")
    Set data = ThisWorkbook.Sheets("data")

    bulan1 = Month(Now)

    For a = 2 To 14
        bulan2 = Month(Cells(54, a).Value)

        If bulan2 = bulan1 Then 

        End If
    Next

    kpi.ChartObjects("Chart 16").Activate
    ActiveChart.SetSourceData Source:=Range(data.Cells(54, 1), data.Cells(57, a))

End Sub

圖片： http : //melegenda.tumblr.com/image/72825632452

我想我錯過了什么？ （我使用Excel 2007）

Answer 1

我不知道這是什么，但是可以。 ahhaha只需在end sub之前添加ActiveChart.PlotBy = xlRows