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

mikehill111

求助VBA编程，急急

aa77dd@163.com

回复 3# mikehill111


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

aa77dd@163.com

Sub test()
    a = Round(Application.InputBox("输入成绩下限"))
    b = Round(Application.InputBox("输入成绩上限"))
    If a > b Then
        t = a
        a = b
        b = t
    End If
    cnt = 0
    For r = 3 To 100
        If a <= Cells(r, 2).Value And Cells(r, 2).Value <= b Then
            cnt = cnt + 1
        End If
    Next
    MsgBox (a & "分和" & b & "分之间共有" & cnt & "个")
End Sub
复制代码

回复 3# mikehill111

mikehill111

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

pcl_test

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