VBA第六课 循环判断数据
来源：程序员人生 发布时间：2015-07-28 07:44:27 阅读次数：2703次
Sub do_loop循环判断()
Dim cj%
cj = 1
Do
cj = cj + 1
If cj > 10 Then
Exit Do '退出循环
Else
If Cells(cj, 2) >= 90 Then Cells(cj, 3) = "优秀"
If Cells(cj, 2) >= 80 And Cells(cj, 2) <= 90 Then Cells(cj, 3) = "良好"
If Cells(cj, 2) >= 60 And Cells(cj, 2) <= 80 Then Cells(cj, 3) = "合格"
If Cells(cj, 2) < 60 Then Cells(cj, 3) = "不及格"
End If
Loop
End Sub
转载请注明作者与出处：http://blog.csdn.net/u013511642 王小涛_同
生活不易，码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠
