求助VBA编程统计指定范围内的成绩个数，急急

mikehill111

求助VBA编程，急急

pcl_test

勿发笼统、无意义的标题。表示Excel表格自身即可很方便实现

mikehill111

回复 2# pcl_test
老大，这个是老师留下的作业，考VBS的。不让用excel函数。谢谢了。怎么编写啊？

aa77dd@163.com

1. Sub test()
   
2.     a = Round(Application.InputBox("输入成绩下限"))
   
3.     b = Round(Application.InputBox("输入成绩上限"))
   
4.     If a > b Then
   
5.         t = a
   
6.         a = b
   
7.         b = t
   
8.     End If
   
9.     cnt = 0
   
10.     For r = 3 To 100
    
11.         If a <= Cells(r, 2).Value And Cells(r, 2).Value <= b Then
    
12.             cnt = cnt + 1
    
13.         End If
    
14.     Next
    
15.     MsgBox (a & "分和" & b & "分之间共有" & cnt & "个")
    
16. End Sub

复制代码

回复 3# mikehill111

aa77dd@163.com

回复 3# mikehill111


楼主, 你贴的图, 我看到 北大 的 LOGO 了