班级名称自动化——Excel自定义函数的妙用.doc

《班级名称自动化——Excel自定义函数的妙用.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、班级名称自动化——Excel自定义函数的妙用2004-04-22 大家知道，我们在编辑Excel工作表时，除了可以用其内置的函数处理表中的数据外，还可以根据自己的实际需要，自定义函数来处理表中的数据。如图1所示是一个学生基本情况登记表，学号的编制原则是：前4位是年份，第5位是初、高中代码（1是初中，2是高中），第6位是年级代码（1分别代表初、高一等），第7、8位是班级代码，后面是序号。下面，我们以一个具体的实例，自定义一个函数，根据学号来自动填写班级名称（即图中的D列内容）。1.启动Excel2003（其它版本请仿照操作）

2、，打开相应的工作表。2.执行“工具→宏→VisualBasic编辑器”命令（或者直接按“Alt+F11”组合键），进入VisualBasic编辑状态（如图2）。图2编辑器3.执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态。4.将下列代码输入其中：Functionbj(xh)SelectCaseMid(xh,5,1)Case1bj="初"&&Mid(xh,6,3)&&"班"Case2bj="高"&&Mid(xh,6,3)&&"班"EndSelectEndFunction[友情提醒]①上述代码中

3、，“bj”是函数命令，“xh”是变量名称，二者均可以随意修改。②自定义函数结构是（如果有多个变量，请用英文状态下的逗号分隔）：Function函数名称(变量名称)代码EndFunction③使用下面的代码，可以达到同样的效果：Functionbj(xh)IfMid(xh,5,1)=1Thenbj="初"&&Mid(xh,6,3)&&"班"Elsebj="高"&&Mid(xh,6,3)&&"班"EndIfEndFunction5.代码输入完成后，关闭VisualBasic编辑窗口，返回Excel编辑状态。6.选中D2单元格，

4、输入公式：=BJ(A2)，再用“填充柄”将上述公式复制到D列下面的单元格区域中，班级名称即可自动填入相应的单元格中（参见图1）。图1学生登记表