添加VBA控件按钮及操作提示框

在Excel文件中，为了实现更加自动化或者称为人机交互式的操作，很多人是不喜欢直接在visualbasic编辑器里点击运行按钮来执行程序，在编辑器里操作更像是专业开发技术人员开发测试使用的操作，对于用户来讲，他们根本不需要关系程序是怎么执行，更谈不上去怎么调试程序，最好就是在xlsm文件某一sheet上直接点击按钮就可以完成我们想要的结果。

这里就将要说的就是，怎样添加按钮和编辑其属性。操作如下所示：

1、在xlsm文件中点击常用菜单栏“开发工具”按钮，选择“设计模式”，然后在其左边点击“插入”选项按钮。

2、在跳出的子菜单显示界面，点击选择ActiveX控件栏目下的第一个图标，选择命令按钮。 

3、然后点击鼠标左键，画一个方框，按钮即被添加。

 4、右键单击“CommandButton1”按钮，选择属性选项，跳出右边属性编辑界面。在“（名称）”和“Caption”对应的右边编辑框修改自己想替换的名称。其中“（名称）”对应的是VB编辑器中函数的名称，“Caption”对应的是按钮名称。

5、如我们改“（名称）”为VBAtest，“Caption”为“点击me”。修改完成后，关闭属性界面即可。双击按钮可以跳到VB编辑器界面，然后可以进行vba程序开发编辑。

 6、最后需要将设计模式取消选择，否则点击按钮只会选中它。当取消选择后，点击按钮就会有点击按钮的反馈，如果在VB编辑器中编好了程序，VBA程序应该就可以运行起来了。

上面只是增加了点击按钮操作，但如果是用户不小心点到了按钮，本来是不想运行程序的，但此时程序已经开始运行不会停下来，这样给人的感觉不是很人性化。所以我们在程序中给用户一个提示和判断，当点击按钮后不立即执行主程序，而是首先提示用户是否要继续下面的操作，用户根据需要选择确定或者取消。具体实现代码如下：

Private Sub VBAtest_Click()  
  'MsgBox "欢迎开始载入……"
  If vbOK = MsgBox("欢迎开始载入…", vbOKCancel, "提示") Then
    Application.ScreenUpdating = False
    '''''''
    '执行的代码……
    '''''''
    Application.ScreenUpdating = True
    MsgBox "载入完成结束！"
  Else
    MsgBox "您放弃了此次载入，下次再见！"
  End If
End Sub

效果如下所示：

会提示用户下面会进行什么操作，用户可以选择确定或者取消。点击确定后便会运行主程序，选择取消则会直接跳到程序结束，提示用户“您取消了这次操作”，如下图：

 

几行代码，增加了人机的互动性，防止人为误操作，简单又实用。

代码很简单，就一个MsgBox函数，关于它的使用自行搜索，再配合给的例子演示下就应该会基本使用了。