每各成绩单工作表中都定义了一个“统计”命令按钮 默认名为 CommandButton,单击命令接钮,产生Cck事 件,通过下面代码调用圠过程,完成统计功能。 Private Sub Command Button1 Click Ctj'调用统计子程序 End sub 在∨BE中选“插入|模块”菜单,插入“模块1”,在 “模块1”中定义一个过程圢并编写具体代码。 在过程饥中,首先定义实考人数、优秀人数、良好人 、中等人数、及格人数、不及格人数和分教合计变量并 置初值。然后用双重循环,对C列、F列,5行到39行,取 出各单元格值,如果是有效的成绩(不空并且最左边的5 个字符不是“实考人数”),则先将考查課成绩折合百分 制,再按分数段累加人数,最后,将统针结果填入特定的 单元格。为防止求“平均分”和“筛淘率”出错 当实考 人款为零时,将其赋予一个非零值(这里用¨99)每各成绩单工作表中都定义了一个“统计”命令按钮， 默认名为CommandButton1，单击命令按钮，产生Click事 件，通过下面代码调用tj过程，完成统计功能。 Private Sub CommandButton1_Click() Call tj '调用统计子程序 End Sub 在VBE中选“插入|模块”菜单，插入“模块1”，在 “模块1”中定义一个过程tj并编写具体代码。 在过程tj中，首先定义实考人数、优秀人数、良好人 数、中等人数、及格人数、不及格人数和分数合计变量并 置初值。然后用双重循环，对C列、F列，5行到39行，取 出各单元格值，如果是有效的成绩（不空并且最左边的5 个字符不是“ 实考人数”），则先将考查课成绩折合百分 制，再按分数段累加人数，最后，将统计结果填入特定的 单元格。为防止求“平均分”和“筛淘率”出错，当实考 人数为零时，将其赋予一个非零值（这里用“99”）