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

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

步骤1：准备数据

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

步骤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：自定义图表

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

<!-- 以下代码为Excel的VBA语言 -->

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

结论

在Excel中逐步创建实际与预算的对比图表可以让我们更好地了解其差异并及时作出相应调整。在创建图表时，我们需要注意选择正确的图表类型，并设置正确的数据源、X轴和Y轴数据。在图表创建完成后，我们还可以进一步自定义它们，例如添加数据标签并更改柱状图的颜色，以适应不同的商业需求。