xcxd.net
当前位置:首页 >> vBA对话框是或否 >>

vBA对话框是或否

If Range("a1") = "正确" Then respons = MsgBox("提示……", vbYesNo) If respons = vbYes Then A 代码 ElseIf respons = vbNo Then B代码 Else End If End If 加入这样的语句 试试……

对话框按钮只能是系统缺省的那几种,无法更改!如果你一定要这么做,就自己做个窗口,放个“否”按钮在窗体上.

Sub 删除重复行两者情况都有()Dim i As Integer, x As Integer, y As Integer, z As StringDo z = InputBox("请选择所要删除重复行的列") If z = "" Then If MsgBox("确定退出?", vbYesNoCancel + vbExclamation, "询问") = vbYes Then Exit Sub End IfLoop While z = ""'执行删除操作End Sub

窗体上拉出一个按钮,然后Private Sub Command1_Click() i = MsgBox("请选择", vbYesNo, "第一个消息") If i = vbYes Then j = MsgBox("这是第二次弹出的消息框", vbOKCancel, "第二个消息") End IfEnd Sub

将以下代码放入所需要的工作表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内容,实际当中自

在 ThisWorkbook 的 Open 事件,写入:Private Sub Workbook_Open() hh = MsgBox("是否打开此表?", vbOKCancel) If hh = vbCancel Then Application.QuitEnd Sub

if msgbox("提示",vbyesno)=vbyes then '执行else'退出end if

用VBA内置函数inputbox来输入文本,使您的“班级”成为变量.用msgbox来回返M2单元格中的结果值.DIM bj AS Stringbj=inputbox("请输入您的文本","请输入")Sheets("ETINFO(正式版)").Select ActiveWindow.SmallScroll Down:

Sub 重复确认() If MsgBox("你已启动成本核算模块,将清除你excel内所有内容,并新建核算框架", vbOKCancel) = vbOK Then【……需要执行的功能代码】 End IfEnd Sub

Private Sub Command1_Click() If MsgBox("请选择是或者否", vbYesNo) = vbYes Then MsgBox ("你选择了是") End If End Sub

网站首页 | 网站地图
All rights reserved Powered by www.xcxd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com