Excel会计信息化教学课件 作者 刘曜 第11章银企对账.pptVIP

但即使这样大的数据量处理，也可在瞬间完成。 * 第11章 银企对账 11.1 “银企对账系统”的设计 1.格式设计 示例：教材P106 G4中的SUM函数对C列的C3：C10 000数据求和，I4中的SUM函数对A列的A3：A10 000数据求和。 当将A列与C列数据一一比对，并删去一项业务银企双方均已登记入账数据后，G4反映“银行已收款入账，企业未入账的金额”，而I4反映“企业已收款入账，银行未入账的金额”。 2.银企对账宏  系统设计有一项关键任务，即将A列与C列数据一一比对，并删去一项业务银企双方均已登记入账数据，以得出未达账项。通过银企对账宏实现。 代码 x = 3 For z = 1 To 10000 Found = False For y = 3 To 10000 If Cells(x, 1) = Cells(y, 3) Then Found = True Exit For End If Next y If Found = True Then Cells(x, 1).Clear Cells(y, 3).Clear End If x = x + 1 Next z的意义如下： 第一步，将第1列（A列）的第1个数据，即单元格Cells(3, 1)数据，与第3列（C列）第1个数据，即单元格Cells(3,3)数据，进行比对。如果相同，即Cells(3,1)= Cells(3,3)，则停止比对，并同时删去单元格Cells(3,1)和Cells(3,3)数据。 第二步，如果第一步比对不成功，也就是单元格Cells(3,1)与Cells(3,3)的数据不同，即接着将第1列的第1个数据顺次与第3列第2个数据，即单元格Cells(4,3)数据，进行比对。如果相同，则停止比对，并同时删去单元格Cells(3,1)和Cells(4,3)数据。 如此进行，直到将第1列的第1个数据与第3列的最后1个数据，即单元格Cells(10000, 3)数据，比对完毕。 以上各步通过一个循环完成。 然后，将第1列的第2个数据与第3列第1、2、… 个数据顺次比对，直至第3列最后1个数据。在比对过程中，如果相同，则停止比对，并同时删去相同单元格的数据。再将第1列的第3个数据与第3列数据顺次比对，如此进行，直至第1列最后一个数据。 这一过程通过一个循环嵌套完成。 注意： 如果循环终值为变动值，那么记录之间不能有空格，否则循环会在第一个空格处终止。如果记录之间有空格，循环终值就应设定为固定值，如银企对账宏。 11.2 “银企对账系统”应用示例 示例：教材P109 小结： 系统设计中将第1列数据与第3列比对时，第1列第1个数据有可能比对约10 000次（第1层循环次数终值设定为10 000，如果一直没有比对上，就会循环比对直至终值）； 第1列第2个数据也可能要比对约10 000次……而系统假定第1列有约10 000个数据（第2层嵌套循环次数终值设定为10 000），也就是说，仅第1列与第3列数据比对就可能要进行约10 000×10 000=100 000 000次。 *