Question

我尝试在宏 - excel中制作程序，显示2012年12月 - 月份数据的图表。

我希望X轴是月份，但只在1月份，传说中的轴n切换。

我的代码：

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 只需添加ActiveChart.PlotBy = xlRows 在end sub之前

图表根据范围大小返回不同的结果

1 个答案: