Board logo

标题: [问题求助] 求助VBA编程统计指定范围内的成绩个数,急急 [打印本页]

作者: mikehill111    时间: 2015-12-26 10:05     标题: 求助VBA编程统计指定范围内的成绩个数,急急

求助VBA编程,急急
作者: pcl_test    时间: 2015-12-26 10:16

本帖最后由 pcl_test 于 2015-12-26 10:17 编辑

勿发笼统、无意义的标题。表示Excel表格自身即可很方便实现
作者: mikehill111    时间: 2015-12-26 10:18

回复 2# pcl_test
老大,这个是老师留下的作业,考VBS的。不让用excel函数。谢谢了。怎么编写啊?
作者: aa77dd@163.com    时间: 2015-12-26 16:06

  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    时间: 2015-12-26 17:10

回复 3# mikehill111


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





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2