逐步创建Excel中的实际 vs 预算图表

在商业活动中，预算和实际数据在比较中都有其重要性，能使业务流程更加透明和精确。在Excel中创建实际与预算的对比图表可以让我们更直观地理解它们的差异并及时调整业务方向。

步骤1：准备数据

首先，在创建实际与预算的对比图表之前，我们需要准备数据。例如，在Excel中可以使用以下数据：

	预算	实际
1	1000	800
2	1200	1500
3	800	700
4	1500	1400
5	1100	1200

步骤2：插入图表

现在，让我们开始创建实际与预算的对比图表。首先，选中上述数据区域并单击插入选项卡中的“图表”按钮。在弹出的窗口中，选择“柱状图”的样式。

Sub CreateChart()
    Dim DataRange As Range
    Dim ChartRange As Range
    Dim MyChart As Chart

    ' 选中数据区域
    Set DataRange = ActiveSheet.Range("A1:B6")

    ' 创建图表
    Set MyChart = ActiveSheet.Shapes.AddChart2(227, xlColumnClustered, 100, 100, 500, 300).Chart

    ' 设置图表数据源
    Set ChartRange = DataRange

    ' 设置图表的X轴和Y轴数据
    MyChart.SetSourceData Source:=ChartRange

    ' 设置图表标题
    MyChart.HasTitle = True
    MyChart.ChartTitle.Text = "实际 vs 预算"
End Sub

步骤3：自定义图表

一旦我们创建了实际与预算的对比图表，我们就可以进一步自定义它了。例如，我们可以添加一个数据标签，并更改柱状图的颜色。

Sub CustomizeChart()
    Dim MyChart As Chart

    ' 选中图表
    Set MyChart = ActiveSheet.ChartObjects(1).Chart

    ' 添加数据标签
    MyChart.FullSeriesCollection(1).HasDataLabels = True

    ' 更改颜色
    MyChart.FullSeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 红色
    MyChart.FullSeriesCollection(2).Format.Fill.ForeColor.RGB = RGB(0, 176, 80) ' 绿色

    ' 设置X轴标题
    MyChart.Axes(xlCategory).HasTitle = True
    MyChart.Axes(xlCategory).AxisTitle.Text = "月份"

    ' 设置Y轴标题
    MyChart.Axes(xlValue).HasTitle = True
    MyChart.Axes(xlValue).AxisTitle.Text = "金额（元）"
End Sub