014-优化“成绩评语”-疑难千寻千解丛书（VBA）

小妖

ET疑难千寻千解丛书之EXCEL2010编程与实践

罗刚君 章兰新 黄朝阳 编著

疑难14
如何优化过程“成绩评语”

在成绩表中，B列存放学生成绩，要求对不及格成绩添加蓝色背景，在C列标识“不及格”，而对95分以上者标识“优秀”，最后在E1单元格显示不及格人数。实现此需求可以用以下代码，如何对它进行优化？

1. 
   
2. Sub 成绩评语()　‘成绩评语及不及格数量计算
   
3.     Dim rng As Range, i As Integer
   
4.     For Each rng In Range([b2], Cells(Rows.Count, 2).End(xlUp))  
   
5.     '遍历所有成绩
   
6.         If rng < 60 Then '如果小于60
   
7.             i = i + 1  '累计不及格人员数量
   
8.             [c1] = "评语"  '写标题
   
9.             rng.Offset(0, 1) = "不及格"  '对不及格成绩写标语
   
10.             rng.Interior.ColorIndex = 5  '对不及格成绩着色
    
11.             [d1] = "不及格：" & i & "人"  '记录不及格人员数量
    
12.             ElseIf rng > 95 Then  '如果大于95分
    
13.             rng.Offset(0, 1) = "优秀"  '大于95分者评为优秀
    
14.         End If
    
15.     Next rng
    
16. End Sub
    

复制代码

è解决方案

清除循环语句中不必要的代码，将其移到循环之外，减少对象写入次数。

í操作方法

步骤1
将不需要循环的语句置于循环体之外，可以减少代码重复执行，完整代码如下：

1. 
   
2. Sub 成绩评语及不及格数量计算2()  '将不需要循环的代码移到循环语句外
   
3.     Dim rng As Range, i As Integer
   
4.     [c1] = "评语"  '写标题
   
5.     For Each rng In Range([b2], Cells(Rows.Count, 2).End(xlUp))  
   
6.     '遍历所有成绩
   
7.         If rng < 60 Then    '如果小于60
   
8.             i = i + 1  '累计不及格人员数量
   
9.             rng.Offset(0, 1) = "不及格"  '对不及格成绩写标语
   
10.             rng.Interior.ColorIndex = 5  '对不及格成绩着色
    
11.         ElseIf rng > 95 Then  '如果大于95分
    
12.             rng.Offset(0, 1) = "优秀"  '大于95分者评为优秀
    
13.         End If
    
14.     Next rng
    
15.     [d1] = "不及格：" & i & "人"  '记录不及格人员数量
    
16. End Sub
    

复制代码

步骤2
分别执行两段代码，它们可以实现相同的功能，执行结果如图所示。

=============================

以上摘自《EXCEL2010编程与实践》

放浪形骸

是啊，谢谢小妖老师的分享啊。

小妖

妖言：

有时不得不表扬一下EXCEL同学，对代码的执行总是任劳任怨，即使是没有必要的重复，也不会冒出半句不满意的话。

faliming7

谁在做广告？

杰

faliming7 发表于 2011-1-22 14:23
谁在做广告？

都广告了14期了才发现{:04:}

UNA123

{:011:}{:011:}{:011:}{:011:}