杀戮地带 暗影坠落ign:用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