ＳＷＣ集团公司财务内部控制评价研究
- 作者:admin 来源:互联网 日期:2009-4-21 22:06:38
- 供量化数据。
三、SWC集团公司财务内部控制评价的Excel实现
（一）SWC集团公司财务内部控制评价得分的实现
1.子公司评价得分的确定
集团公司下属子公司通过子公司定量评价表的评价可以得出各子公司在财务内部控制健全性与合理性方面的最后得分：
子公司财务内部控制按权重评价得分=子公司评价得分/样本子企业权重
子公司财务内部控制合计=∑各财务内部控制指标按权重评价得分
2.集团公司综合评价得分的确定
通过子公司定量评价表的评价，系统自动链接各子公司的资产总额与财务内部控制在健全性和有效性方面的得分。以此得分为依据得出最后集团公司及各下属子公司的综合得分。根据公司财务内部控制制度的规定：公司总部与子公司的权数比例以3：7为标准（见表2）。
子公司单位资产所占权重=子公司资产总额/∑各子公司资产总额
子公司综合得分=子公司财务内部控制健全性得分×子公司财务内部控制健全性权重+子公司财务内部控制有效性得分×子公司财务内部控制有效性权重
集团公司综合得分=公司总部权重×公司总部评价得分+子公司权重×∑（子公司评价得分×子公司单位资产所占权重）
（二）集团公司财务内部控制评价排名的处理
为了进一步反映各子公司对财务内部控制的执行情况，有利于集团公司管理层的快速决策，通过Excel中较好的结合SQL语句与VBA函数利用最后的综合得分，来对公司总部以及各子公司进行综合排名（如表3），并以单独的工作表financialvaluation.xls在C盘中保存。其中Sheet1为定量评价综合评价表。
For Each financialWindow In Application. Windows
If LCase（financialWindow.Caption）=“financialvaluation.xls” Then
financialWindow. Close （False）
End If
Next
ActiveWorkbook.Save
Set financialConnection=CreateObject（“ADODB.Connection”）
Set financialRecordset=CreateObject（“ADODB.Recordset”）
financialConnection.Open“Driver={Microsoft Excel Driver （*.xls）}；”&“DBQ=”+ActiveWorkbook.FullName+“；”&“ReadOnly=True”
financialRecordset. Open “select*” & “into[Excel8.0；
Database=c：\financialvaluation.xls].[sheet1]”&“from（”&“select
（select count（*）from [score$]）-（select count（*）from[score$]where综合得分a.单位名称）as财务内部控制排名，*”&“from[score$]a）”&“order by 1”，financialConnection
financialConnection.Close
Workbooks.Open（“c：\financialvaluation.xls”）
ActiveWorkbook.ActiveSheet.UsedRange.Font.Name=“Times
New Roman”
ActiveWorkbook.ActiveSheet.UsedRange.Font.Size=12
ActiveWorkbook.ActiveSheet.Cells.EntireRow.AutoFit
ActiveWorkbook.ActiveSheet.Cells.EntireColumn.AutoFit
MsgBox （“财务内部控制绩效评价结束！”）
【参考文献】
[1] 董艳华. 企业集团内部财务控制与监督的研究. 对外经济贸易大学硕士学位论文，2007.
[2] 雷蔚青. 企业集团内部财务控制初探. 集团经济研究，2007，（2）.
[3] 王岩.财务报告内部控制的评价与披露.会计之友，2006，（7上）.
[4] 财政部.企业内部控制规范——基本规范和17项具体规范.2007.
[5] 朱荣恩，应唯，袁敏.美国财务报告内部控制评价的发展及对我国的启示.会计研究，2003，（8）.
[6] 中央企业财务内部控制评价工作指引（2007年度试行）.国有资产管理委员会，2007.
代写论文联系方式
联系QQ：904272800
联系信箱：904272800@qq.com
代写论文导航
客户、写手申请单
最新论文
热点论文
