Excel VBA高效办公应用-第七章-VBA财务报表分析-Part1 （损益表的分析）

损益表：

代码如下：

Public Sub 损益表计算()
'定义一个保存记录数的整型变量
Dim iCount As Integer
    '把工作表的记录数赋予iCount
    iCount = Sheets("损益统计总汇").[A1].CurrentRegion.Rows.Count
    With Worksheets("损益表")
        '使用sum函数计算“收入合计”金额
        .Cells(9, 3).Value = "=sum(C5:C8)"
        '使用sum函数计算“成本及费用合计”金额
        .Cells(19, 3).Value = "=sum(C11:C18)"
        '计算“本期损益”金额
        .Cells(20, 3).Value = .Cells(9, 3).Value - .Cells(19, 3).Value
    End With
    '添加"年度成本及费用图表"
    Charts.Add
    '定义图表类型
    ActiveChart.ChartType = xlColumnClustered
    '为图表指定数据源
    ActiveChart.SetSourceData Source:=Sheets("损益表"). _
            Range("B11:C18"), PlotBy:=xlColumns
    '指定添加图表的位置
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
    '设置图表的标题
        .ChartTitle.Characters.Text = "年度成本及费用图表"
    End With
    '选择新添加的图表，并把其标题文字大小改为：24
    ActiveChart.ChartTitle.Select
    Selection.Font.Size = 24
    '选择“损益统计总汇”工作表
    Sheets("损益统计总汇").Select
    '把“损益表”工作表中的“年份值”复制到“损益统计总汇”工作表中
    Cells(iCount + 1, 1) = Worksheets("损益表").Cells(2, 2)
    Cells(iCount + 1, 2) = Worksheets("损益表").Cells(9, 3)
    Cells(iCount + 1, 3) = Worksheets("损益表").Cells(19, 3)
    Cells(iCount + 1, 4) = Worksheets("损益表").Cells(20, 3)
    Cells(iCount + 1, 6) = Worksheets("损益表").Cells(22, 3)
    Cells(iCount + 1, 7) = Worksheets("损益表").Cells(23, 3)
    Cells(iCount + 1, 8).Value = Worksheets("损益表").Cells(24, 3).Value
    '计算成本及费用占收入的百分比
    Cells(iCount + 1, 5) = Cells(iCount + 1, 3) / Cells(iCount + 1, 2)
    '成本及费用占收入的百分比所在单元格格式设置为“百分比”格式
    Cells(iCount + 1, 5).Select
    Selection.NumberFormatLocal = "0.00%"
    '弹出汇总成功信息
    MsgBox "损益统计结果已经汇总成功！", vbOKOnly, "确定"
End Sub