10,1EXCe宏 录制宏的案例 ■建立10班的学生档案表,档亲表的结构如下图所示。 录制一个能够建立这种档案表结构的宏。 学生档案 ABC DE F 2001级一班学生档案 2学号姓名班级性别籍贯寝室电话号码 W,川一班图10,1/由宏产生臼
10.1 Excel宏 ◼ 录制宏的案例 ◼ 建立10班的学生档案表，档案表的结构如下图所示。 录制一个能够建立这种档案表结构的宏
10,1EXCe宏 建立学生档案宏 1.选择“工具”|“宏”|录制新宏”莱单项,在弹 出的下示对话框中输入宏名字“学生档索 2.单击“确定” 录制新宏 宏名) 学生档案 快捷键〖 保存在① ctr+s当前工作簿 说明① 社康记录的宏2002-4-2 」确定」取消
10.1 Excel宏 ◼ 建立学生档案宏 1. 选择“工具”|“宏”|“录制新宏”菜单项，在弹 出的下示对话框中输入宏名字“学生档案” 2. 单击“确定
10,1EXCe宏 3.输入表格内容 (1)单击A1单元格,在其中输入“2001级学生档案”。 (2)单击A2单元格,在其中输入“学号”。 (3)单击B2单元格,在其中输入“姓名”。 (4)单击C2单元格,在其中输入“班级”。 (5)单击D2单元格,在其中输入“性别”。 (6)单击E2单元格,在其中输入“籍贯”。 (7)单击F2单元格,在其中输入“寢室”。 (8)单击G2单元格,在其中輪入“电话号码”。 (9)选择A1:G1单元格区城,然后单击工具条中的跨列居 中按钮。 (10)单击“停止”记录制工具条中的停止按钮。 (11)保存该工作簿为“学籍档案.s
10.1 Excel宏 ◼ 3.输入表格内容 （1）单击A1单元格，在其中输入“2001级学生档案” 。 （2）单击A2单元格，在其中输入“学号” 。 （3）单击B2单元格，在其中输入“姓名” 。 （4）单击C2单元格，在其中输入“班级” 。 （5）单击D2单元格，在其中输入“性别” 。 （6）单击E2单元格，在其中输入“籍贯” 。 （7）单击F2单元格，在其中输入“寝室” 。 （8）单击G2单元格，在其中输入“电话号码” 。 （9）选择A1:G1单元格区域，然后单击工具条中的跨列居 中按钮。 （10）单击“停止”记录制工具条中的停止按钮。 （11）保存该工作簿为“学籍档案.xls”
10,1EXCe宏 4停止录制,查看录制的宏 ■选择“工具”‖“宏”|“停止录制” 选择“工具”|“宏”|宏”莱单项,会显示“宏”对话 框。选中其中的“学生档案”,单击“编辑”。 宏名 PERS0 AL.XLS学生 执行 PERSONA 生军 取消 学生档案 单步执行 编辑 创建CC) 册除① 位置〔A 所有打开的工作 项 说明 杜康记录的宏2002-3-30
10.1 Excel宏 ◼ 4.停止录制，查看录制的宏 ◼ 选择“工具”|“宏”|“停止录制” ◼ 选择“工具”|“宏”|“宏”菜单项，会显示“宏”对话 框。选中其中的“学生档案” ，单击“编辑”
10,1EXCe宏 ■宏代码 sub学生档豪0 学生档素 Macro 123456789 宏由dk录制,射间:2004-7-18 快捷健:Ctr+s Range A1"). Select Activecelll FormulaR1C1="2001级一班学生档索" Range A2").select Activecelll Formular1c1="学号" Range("B2").Select 10 Activecel formular1C1="姓名" Range( C2").select Activecell formular1c1="班级" 13 Range d2).select 14 Active Cell. FormulaR1c1="性别" 15 Range e2") select 16 ActiveCell FormulaR1c1="籍贯" Range( F2").select 18 Activecell formular1c1="宸蜜
10.1 Excel宏 ◼ 宏代码 ◼ 1 Sub 学生档案() ◼ 2 ' 学生档案Macro ◼ 3 ' 宏由 dk 录制，时间: 2004-7-18 ◼ 4 ' 快捷键:Ctrl+s ◼ 5 Range("A1").Select ◼ 6 ActiveCell.FormulaR1C1 = "2001级一班学生档案" ◼ 7 Range("A2").Select ◼ 8 ActiveCell.FormulaR1C1 = "学号" ◼ 9 Range("B2").Select ◼ 10 ActiveCell.FormulaR1C1 = "姓名" ◼ 11 Range("C2").Select ◼ 12 ActiveCell.FormulaR1C1 = "班级" ◼ 13 Range("D2").Select ◼ 14 ActiveCell.FormulaR1C1 = "性别" ◼ 15 Range("E2").Select ◼ 16 ActiveCell.FormulaR1C1 = "籍贯" ◼ 17 Range("F2").Select ◼ 18 ActiveCell.FormulaR1C1 = "寝室