[已解决]数据判断

cyj153

弄了半天无法明白，到底什么地方错了，谢谢老师给予指导！

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2015-12-10 11:22

你里面有大量无关代码，但是由于不知道你是否要实现其他功能，我没有过多删减，尽可能保留的情况下做出了改动，见附件

跳转到最佳答案楼层

sry660

1. Sub 判断()
   
2. Dim arr, i As Long, k As Long
   
3. arr = Sheets(1).[a1].CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     If arr(i, 10) < 60 Then '判断
   
6.         k = k + 1   '计数
   
7.     End If
   
8. Next
   
9. MsgBox "成绩低于60分的人数为：" & k & "人！"
   
10. End Sub

复制代码

yorkchenshunan

你里面有大量无关代码，但是由于不知道你是否要实现其他功能，我没有过多删减，尽可能保留的情况下做出了改动，见附件

yorkchenshunan

你的错误有很多：
1、确定行数的时候，因为A列没数据，导致HX值有问题
2、循环判断逻辑错误，按你的代码，只要arr(1,10)>60就判断没有60分以下数据，并且直接退出程序，而此时arr(2至n，10）是否小于60都没有进行判断
3、输出是否有不及格人员信息应该在循环完后进行，而不应该在循环内进行
等等

cyj153

yorkchenshunan 发表于 2015-12-10 11:22
你里面有大量无关代码，但是由于不知道你是否要实现其他功能，我没有过多删减，尽可能保留的情况下做出了改 ...

没错，谢谢老师。刚才测试了效果很好。