怎么excel中运用vba.让你的在办公中得心应手

1、首先我们在桌面右键-新建-Micriosoft Excel 工作表,或者下windows开始菜单中找到Micriosoft office 2013 下 Excel 2013 两种方法都是可以的

2、打开我们新建的Excel 空白表,打开后常规来说我们是看不到开发工具这个选项卡(因为大多数人员使用不到).下面我就教大家如何把开发工具展示出来.

3、我们点击文件 (或者alt+f)  然后在点击选项-弹出excel 选项菜单.

4、excel 选项菜单 点击自定义功能区. 右边就看到一个开发工具，我们勾选中开发工具（这里可以勾选掉你们不需要的或者多余的菜单）,点击确定

5、回到界面上我们就可以看到开发工具的选项卡. 打开选项卡我们可以看到很多工具.我们设置宏的安全级别,点击宏安全性-宏设置-选择启用所有宏和勾选信任对vba工程对象模型的访问 -确定

这样我们的设置宏的安全级别就设置完成了 点击保存。( ctrl+s)

6、我们插入一个activex控件按钮 操作如下:

点击开发工具选项卡-插入-activex控件-按钮按钮-鼠标在表格上进行拖动来放置按钮

7、我们点击设置设计模式-选择我们的按钮-点击属性-看到这个按钮的所有属性-caption按钮的名称（这里根据你们需求进行修改）

8、这里我们开发工具 调出来了.也认识了一下开发工具.下面我们进入编程的世界..

1、在设计模式下双击添加的按钮.我们就进入开发代码界面了.或者点击查看代码也可以的

2、这里我们可以选择你要在那些方法，这些方法有提供了许多事件.我们更具自己的需求进行选择编写代码.

3、接下来我们就在点击事件,按下键盘事件,双击事件下编写了下列代码.

Private Sub CommandButton1_Click()

    Select Case Sheet1.[A1].Value

            Case 1

                Sheet1.[A3].Value = Sheet1.[A1].Value + Sheet1.[A2].Value

            Case 2

                If Sheet1.[A2].Value <> 0 Then

                    Sheet1.[A3].Value = Sheet1.[A1].Value / Sheet1.[A2].Value

                Else

                    MsgBox "分母不能为0,请重新输入A2"

               End If

            Case Else

                MsgBox "Hello Vba"

        End Select

End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Worksheets("sheet1").UsedRange.ClearContents

End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

       MsgBox "Hello 你按下了键盘"

End Sub

4、编写好了之后我们保存运行.注意取消设计模式才能点击按钮,下面看看我们运行结果..