如何在excel中做出一个弹出框

如何在excel中做出一个弹出框

在excel中弹出一个按钮框算是比较高级的功能，我们需要用到vba代码，不过都是比较简单的，不必担心。

操作方法

01首先我们打开一个excel，这里我们建议使用office excel，因为wps的excel开发工具中的VBA是灰色的，还需要我们下载相关的插件，如下图所示：

02接着我们在最上边的菜单栏中找到开发工具，然后找到Visual Basic，我们点击一下，就会出现一个新的页面，如下图所示：

03当然出现新页面也有一个快捷键就是alt+f11，左边的sheet1、sheet2、sheet3都是你的工作表，我们可以随便点击一个进行操作，以sheet1为例如下图所示：

04接着我们进行按钮代码的编写，在出来的菜单框中输入sub a（a是我自己随便写的一个字母在这个位置你可以写任何东西）写好之后我们按回车键，就会自动出现相关的代码，如下图所示：

05接着我们在两行代码的中间输入msgbox然后按一个空格键，在加上“”，我们在“”的中间输入你想要输入的内容，如hello，如下图所示：

06写好上面的代码之后，我们按alt+f11回到主界面，然后在开发工具的下边找到插入，我们选中按钮，然后就会自动跳出宏，我们选中刚才那个代码也就是sheet1,如下图所示：

07然后我们点击一下刚才的按钮就会弹出一个框，上面的内容就是我们之前写的hello，如果你想删除这个按钮需要先用鼠标右键点击一下，然后按delete键，如下图所示：

Excel中用VBA写一个判断并弹出对话框

将以下代码放入所需要的工作表VB代码中：Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A1 As Long
Dim B1 As Long
Dim Rsp As String
'定义A1、B1的取值代码，省略
A1 = Range("A1")'假设A1内容，实际当中自行编写
B1 = Range("B1")'假设B1内容，实际当中自行编写
If A1 > B1 Then
Rsp = MsgBox("A1已大于A2，请确定继续?", vbYesNo)
If Rsp = vbNo Then
ThisWorkbook.Close
End If
End If
End Sub实际输入上述代码，可采用vba编辑器，选择对应的工作表，再选择相应事件SelectionChange，复制输入上述代码。

本文来自网络，不代表生活常识网立场，转载请注明出处：http://sdsy56.com/wjgl/31200.html

上一篇: 怎么删除微软拼音输入法

下一篇: 电脑系统还原在哪,如何打开系统还原

声明： 我们致力于保护作者版权，注重分享，被刊用文章因无法核实真实出处，未能及时与作者取得联系，或有版权异议的，请联系管理员，我们会立即处理，本站部分文字与图片资源来自于网络，转载是出于传递更多信息之目的,若有来源标注错误或侵犯了您的合法权益，请立即通知我们(管理员邮箱：15053971836@139.com)，情况属实，我们会第一时间予以删除，并同时向您表示歉意,谢谢!