我们在编辑Excel工作表时除了可以用其内置
处理表中数据外还可以根据自己实际需要自定义来处理表中数据
如图1所示是
个学生基本情况登记表学号编制原则是:前4位是年份第5位是初、高中代码(1是初中2是高中)第6位是年级代码(1分别代表初、高等)第7、8位是班级代码后面是序号下面我们以个具体例子自定义个根据学号来自动填写班级名称(即图中D列内容)1.启动Excel 2003(其它版本请仿照操作)
打开相应工作表2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键)
进入Visual Basic编辑状态(如图1)
图1编辑器
3.执行“插入→模块”命令
插入个新模块再双击插入模块进入模块代码编辑状态4.将下列代码输入其中:
Function bj(xh)
Select Case Mid(xh, 5, 1)
Case 1
bj = "初" && Mid(xh, 6, 3) && "班"
Case 2
bj = "高" && Mid(xh, 6, 3) && "班"
End Select
End Function[友情提醒]
①上述代码中
“bj”是命令“xh”是变量名称 2者均可以随意修改②自定义
结构是(如果有多个变量请用英文状态下逗号分隔):Function
名称(变量名称)代码
End Function
③使用下面
代码可以达到同样效果: Function bj(xh)
If Mid(xh, 5, 1) = 1 Then
bj = "初" && Mid(xh, 6, 3) && "班"
Else
bj = "高" && Mid(xh, 6, 3) && "班"
End If
End Function5.代码输入完成后
关闭Visual Basic编辑窗口返回Excel编辑状态6.选中D2单元格
输入公式:=BJ(A2)再用“填充柄”将上述公式复制到D列下面单元格区域中班级名称即可自动填入相应单元格中(参见图2)
图2学生登记表
最新评论