∩▂∩深水鱼的V日记=^_^= （第六集20130204）

xsl343866865

哇,对于我这样的V白来说,真的很好!直观易懂!谢谢楼主分享!

hwc2ycy

不错，第二讲。
鱼，加油啊，一定要有始有终，

zjyxp

跟着深水鱼学

JLxiangwei

好东西阿，加油，继续关注中

ccentaurc2005

学习啦!!!谢谢分享{:4212:}

寂寞深水鱼

---------------------------------------------------------------------------------------------------------------蹭学小富康老师的作业题
此题来自【VBA初级201202班】第二次作业中的其中一道
------------------------------------------------------------------------------------------------
代码模仿：{:321:}{:011:}{:021:}请大神们路过留痕，小虾米甚是感谢！！！

1. Sub 成绩()
   
2. Dim i%
   
3. For i = 2 To Range("a" & Rows.Count).End(3).Row
   
4. If Cells(i, 7) < 60 Then
   
5. Cells(i, 8) = "不及格"
   
6. ElseIf Cells(i, 7) < 75 Then
   
7. Cells(i, 8) = "及格"
   
8. ElseIf Cells(i, 7) < 85 Then
   
9. Cells(i, 8) = "良好"
   
10. ElseIf Cells(i, 7) >= 85 Then
    
11. Cells(i, 8) = "优秀"
    
12. End If
    
13. Next i
    
14. End Sub
    

复制代码

1. Sub 成绩2()
   
2. Dim i%
   
3. Dim CJ%
   
4. For i = 2 To Range("a" & Rows.Count).End(3).Row
   
5. CJ = Cells(i, 7)
   
6. Select Case CJ
   
7. Case Is < 60
   
8. Cells(i, 8) = "不及格"
   
9. Case Is < 75
   
10. Cells(i, 8) = "及格"
    
11. Case Is < 85
    
12. Cells(i, 8) = "良好"
    
13. Case Is >= 85
    
14. Cells(i, 8) = "优秀"
    
15. End Select
    
16. Next i
    
17. End Sub

复制代码

1. 
   
2. Sub 成绩3()
   
3. Dim i%
   
4. Dim CJ%
   
5. For i = 2 To Range("a" & Rows.Count).End(3).Row
   
6. CJ = Cells(i, 7)
   
7. Select Case CJ
   
8. Case 0 To 59
   
9. Cells(i, 8) = "不及格"
   
10. Case 60 To 74
    
11. Cells(i, 8) = "及格"
    
12. Case 75 To 84
    
13. Cells(i, 8) = "良好"
    
14. Case Is >= 85
    
15. Cells(i, 8) = "优秀"
    
16. End Select
    
17. Next i
    
18. End Sub

复制代码

第二次作业.rar (44.47 KB, 下载次数: 0)

2013-1-4 23:37 上传

点击文件名下载附件

寂寞深水鱼

此帖打酱油了

hwc2ycy

希望你天天都有好心情呀，

hwc2ycy

1. 如果  心情不好 那么
   
2.       学习VBA
   
3. 否则
   
4.        还是学习VBA
   
5. 结束结果。

复制代码

askteller

非常好的东西，谢谢分享了。