添加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函数,关于它的使用自行搜索,再配合给的例子演示下就应该会基本使用了。

 

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

小fan大TI

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值