用EXCEL制作成绩统计模板代码_海美垚之家

用EXCEL制作成绩统计模板代码
EXCEL制作成绩统计模板代码如下：
（1）人平分 ：选择“人平分”按钮，在“控件工具箱”上单击“查看代码”工具。
Private Sub CommandButton1_Click()
’I25单元格的值等于全班总分除以参考人数
Worksheets("Sheet1").Cells(25, 9).Value = "=(SUM(C3:C28)+SUM(F3:F28)+sum(i3:i22))/I24"
End Sub
（2）及格人数：
Private Sub CommandButton2_Click()
’声明统计及格人数的变量js
Dim js As Integer
Js变量赋初值
js = 0
’声明统计范围的变量 counter
Dim counter As Integer
’判断学号为1-26号同学是否及格。
For counter = 4 To 29
If Worksheets("Sheet1").Cells(counter, 3).Value >= 60 Then
每发现一个及格的同学，js变量自动加1
js = js + 1
End If
Next counter
’判断学号为27-52号同学是否及格。
For counter = 4 To 29
If   Worksheets("Sheet1").Cells(counter, 6).Value >= 60 Then
每发现一个及格的同学，js变量自动加1
js = js + 1
End If
Next counter
’判断学号为53-72号同学是否及格。
For counter = 4 To 23
If Worksheets("Sheet1").Cells(counter, 9).Value >= 60 Then
每发现一个及格的同学，js变量自动加1
js = js + 1
End If
Next counter
’将最后js变量的值,即统计出来的及格人数的值写入到I26
Worksheets("Sheet1").Cells(26, 9).Value = js
End Sub
(3)及格率：
Private Sub CommandButton3_Click()
’单元格I27的值等于及格人数除以参考人数
Worksheets("Sheet1").Cells(27, 9).Value = "=I26/I24%"
End Sub
(4)优秀人数：
Private Sub CommandButton4_Click()
’声明统计及格人数的变量js
Dim js As Integer
Js变量赋初值
js = 0
’声明统计范围的变量 counter
Dim counter As Integer
‘判断学号为1-26号同学是否优秀。
For counter = 4 To 29
If Worksheets("Sheet1").Cells(counter, 3).Value >= 80 Then
’每发现一个优秀的同学，js变量自动加1
js = js + 1
End If
Next counter
’判断学号为27-52号同学是否优秀。
For counter = 4 To 29
If Worksheets("Sheet1").Cells(counter, 6).Value >= 80 Then
‘每发现一个优秀的同学，js变量自动加1
Js = js + 1
End If
Next counter
’判断学号为53-72号同学是否优秀。
For counter = 4 To 23
If Worksheets("Sheet1").Cells(counter, 9).Value >= 80 Then
’每发现一个优秀的同学，js变量自动加1
js = js + 1
End If
Next counter
’将最后js变量的值,即统计出来的优秀人数的值写入到I28
Worksheets("Sheet1").Cells(28, 9).Value = js
End Sub
(5)优秀率：
Private Sub CommandButton5_Click()
’单元格I27的值等于优秀人数除以参考人数
Worksheets("Sheet1").Cells(29, 9).Value = "=I28/I24%"
End Sub
类别：办公软件 |添加到搜藏 | 浏览(231) |评论 (0)
上一篇：BIOS设置图    下一篇：Excel表头斜线设置秘技
相关文章：
EXCEL之成绩统计源码二EXCEL之成绩统计源码一
Excel应对特殊成绩统计用Excel进行成绩统计小技巧