Excel会计信息化教学课件 作者 刘曜 第12章企业存款变动监控.pptVIP

* 第12章 企业存款变动监控 12.1 问题描述 某银行要掌握各大公司存款变动情况。具体要求为：每天有一个表，需要比对前一天跟当天的数据，求出差额。 …… …… …… 1200.00 B公司 123457 5000.00 A公司 123456 余额 账户名称 账号 12.2 “企业存款变动监控系统” 的设计 建立“公司账号”、“前一天余额”、“当天余额”和“比对表”工作表，并设置数据格式 。 示例：教材P112 在“比对表”工作表中，对应账号得到该账号前一天余额和当天余额，通过自定义函数qytye和dtye来实现。 Function qytye(账号) x = 1 Do While Not (IsEmpty(Sheets(前一天余额).Cells(x, 1).Value)) x = x + 1 Loop Found = False For t = 2 To x - 1 If 账号 = Sheets(前一天余额).Cells(t, 1) Then Found = True Exit For End If Next t If Found = True Then qytye = Sheets(前一天余额).Cells(t, 3) Else qytye = 0 End IfEnd Function *