[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

求助VBA编程,急急
1

评分人数

    • pcl_test: 勿发笼统、无意义的标题PB -2

回复 3# mikehill111


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

评分人数

    • CrLf: 小眼睛还挺犀利的技术 + 1

TOP

  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

TOP

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

TOP

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

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

TOP

返回列表