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