友人送我一本郭永清的《财务报表分析与股票估值》，其中有一个观点，经营现金净流量若多次小于净利润，内藏风险！
于是，将该观点固定化到上市公司报表分析工具中，代码如下，供ＶＢＡ学习者参考。若读懂这些，你已进入excel另一个阶段！
声明一个工作表对象；用Ｐ4;Ｐ5代表不同的工作表；
Dim p4 As Worksheet
Set p4 = Worksheets("利润表")
Dim p5 As Worksheet
Set p5 = Worksheets("现金流量表")
声明一个整数型变量，判断现金流量表的最后一列在哪里？
Dim C As Integer
C= p5.Range("Ａ4").End(xlToRight).Column
声明一个整数型变量，并指定值为2，意为第2列
Dim CC As Integer
CC= 2
声明一个整数型变量，并指定值为0，用以经营现金流小于净利润的次数！
Dim rk as integer
Rk=0
循环判断
Do Until CC > C’如果没有到最后一列，则执行判断
If p5.Cells(16, CC)- p4.Cells(25, CC) < 0 Then
RK= RK + 1’统计符合条件的次数
End If
CC= CC + 1‘向下一列
Loop
MsgBox"有" & RK & "次经营现金流量净额小于同期净利润！！！，请注意风险！！！"财务建模：自动获取上市公司报表数据的报表分析工具（教学模型）
财务建模：自动获取上市公司报表数据的报表分析工具（教学模型）
|
|
转播
