班主任的工作辛苦、琐碎，有时还不被人理解，然而这份工作又是愉快的，崇高的。2005～2006学年度是我时隔数年后又一次担任班主任。第一学期结束前，教导处提前印发通知书，让班主任抽空给学生写评语。接到通知书，我就犯愁。怎么办呢？我上网下载了几个通知书编辑软件。如：《智能学生评语》、《评语编辑室》、《轻松班主任》、《ABC班主任学生评语高手》等等。但使用后总感觉不尽人意。不是成绩输入麻烦，就是不能直接打印成绩与评语。为解决这个问题，2006年元月8日，我用EXCEL2003做了这个通知书打印程序。下面就制作过程与大家分享，希望大家批评指正。

首先，我在这里运用了一个查找与引用函数“VLOOKUP”，它的用法如下：

语法：

VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)

Lookup_value为需要在数组第一列中查找的数值。Lookup_value 可以为数值、引用或文本字符串。

Table_array为需要在其中查找数据的数据表。可以使用对区域或区域名称的引用，例如数据库或列表。如果 range_lookup 为 TRUE，则 table_array的第一列中的数值必须按升序排列：…、-2、-1、0、1、2、…、-Z、FALSE、TRUE；否则，函数 VLOOKUP不能返回正确的数值。如果range_lookup 为FALSE，table_array 不必进行排序。通过在“数据”菜单中的“排序”中选择“升序”，可将数值按升序排列。Table_array的第一列中的数值可以为文本、数字或逻辑值。文本不区分大小写。

Col_index_num为 table_array 中待返回的匹配值的列序号。Col_index_num 为 1 时，返回table_array 第一列中的数值；col_index_num为 2，返回 table_array 第二列中的数值，以此类推。如果 col_index_num 小于 1，函数 VLOOKUP 返回错误值值 #VALUE!；如果 col_index_num 大于table_array 的列数，函数 VLOOKUP 返回错误值 #REF!。

Range_lookup为一逻辑值，指明函数 VLOOKUP 返回时是精确匹配还是近似匹配。如果为 TRUE 或省略，则返回近似匹配值，也就是说，如果找不到精确匹配值，则返回小于 lookup_value 的最大数值；如果 range_value 为 FALSE，函数 VLOOKUP 将返回精确匹配值。如果找不到，则返回错误值 #N/A。

一、准备工作

在Excel工作薄中设计如下工作表：

1.通知书工作表

2.评语工作表

3.成绩工作表

4.备注工作表

上面的评语工作表、成绩册工作表、备注工作表中编号应按升序排列，并且这三个工作表的数据顺序相同。通知书中的科目顺序与成绩册中的顺序相同。

评语可自己输入待用。成绩和备注可以等待以后再填。

二、编辑函数

选择通知书工作表，为保证“输入学生编号”一行始终在顶部，可选中A2单元格，并在窗口菜单中选择“冻结窗格”命令。

在A5和A9单元格中输入如下函数“=VLOOKUP($E$1,成绩!$A$3:$L$100,2)”，此函数的作用是随着学生编号E1单元格的变化而显示相应学生的姓名。

在B11单元格输入函数“=VLOOKUP($E$1,成绩!$A$3:$L$100,3)/0.7”，然后此公式复制到C11～J11单元格中，并将col_index_num数值修改一下即可。后面/0.7的意思是除以0.7，因为B11单元格是政治，政治成绩满分是70，换算成100，所以除以0.7。从C11～J11，可以根据科目分值，具体换算成百分制。

在J1单元格输入公式“=SUM(B11:K11)”，显示期评总成绩。

在L11单元格输入函数：

“=IF(L1>=608,"A",IF(L1>=456,"B",IF(L1>=304,"C",IF(L1>=152,"D","E"))))”，608、456、304、152是成绩的档次，可以修改。

在B12单元格中输入函数“=VLOOKUP(E1,评语!A2:C100,3)”，并合并一定量的单元格，以适应评语所占的空间。班主任签名和评语签名不在一个单元格中。

在B29单元格中输入函数“=VLOOKUP(E1,备注!A2:C100,3)”，并合并一定量的单元格，以适应备注所占的空间。

至此，函数工作基本完成。如果还需要在通知书中填写其它动态内容，请参照VLOOKUP函数的应用。

三、打印

首先设置打印区域，选中通知书工作表中需要打印出来的区域，然后在文件菜单中选中打印区域→设置打印区域。在此例中选中“A3：L34”即可。

然后在E1单元格中输入学生编号，逐个打印即可。

四、批量打印通知书

菜单→开发工具→插入→命令按钮→在通知书工作表中绘制命令按钮，并设置P1和P2单元格分别为开始打印的学生编号和结束打印学生编号。如图：

鼠标右键单击批量打印命令按键弹出快捷菜单如下图：

点击查看代码，打开visual　basic设计编辑器，把下列代码粘贴到命令按钮的单击事件中：

Private Sub CommandButton1_Click()

For i = Range("p1") To Range("p2")

Range("E1") = i

ActiveSheet.PrintOut

Next

End Sub

保存关闭，返回到EXCEL界面。现在就可以批量打印了。

批量打印时，先输入开始编号，再输入结束编号，然后点击批量打印按钮，就按照你设置的编号开始打印。

整个制作过程到此结束，敬请各位同仁批评指正。