Excel宏录制

• 选项卡加入【开发工具】
• 录制简单的宏
• 使用相对引用
• ActiveCell.offset(x,y)
• 宏保存位置

1、选项卡加入【开发工具】
文件–>选项–>自定义功能区–> [√ ] 开发工具

2、录制宏
【开发工具】–>【录制宏】–>操作–>【停止录制】

3、相对引用
活动单元格，可在光标所在的任意单元格位置，复用录制的宏。

4、ActiveCell.offset(x,y)
ActiveCell：活动单元格
offset(x,y)： x—移动行数， y—移动列数

5、练习片段

Sub 未使用相对引用录制隔行标色宏()
'
' 未使用相对引用录制隔行标色宏 宏
' 未使用相对引用录制宏
'
' 快捷键: Ctrl+Shift+N
'
' 选中固定单元格A2:N2
    Range("A2:N2").Select
' 录制的操作，填充颜色
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
' 选中固定单元格A4
    Range("A4").Select
End Sub

Sub 使用相对引用录制隔行标色宏()
'
' 使用相对引用录制各行标色宏 宏
'
' 快捷键: Ctrl+Shift+M
'
' 选中活动单元格A1:N1（数字可替换为2，3，4......）
    ActiveCell.Range("A1:N1").Select
' 录制的操作，填充颜色
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
' Offset(2, 0)：活动单元格下移动2行，右移0列，并选中
    ActiveCell.Offset(2, 0).Range("A1").Select
End Sub

6、宏保存位置
将创建的宏保存至个人宏工作簿（PERSONAL.xlsb），便于在所有的excel文件中重复使用相同的宏。