添加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, "提示") ThenApplication.ScreenUpdating = False''''''''执行的代码……'''''''Application.ScreenUpdating = TrueMsgBox "载入完成结束！"ElseMsgBox "您放弃了此次载入，下次再见！"End If
End Sub

效果如下所示：

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

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

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

添加VBA控件按钮及操作提示框相关推荐

VBA 添加日历控件的操作
近几天需要做一个VBA的宏,以方便在excel中选择格式化后日期,要求添加日历控件,并按照格式化进行输出,由于是第一次接触VBA,因此查询了一些资料,下面对自己所做的过程进行一下总结: 1.首先新建一 ...
vc mysql控件_VC++使用ActiveX控件连接和操作数据库
VS2008运用ActiveX控件连接和操作数据库关闭时一直有个内存释放的错误,好像使用VC6.0会多生成2个文件,就不会有问题. VC++使用ActiveX控件连接和操作数据库的方法分两种: 1.通 ...
腾讯Android自动化测试实战3.1.4　Robotium的控件获取、操作及断言
3.1.4 Robotium的控件获取.操作及断言 Robotium是一款在Android客户端中的自动化测试框架,它需要模拟用户操作手机屏幕.要完成对手机的模拟操作,应该包含以下几个基本操作: (1 ...
java 通过JLayeredPane实现背景图上添加其他控件
通过JLayeredPane实现背景图上添加其他控件 JLayeredPane为容器添加了深度,允许组件在需要时互相重叠. JLayeredPane将深度范围按层划分,在同一层内又对组件按位置进一 ...
Sharepoint学习笔记—Ribbon系列-- 5. 在Ribbon中添加新控件(针对用户自定义Tab)
前面我们实现了向用户自定义的Tab中添加新的Group,并向其中创建了两个Button按钮.这里我们看看如何向这个已经创建好的Group中再另外添加新的Button控件(当然,你可以添加其它控件,实现 ...
pyqt中treeview控件右键单击操作
pyqt中treeview控件右键单击操作 pyqt开发GUI的第一篇文章问题描述 pyqt开发GUI的第一篇文章用pyqt5开发了一款图像处理软件,记下一些曾经困扰我的一些问题,有不对之处还请大 ...
excel 表单控件按钮_Excel表单控制按钮怪癖
excel 表单控件按钮 If you're building an Excel workbook for other people to use, you can add form control ...
.net学习之母版页执行顺序、jsonp跨域请求原理、IsPostBack原理、服务器端控件按钮Button点击时的过程、缓存、IHttpModule 过滤器...
1.WebForm使用母版页后执行的顺序是先执行子页面中的Page_Load,再执行母版页中的Page_Load,请求是先生成母版页的控件树,然后将子页面生成的控件树填充到母版页中,最后输出 2.We ...
如何添加地图控件到Windows Phone 8的页面中
原文如何添加地图控件到Windows Phone 8的页面中本主题介绍了各种方法来添加一个地图控件到Windows Phone 8的项目.该地图控件在Windows Phone的SDK 8.0的库 ...

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

添加VBA控件按钮及操作提示框相关推荐

最新文章

热门文章