很简单的统计，各位大神帮忙

雪中烧

不用公式，就是想用VBA解决，我是vba新手，请大家帮忙，或者给点提示也行~ _~

jy03342543

逐个循环 然后条件判断 满足条件为合格 否则不合格。

雪中烧

jy03342543 发表于 2018-8-3 15:29
逐个循环 然后条件判断 满足条件为合格 否则不合格。

1. Sub tongji()
   
2. Dim i As Integer, h As Integer
   
3. i = 3
   
4. h = 2
   
5. Do While Cells(i, "a") <> ""
   
6.             If Cells(i, "b") >= 90 And Cells(i, "c") >= 80 And Cells(i, "d") >= 75 And Cells(i, "e") >= 30 Then
   
7.                        Cells(i, "a").Copy Sheet2.Cells(h, "a")
   
8.                              i = i + 1
   
9.                              h = h + 1
   
10.               Else
    
11.                    Cells(i, "a").Copy Sheet3.Cells(h, "a")
    
12.                              i = i + 1
    
13.             End If
    
14. Loop
    
15. End Sub

复制代码

雪中烧

jy03342543 发表于 2018-8-3 15:29
逐个循环 然后条件判断 满足条件为合格 否则不合格。

看看我自己写的，为什么只能统计出5个，其余不显示

vbee

1. Sub vbee()
   
2. Sheets("得分").Select
   
3. HG = 1: BHG = 1
   
4. For i = 3 To 9
   
5. 姓名 = Cells(i, 1)
   
6. '同时满足数学≥75，语文≥80，英语≥75,体育≥30的为合格，否格不合格
   
7. b = 1
   
8. If Cells(i, 2) < 75 Then b = 0
   
9. If Cells(i, 3) < 80 Then b = 0
   
10. If Cells(i, 4) < 75 Then b = 0
    
11. If Cells(i, 5) < 30 Then b = 0
    
12. 
    
13. If b Then
    
14. HG = HG + 1
    
15. Sheets("合格名单").Cells(HG, 1) = 姓名
    
16. Else
    
17. BHG = BHG + 1
    
18. Sheets("不合格名单").Cells(BHG, 1) = 姓名
    
19. End If
    
20. 
    
21. Next i
    
22. Sheets("统计结果").[B2] = HG - 1
    
23. Sheets("统计结果").[B3] = BHG - 1
    
24. End Sub
    

复制代码

jy03342543

Sub test()
  For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
     If Cells(i, "b") >= 90 And Cells(i, "c") >= 80 And Cells(i, "d") >= 75 And Cells(i, "e") >= 30 Then
       Cells(i, 6) = "合格"
     Else
       Cells(i, 6) = "不合格"
     End If
  Next
End Sub

vbee

嗯，用DO WHILE 通用性好一些

1. Sub vbee()
   
2. Sheets("得分").Select
   
3. HG = 1: BHG = 1
   
4. i = 3
   
5. Do While Cells(i, "a") <> ""
   
6. 姓名 = Cells(i, 1)
   
7. '同时满足数学≥75，语文≥80，英语≥75,体育≥30的为合格，否格不合格
   
8. b = 1
   
9. If Cells(i, 2) < 75 Then b = 0
   
10. If Cells(i, 3) < 80 Then b = 0
    
11. If Cells(i, 4) < 75 Then b = 0
    
12. If Cells(i, 5) < 30 Then b = 0
    
13. 
    
14. If b Then
    
15. HG = HG + 1
    
16. Sheets("合格名单").Cells(HG, 1) = 姓名
    
17. Else
    
18. BHG = BHG + 1
    
19. Sheets("不合格名单").Cells(BHG, 1) = 姓名
    
20. End If
    
21. 
    
22. i = i + 1
    
23. Loop
    
24. 
    
25. Sheets("统计结果").[B2] = HG - 1
    
26. Sheets("统计结果").[B3] = BHG - 1
    
27. End Sub
    

复制代码

雪中烧

vbee 发表于 2018-8-3 16:05
嗯，用DO WHILE 通用性好一些

学习了，就是不太明白下面这块
b = 1
If Cells(i, 2) < 75 Then b = 0
If Cells(i, 3) < 80 Then b = 0
If Cells(i, 4) < 75 Then b = 0
If Cells(i, 5) < 30 Then b = 0

向東

也可以写成：
b = 1 '初始化 合格不合格标志 b=1合格，b=0不合格
If Cells(i, 2) < 75 or Cells(i, 3) < 80 or Cells(i, 4) < 75 or Cells(i, 5) < 30 Then b = 0 '满足任何条件就是不合格(b=0)