104“总表”工作表代码 前面提到,“总表”工作表上定义了两个命令按钮:“排序求和”和“清 除汇总 “排序求和”命令按钮的Cick事件代码如下: Private Sub Command Button1 Click Call sort sum End Sub 令它调用通用模块(模块1)中的过程 sort sum对当前工作表按“教师”排序 求各教师工作量小计和总计信息 通用模块的建立方法是:在当前工程 VBAProject'中,选择“插入”菜单的 模块”项,插入一个通用模块,用默认名“模块1”。 sort sum是在模块1中定义的过程之一,编写代码在这个过程中。 首先判断“A5”单元格是否有值,若无值则提示“无数据”并 退出。再査找A列中是否有“总工作量”字样,若有,说明该表已经进行 “排序求和”,也退出。 令其次,按教师姓名排序,设置教师总学时边框横线(因为有的可能被删除 过)。求各位教师工作量小计和课时费。方法是从5行到“教师名为空”循 环,若教师未改变,则教师学时累加,否则,累加教师人数、填写教师 总学时、总课时费、删除教师总学时和教师总课时费边框中间横线 最后,插入一个汇总行,填入总工作量、教授丁作量、副教授工作量10.4“总表”工作表代码 ❖ 前面提到，“总表”工作表上定义了两个命令按钮：“排序求和”和“清 除汇总 “ “排序求和”命令按钮的Click事件代码如下： ❖ Private Sub CommandButton1_Click() Call sort_sum End Sub ❖ 它调用通用模块（模块1）中的过程sort_sum对当前工作表按“教师”排序、 求各教师工作量小计和总计信息。 ❖ 通用模块的建立方法是：在当前工程VBAProject中，选择“插入”菜单的 “ 模块”项，插入一个通用模块，用默认名“模块1”。 ❖ sort_sum是在模块1中定义的过程之一，编写代码在这个过程中。 ❖ 首先判断“A5”单元格是否有值，若无值则提示“无数据”并 退出。再查找A列中是否有“总工作量”字样，若有，说明该表已经进行 了 “排序求和”，也退出。 ❖ 其次，按教师姓名排序,设置教师总学时边框横线（因为有的可能被删除 过）。求各位教师工作量小计和课时费。方法是从5行到“教师名为空”循 环，若教师未改变，则教师学时累加，否则，累加教师人数、填写教师 总学时、总课时费、删除教师总学时和教师总课时费边框中间横线。 ❖ 最后，插入一个汇总行，填入总工作量、教授工作量、副教授工作量、 讲师工作量、助教工作量、总课时费、教师人数等汇总信息，并插入符。 “总表”中“排序求和”代码执行后的情形如图10.6所示