| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1151 人关注过本帖
标题:关于EXCEL计算问题
只看楼主 加入收藏
txkdmzc
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2019-11-18
收藏
 问题点数:0 回复次数:1 
关于EXCEL计算问题
负债及所有者权益部分校验不通过?
搜索更多相关主题的帖子: 校验 EXCEL 计算 
2019-11-18 20:36
txkdmzc
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2019-11-18
收藏
得分:0 
Private Sub 数据校验_Click()
On Error Resume Next
T = 0
[C11:F458].Interior.ColorIndex = 0
[G11:G458] = ""

If [C11] <> [F11] Then
[C11].Interior.ColorIndex = 7
[F11].Interior.ColorIndex = 7
[H15] = "不符合校验关系(资产类总计=负债及所有者权益类总计)"
T = T + 1
End If

If [F11] <> [F12] + [F94] + [F105] + [F160] + [F173] + [F179] + [F247] + [F262] + [F267] + [F272] + [F283] + [F285] + [F292] + [F308] + [F322] + [F326] Then
[F11].Interior.ColorIndex = 3
[F12].Interior.ColorIndex = 3
[F94].Interior.ColorIndex = 3
[F105].Interior.ColorIndex = 3
[F159].Interior.ColorIndex = 3
[F173].Interior.ColorIndex = 3
[F179].Interior.ColorIndex = 3
[F247].Interior.ColorIndex = 3
[F262].Interior.ColorIndex = 3
[F267].Interior.ColorIndex = 3
[F272].Interior.ColorIndex = 3
[F283].Interior.ColorIndex = 3
[F285].Interior.ColorIndex = 3
[F292].Interior.ColorIndex = 3
[F308].Interior.ColorIndex = 3
[F322].Interior.ColorIndex = 3
[F326].Interior.ColorIndex = 3
[H16] = "不符合校验关系(负债及所有者权益总计=存款+向中央银行借款+同业放款项+同业拆借+联行往来+证券负债+应付及暂收款+外汇买卖+衍生金融工具+长期借款+长期应付款+存单发行+其他负债+各项准备+所有者权益合计)"
T = T + 1
End If

If [C11] <> [C12] + [C15] + [C16] + [C17] + [C25] + [C54] + [C83] + [C89] + [C141] + [C211] + [C215] + [C220] + [C232] + [C238] + [C243] + [C249] + [C252] + [C261] + [C318] + [C319] + [C320] + [C354] + [C368] + [C411] + [C445] Then
[C11].Interior.ColorIndex = 3
[C12].Interior.ColorIndex = 3
[C15].Interior.ColorIndex = 3
[C16].Interior.ColorIndex = 3
[C17].Interior.ColorIndex = 3
[C25].Interior.ColorIndex = 3
[C54].Interior.ColorIndex = 3
[C83].Interior.ColorIndex = 3
[C89].Interior.ColorIndex = 3
[C141].Interior.ColorIndex = 3
[C211].Interior.ColorIndex = 3
[C215].Interior.ColorIndex = 3
[C220].Interior.ColorIndex = 3
[C232].Interior.ColorIndex = 3
[C238].Interior.ColorIndex = 3
[C243].Interior.ColorIndex = 3
[C249].Interior.ColorIndex = 3
[C252].Interior.ColorIndex = 3
[C261].Interior.ColorIndex = 3
[C318].Interior.ColorIndex = 3
[C319].Interior.ColorIndex = 3
[C320].Interior.ColorIndex = 3
[C354].Interior.ColorIndex = 3
[C368].Interior.ColorIndex = 3
[C411].Interior.ColorIndex = 3
[C445].Interior.ColorIndex = 3
[H14] = "不符合校验关系(资产总计=现金计+银行存款+贵金属+存放中央银行存款)"
T = T + 1
End If

If T = 0 Then
MsgBox "数据校验已通过!"
[F11].Interior.ColorIndex = 0
Else
MsgBox "数据有错,出错部分已标成红色,出错原因见表右侧提示"
End If
End Sub
2019-11-18 20:51
快速回复:关于EXCEL计算问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024314 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved