《分数段统计问题的VBA程序设计.docx》由会员分享，可在线阅读，更多相关《分数段统计问题的VBA程序设计.docx（2页珍藏版）》请在三一办公上搜索。
1、分数段统计问题的VBA程序设计分数段统计问题的VBA程序设计 内容：假设有一个Excel的学生成绩表，表格的C列、D列、E列分别为学生语文、数学、英语三门课程的成绩，用户只要输入课程的列号(例如，统计语文课分数段输入C)，系统便能自动统计出对应课程各分数段的学生人数，并将统计结果显示在屏幕上在编写程序时，首先考虑产生一个输入框，供用户输入要统计的课程列号(C E中的一个)，然后判断输入的正确性，也就是说实际输入的字符是否是C E中的一个，如果是则开始统计，否则，产生出错提示，重新输入在正确输入的情况下开始分数段的统计，即判断当前记录属于指定科目的哪一个分数段，确认后该分数段人数加1，再进行下一
2、个记录的操作，控制循环结束的条是看当前的记录是否为空记录，如果是则停止统计，否则继续统计，对应子程序如下： Sub fad Dim i2 As Range Dim i3 As Range Dim i4 As Range Dim i5 As Range Dim i6 As Range Dim k As Integer Dim m As Integer tjl = Application.hlputBox(请输入统计列, 输入列) 产生输入框，输入列 If tjl(C) Or tjl(E) Then MsgBox 该列不能统计 判断列号的正确性 Else m: Asc (tjl) - 64 将列字
3、母转换为数字 Range(hl).Value = Cells(1, m).Value 生成该列字段名 End If k = 2 Range(h2：i200).Select 选定h2到i200 Range(h2：i200).Clear 清除其内容 Range(h2).Value = 90分段 Range(h3).Value = 80分段 Range(h4).Value = 70分段 Range(h5).Value = 60分段 Range(h6).Value = 不及格 形成分数段表头准备显示 Set i2 = Range(i2) Set i3 = Range(i3) Set i4 = Rang
4、e(i4) Set i5 = Range(i5) Set i6 = Range(i6) i2 = 0 i3 = 0 i4 = 0 i5 = 0 i6 = 0 各分数段计数器清0 Do If Cells(k, m) = 90 And Cells(k, m) = 80 And Cells(k, m) = 70 And Cells(k, m) = 60 And Cells(k, m) = 69 Then i5 = i5 + 1 Else i6 = i6 + 1 各分数段人数统计 End If k = k + 1 Loop Until IsEmpty(Cells(k, m) End Sub 判断是否到表格末尾
