今天要讲的例子,主要判断累计值与各分项值的和是否相等。
问题如下:
解决的思路如下:
代码运行的结果如下:
代码如下:
代码解析
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文件
閱讀更多 浮雲Excel分享 的文章