繁體中文当前位置: 首页 > 图文教程 > 工具软件 > 办公软件 > Excel妙用自定义函数让班级名称自动化
- 办公软件
- Word 2007教程：邮件合并自动提取数据批量制作成绩单
- Word2007教程：教你在文档中为图片设置立体棱台效果
- Word2007教程：如何在表格中对数据进行排序操作
- 掌握Word 2007即有功能编辑教案更轻松
- Word教程：教你用函数实现数据计算
- Word2007教程：巧妙实现个性文字绕图效果
- Word教程：转换向导将DOC格式批量转换成TXT格式
- Word2007技巧：教你全文替换半角引号的方法
- Word2007教程：在Word文档中编辑剪贴画的技巧
- Word视频教程：插入和播放Flash的技巧
- Excel：验证数据的惟一性
- Excel：一步搞定平均分 妙用TRIMMEAN函数
- Excel：连续打印 打印毕业证书不再愁
- Excel：自动录入学生的基本情况信息表
- Excel 2000：快速录入公司人员工资表数据
- Excel：巧妙定制文娱晚会
- Excel 2000：实现冷僻字的快捷重复输入
- Excel：再谈“一行一生”
- Excel：轻松合并成绩表
- Excel：数据筛选功能
办公软件 中的 Excel妙用自定义函数让班级名称自动化
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-01 浏览: 101 ::
收藏到网摘: n/a
大家知道，我们在编辑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 1bj = '初' && Mid(xh, 6, 3) && '班'Case 2bj = '高' && Mid(xh, 6, 3) && '班'End SelectEnd Function[友情提醒]①上述代码中，“bj”是函数命令，“xh”是变量名称，二者均可以随意修改。②自定义函数结构是(如果有多个变量，请用英文状态下的逗号分隔)：Function函数名称(变量名称)代码End Function③使用下面的代码，可以达到同样的效果：Function bj(xh)If Mid(xh, 5, 1) = 1 Thenbj = '初' && Mid(xh, 6, 3) && '班'Elsebj = '高' && Mid(xh, 6, 3) && '班'End IfEnd Function5.代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态。6.选中D2单元格，输入公式：=BJ(A2)，再用“填充柄”将上述公式复制到D列下面的单元格区域中，班级名称即可自动填入相应的单元格中(参见图2)。
图2学生登记表
评论 (0) All
