大家好,今天我想和大家分享一下如何通过录制宏来制作个人成绩单。应用案例在下面图1所示的工作表中,第一行带有绿色阴影的科目名称被插入到每个人的成绩上方,以便制作个人成绩
大家好,今天我想和大家分享一下如何通过录制宏来制作个人成绩单。
应用案例在下面图1所示的工作表中,第一行带有绿色阴影的科目名称被插入到每个人的成绩上方,以便制作个人成绩单。参考效果见图2。
图1
图2
操作程序1选择单元格A1,单击“开发工具”选项卡上的“使用相对引用”按钮,然后单击“录制宏”。
2在打开的记录宏对话框中,我们可以修改默认的宏名和快捷键。这里我们设置宏名为个人成绩单,快捷键为Ctrl+Shift+M,点击确定开始宏录制。
(注:快捷键的作用是在宏录制后快速执行宏命令。)
3选择工作表中的第一行,按ctrl+c复制。
4选择第三行,单击鼠标右键,在弹出菜单中选择“插入复制的单元格”。
5单击“开发工具”选项卡下的“停止录制”按钮,停止录制宏。
6单击“开发工具”选项卡上的“Visual Basic”按钮。
7在打开的“Microsoft Visual Basic for Applications”窗口中,双击左边列表中的“模块1”,右边可以看到我们刚刚录制的宏“个人成绩单”。
8修改宏代码如下:
子个人报告卡()
'
个人报告卡宏
'
快捷键:Ctrl+Shift+M
'
对于i = 1到5
ActiveCell。rows(" 1:1 ")entire row . select。
选择。复制
ActiveCell。偏移量(2,0)。rows(" 1:1 ")entire row . select。
选择。插入Shift:=xlDown
ActiveCell。挑选
然后
末端接头
描述:代码中的新内容“For i = 1到5”和“Next”表示重复前面记录的宏五次(因为还有五个人的分数需要复制并插入到帐户名中)。
9点击窗口顶部工具栏中的绿色三角符号(即运行子流程/用户表单按钮),在弹出的宏对话框中点击运行按钮,运行修改后的宏代码。
10回到工作表,可以看到在其余五人的分数上方,已经批量添加了科目名称。