简单宏操作

Excel的宏实质是VB语句，现考虑制作一个宏用于将当前表中的数据复制成4个工作簿

录制

打开目标工作簿，当前只有Sheet1中有数据，预期结果是将当期数据复制到Sheet2、Sheet3、Sheet4中

点击视图->录制宏

指定名称和快捷键即可开始录制操作

查看代码

录制完成后店家查看宏，选择编辑即可查看VB代码

在此提供代码，注意，该代码起点是Sheet2,即切换到Sheet2中才能开始执行，否则会报错 Sub 复制() ' ' 复制 宏 ' ' 快捷键: Ctrl+o ' Cells.Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste Sheets("Sheet3").Select ActiveSheet.Paste Sheets.Add After:=ActiveSheet ActiveSheet.Paste Range("E29").Select Application.CutCopyMode = False ActiveWorkbook.Save End Sub

复杂宏

VB自然支持函数（宏）调用，例如以下代码，先录制了三个预测函数操作，通过一个预测()宏对三个函数操作进行调用

Sub 预测线性()
'
' 预测线性 宏
'
' 快捷键: Ctrl+a
'
    Range("A31").Select
    ActiveCell.FormulaR1C1 = "=R[-26]C+1"
    Range("A32").Select
    ActiveWorkbook.Save
    Range("B31").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=FORECAST(RC[-1],R[-26]C:R[-1]C,R[-26]C[-1]:R[-1]C[-1])"
    Range("A31:B31").Select
    Selection.Font.Bold = True
    ActiveWorkbook.Save
End Sub
Sub 指数预测()
'
' 指数预测 宏
'
' 快捷键: Ctrl+e
'
    Range("A31").Select
    ActiveCell.FormulaR1C1 = "=R[-26]C+1"
    Range("B31").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=GROWTH(R[-26]C:R[-8]C,R[-26]C[-1]:R[-8]C[-1],RC[-1])"
    Range("A31:B31").Select
    Selection.Font.Bold = True
    ActiveWorkbook.Save
End Sub
Sub 对数预测()
'
' 对数预测 宏
'
' 快捷键: Ctrl+w
'
    Application.Run "PERSONAL.XLSB!预测线性"
    Range("B31").Select
    Selection.ClearContents
    Range("B31").Select
    ActiveCell.FormulaR1C1 = "=(Sheet1!RC+Sheet3!RC)/2"
    Range("B31").Select
    ActiveWorkbook.Save
End Sub
Sub 预测()
'
' 预测 宏
'
' 快捷键: Ctrl+q
'
    Application.Run "PERSONAL.XLSB!预测线性"
    Sheets("Sheet3").Select
    Application.Run "PERSONAL.XLSB!指数预测"
    Sheets("Sheet2").Select
    Application.Run "PERSONAL.XLSB!对数预测"
    ActiveWorkbook.Save
End Sub