大家好，今天我想和大家分享一下如何通过录制宏来制作个人成绩单。
应用案例
在下面图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回到工作表，可以看到在其余五人的分数上方，已经批量添加了科目名称。
本文来自倾心之夏投稿，不代表舒华文档立场，如若转载，请注明出处：https://www.chinashuhua.cn/24/477474.html
微信扫一扫 
