Excel VBA 纵向校对合计与各分项之和是否相等

今天要讲的例子,主要判断累计值与各分项值的和是否相等。

问题如下:

Excel VBA 纵向校对合计与各分项之和是否相等

解决的思路如下:

Excel VBA 纵向校对合计与各分项之和是否相等

代码运行的结果如下:

Excel VBA 纵向校对合计与各分项之和是否相等

代码如下:

Excel VBA 纵向校对合计与各分项之和是否相等

代码解析

1:2~3行 DIM定义变量;

2:4行 获取表格的最后一个非空单元格行号;

3:5行 把整个表格赋值给arr;

4:6行 清除所有表格的底色;

5:7~24行 遍历arr数组;

6:8~22行 用if语句,查询“编号”;

7:9行 用m及n分别作为累计及分享的行号;

8:10行 获取“编号”所在区域的最后一个非空单元格;

9:11~14行 遍历新的区域,用n1,n2,n3,n4分别累计分项之间的和;

10:15~16行 用累计减去各分项之间的和;

11:17~19行 判断他们的和是否不等于零,则填充单元格为黄色;

12:23行 重置n1,n2,n3,n4,为下一次循环做准备;

13:25行 把arr赋值给区域。

私信 视频 可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件


分享到:


相關文章: