如何通过vba启用宏

1，打开excel2010

2，在工具栏空白处，右击：自定义功能区---选择添加  开发工具 选项 -- 确定

3，点开 开发工具 菜单项，点击 宏安全

4，选中 ActiveX 设置， 选中右边的 无限制启用...... 选项， 取消 选中 安全模式

5，选中 宏设置 菜单， 选中右边 启用所有宏 选项， 选中 开发人员宏设置 选项--确定

6，将excel文档 另存为：  excel启用宏的工作薄 格式 。关闭文档

7，打开该文档，可以录制宏，并且执行宏

8，打开开发工具，插入一个按钮，

9,右击添加的 按钮，选择 指定宏 菜单，在d出框中输入 宏名 ，点击 新建 按钮

10，确定后，就可以进入后台，编写vba代码了。

例如在方法里写： MsgBox ("helloworld")

点击按钮后，就d出一个消息：hello world

11，office2010 启用宏和使用VBA介绍完毕。

备注：

换行符 用 vbCrLf

变量赋值内容包含引号，用"" 代替（两个双引号）。如："h"  换成 ""h""

行列都是从1开始的，如 CELLS(1,1)

注意要选择ACTIVE控件，选择form控件使用不是太方便

'主菜单上添加自定义按钮

Sub

addbtn()

Set

myMenu

=

Application.CommandBars("worksheet

menu

bar")

Set

Button

=

myMenu.Controls.Add(Type:=msoControlButton)

Button.Caption

=

"按钮"

'按钮上的文字，填写你需要的

Button.Style

=

msoButtonIconAndCaption

Button.FaceId

=

FaceId

'按钮图标,数字比如8，系统存在的

Button.OnAction

=

"OnAction"

'按钮执行的宏名，填写你自己编写的宏的宏名

End

Sub

---