作者：乔山办公网日期：
返回目录：excel表格制作
具体操作步骤如下：
1、第一步，打开Excel表格，在主百界面按Alt+f11下快捷键，如图所示。
2、第二步，进入到VBA编辑器，点击上面菜单栏中的插入，再选择【模块】度，如知图所示。
3、第三步，在弹出的模块窗口中，输入下面的代码道：
Option Explicit
Sub addwork()
Sheets.Add after:=Sheets(Sheets.Count)
End Sub，
如图所示。
4、第四步，输入好后，在编辑器的左侧，输入模块的名称。如图所示。
5、第五步，关闭编辑器窗口，返专回到表格中，点击上方菜单栏中的视图，再点击下方菜单栏的宏，选择查看宏，如图所示。
6、最后一步，在弹出的宏窗口中，单击宏名，属再单击【执行】就可以了，如图所示。
要顺序知执行道。版
Sub 宏权1()
Dim arr() As Variant
arr = Array(6, 8, 11, 15)
lastrow = Cells(Rows.Count, 1).End(3).Row
For i = 0 To 3
For j = 1 To lastrow
Cells(j, i+2) = Cells(j, 1) * arr(i)
Next
MsgBox ("乘以" & ar(i))
Next
End Sub
补充知:看了一下你的截图, 不是调用其他过程的语句出错.应该是你的某个过程的单词拼写有问题.
你把光标移动到主程序道,按F8单步执行看是哪句出错,主程序没错,再把光标移动到其他的宏专再单步执行检查.依次看时哪里的问题.
Sub all()
第一个宏_黄
第三个宏_红
第二个属宏_黑
End Sub
Sub 第一个宏_黄()
MsgBox "第一个宏"
End Sub
Sub 第二个宏_黑()
MsgBox "第二个宏"
End Sub
Sub 第三个宏_红()
MsgBox "第三个宏"
End Sub