关于EXCEL计算问题 - VB6论坛

得分: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