excel 2007的宏制作

方法：
1- 假定打开了一个Excel 表格，并且制作或写好了一个宏。注意：宏必须写在模块中，并且是public sub 的宏，不能带有参数。这里假定是如下的宏：
Public Sub API_Test()
MsgBox "Hello"
End Sub
2- 现在点击保存，会弹出保存对话框。在该对话框的“保存类型”中选择“Excel加载宏(*.xlam)”或“Excel 97-2003加载宏(*.xla)”。这个时候保存对话框的保存路径默认会修改（这个路径根据安装Excel 程序的不同而不同，也根据的操作系统变化，这里不详细说明。当然，也可以修改到其他想要的路径下面。我们假定该保存路径是A）。——注：如果在保存类型中看不到程序的后缀名，则需要先在Windows 的文件夹窗口下面先打开文件夹选项，在显示中把文件的后缀名显示出来，再重复该步骤。
3- 点击保存，则该xlam 文件（2007版本）或xla 文件（2003和老版本）已经保存在路径A下。
4- 再打开一个新的Excel表格，这里假定是2007版本的Excel，文件名B。
5- 右键点击菜单栏，选中“自定义快速访问工具栏”。——也就是进入到“Excel选项”中，选中“自定义”选项卡。
6- 在“自定义”选项卡的后面，有一个下拉菜单“从下列位置选择命令”，点击选中其中的“宏”。
7- 这个时候就可以看到在该下拉菜单的下面，多了一个API_Test的宏。——注意：在进行这步操作的时候，要确保刚才保存的xlam 文件或xla文件要打开才可以，否则找不到该API_Test的宏。
8- 剩下的就简单了，选中该API_Test的宏，然后添加到右边的框框中，最后确定，保存，退出Excel。
9- 现在只要把所有的Excel 关闭，重新打开一个Excel程序，按Alt+F8（也就是运行宏），在对话框中选中API_Test宏，点击确定后，就会弹出一个对话框：“Hello”。
10- 剩下的就是在这个基础上，自己把想要的东西添加就可以了。

Sub 按钮42_Click()
If [C4] < 10 Then
Worksheets("0-9岁").Activate
ElseIf [C4] < 20 Then
Worksheets("10-19岁").Activate
ElseIf [C4] < 30 Then
Worksheets("20-29岁").Activate
ElseIf [C4] < 40 Then
Worksheets("30-39岁").Activate
ElseIf [C4] < 50 Then
Worksheets("40-49岁").Activate
Else
Worksheets("50-55岁").Activate
End If
End Sub

Sub 按钮42_Click()
Dim sht$
Select Case [c4].Value
Case Is < 10
sht = "0-9岁"
Case Is < 20
sht = "10-19岁"
Case Is < 30
sht = "20-29岁"
Case Is < 40
sht = "30-39岁"
Case Is < 50
sht = "40-49岁"
Case Else
sht = "5-55岁"
End Select
Sheets(sht).Activate
End Sub