你可以把inputbox赋给一个变量，通过变量值来检测用户是不点了取消，取消以后变量就是空值""，如果过去到空值就 exit sub
K = msgbox (“测试返回值”,vbyesnocancel) Msgbox “你点击了按钮:”&choose(k,”确定”,”取消”,”放弃”,””重试,”忽略”,”是”,”否”) End sub Inputbox函数 语法:Inputbox函数(输入框显示内容,窗体标题,默认值,水平位置,垂直位置,帮助文件,帮助文件路径) 基本应用: 一、输入内容返回一个变量 ...
然后会利用一个InputBox对话框让用户录入密码。 3)在校验用户录入的密码时用了一个Select Case….End Select 的语句,这个语句中会列举到用户录入的各种情况。 ① 没有录入,直接取消时 Case Is = False 'do nothing Exit Sub 直接退出程序Exit Sub。 宏使用Application对象的InputBox方法。如果用户单击取消(Cancel)...
Sub 删除重复行两者情况都有()Dim i As Integer, x As Integer, y As Integer, z As String Do z = InputBox("请选择所要删除重复行的列")If z = "" Then If MsgBox("确定退出?", vbYesNoCancel + vbExclamation, "询问") = vbYes Then Exit Sub End If Loop While z = ""'执...
& vbLf & vbLf & "转置后：放置列数：" & iShu, vbOKCancel, "确认参数") = vbCancel Then Exit Sub '转置处理 For i = x2 To Range(x1 & Rows.Count).End(3).Row Step iShu Range(x1 & i).Resize(iShu, 1).Copy Range(y1 & y2).PasteSpecial Paste:=xlPasteAll, Transpose:=...
.Title = "选择文件夹" ' 设置标题 If .Show <> -1 Then Exit Sub ' 取消操作时退出...
If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub Call runtimer '如果用户没有选择取消就再次调用 Runtimer End Sub 以上只是两个简单的例子,有兴趣的话,可以利用 Application.Ontime 这个函数写出更多更有用的定时程序 轻舟上逆 E夫当关 13 辛苦了,好东西!加精。
There is no Args for the Cancel button. So you cannot detect the Cancel button being press by the user.So what John. P Spencer gave would work for you if you're wanting to use the built-in fucntion else follow what Stefan suggest...do your own custom inputbox....
常数 值 说明 vbOK 1 确定vbCancel 2 取消vbAbort 3 终止vbRetry 4 重试vbIgnore 5 忽略vbYes 6 是vbNo 7 否 inputbox输入框 代码语言:javascript 复制 'val文本型数字转为数字型 i = val(inputbox ("文字","标题","默认值",左边距,上边距,帮助文档位置,帮助文档索引值0)) i = Application.Inputbo...
InputBox取消与vbNullString不同(null) 、 我想使用InputBox来检查密码。如果用户在没有数据输入的情况下按下"OK“,InputBox应该会再次运行,如果用户按下"Cancel”或"ESC",公司子程序将退出。如何识别"ESC“或"Cancel”输入,而不只是"null“或empty?以及如何特别为我的自定义创建的输入框使用API,以便更改密...