2月6日EXCEL宏的学习整理笔记(第8课).doc

EXCEL宏的学习（第8课） 循环语句的嵌套使用，即双重判断语句 讲解人:杨晓龙 日期：2013年2月6日 讲解一|| 今天我们来学习条件判断语句（IF）的嵌套使用我们还是以群共享中的为例请没有下载的赶紧下载今天我们要解决的问题比前天的更进了一步，难度要相对大一点前天我们在这里填充的是各科的总分`今天我们不填总分，而需要你们统计各科达到80分或80分以上的人数首先我们把难度放低一点，计算五年级达到80分及以上的人有多少（分科统计） 现在我们先来理清思路首先我们来分析题目，要求统计全年级达到80分及以上的人数（分科统计），即只要该生的成绩达到80分或超过80分，则让计数器加1大家能明白这样的思路吗？好，现在我们来写代码x1 = 0 x2 = 0 x3 = 0首先设置三个计数器，并先清零，分别代表语文、数学、英语大于等于80分的人数能明白三个计数器的作用吧准备工作做好了，现在开始设置循环 For i = 2 To 401循环的初值为2，终值为401，知道是为什么吗？我们在一个循环里就直接判断了三个成绩，如果成立，则分别让各自的计数器加1 Next循环结束在分别将这三个统计的结果写入到I10、J10、K10单元格中 Range(i10).Value = x1 Range(j10).Value = x2 Range(k10).Value = x3 Sub 计算80分及以上的人数() x1 = 0 x2 = 0 x3 = 0 For i = 2 To 401 If Range(c i).Value = 80 Then x1 = x1 + 1 If Range(d i).Value = 80 Then x2 = x2 + 1 If Range(e i).Value = 80 Then x3 = x3 + 1 Next Range(i10).Value = x1 Range(j10).Value = x2 Range(k10).Value = x3End Sub这段代码正好是让计算机按我们上面所设计的思路去进行统计的现在大家运行一下看效果 这个循环部分就只完成统计的功能，千万别把计数器清零的代码放到循环中，否则最后的结果会让你很伤心的你们可以试一下将第一部分放入循环中，然后看看结果会是什么 因为你不管前面计算到多少个，在下一次循环开始时，计数器都会重新清零，然后又从头计数，所以最后的结果不是1就是0 绝不会出现2这能明白吧以后大家就不要犯同样的错误了今天只是让大家体验一下而已 现在大家都明白如何统计全年级的了现在增加难度要求分班统计达到80分的人数那大家就可以想到这个外循环应该放什么位置上如果外循环放的位置错了，一会会看到很无语的结果 首先我们要判断该生是否为某班的学生（如五1班），如果是则继续判断该生的成绩是否达到80分请大家注意看上面这句话，理解一下当把五1班的判断完后，我们就将该结果写入到相应的单元格中（I2、J2、K2），然后继续判断五2班的现在大家思路清晰了吗？Sub 条件判断语句的嵌套使用() For i = 2 To 9这里的初值为2，终值为9是因为在H列的第2行——第9行有班级号 If Range(b j).Value = Range(h i).Value Then这一句先判断该生是否属于我们当前要查找的班级请大家注意看前面的BJ是指的当前查找的学生的班级号，后面的HI是需要查找的班级号能看明白吧这里我特意将这一段写到内循环内，只是为了让你们更好的对比如果我们在外循环那里用一个变量先读取出来，在内循环中用变量直接来判断的话，运行的速度会更快当然，现在只是为了大家容易对比，所以写在了内循环内程序进来后会先判断红色这个表达式是否成立如果成立，则会继续判断下面的蓝色框线框着的条件表达式如果蓝色的成立，才会计数如果红色框线框着的表达式不成立，则下面所有的都不进行判断如果红色的成立，蓝色的不成立，计数器也不会加1 只有当红色成立且蓝色也成立时，计数器才会加1就是 AND（与）逻辑全真则真，一假则假这个我们以后在慢班的时候会讲到，因为快班是针对有基础的，所以很多基础性的知识没去讲好，现在接着写代码 Next内循环结束 内循环结束则表示我们的单班统计已经完成统计完一个班后，我们要做的就是将结果写入到相应的单元格中去其实这一段代码写下来，我们就只是教计算机去统计了一个而已，然后告诉计算机要循环统计多少个人，多少个班我们写程