在Excel VBA中,使用InputBox函数可以创建一个输入数据的对话框,供我们输入数据,比如: 下面是执行过程效果: 这个过程有个问题:当不在对话框中输入任何内容,直接单击【确定】,或者直接单击对话框中的【取消】按钮,InputBox函数返回的都是相同的信息,如: 我们执行过程,先后单击【确定】和【取消】看看对比的结果: 返回...
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)...
in_get=Application.InputBox(prompt:="请输入要取得的列数"&vbLf&"1.如果要全部就用“0”"&vbLf&"2.如果要其中几列,请用“,”分割输入",Title:="请输入列号",Default:="0",Type:=3)On Error GoTo0If in_get=""Then MsgBox"你没有填写或按了“取消”":Exit Sub '为了防止用的人员在输入的时候...
Exit Sub 直接退出程序Exit Sub。 宏使用Application对象的InputBox方法。如果用户单击取消(Cancel),这个方法返回False,并且什么也不发生(InputBox消失)。 ② 录入正确 Case Is = "CP1972" MsgBox "密码正确,可以运行程序!" 当密码正确,弹出一个对话框"密码正确,可以运行程序!" ...
InputBox 方法与 InputBox 函数相比有以下特点 内置的出错处理机制，限制数据类型，无需数据验证当用户单击 “取消” 按纽时返回 False而不是长度为零的字符串Application.InputBox 调用的是 InputBox 方法， 不带对象识别符的 InputBox 调用的是 InputBox 函数 两者能达到相同的功效，推荐使用 Application.InputBox ...
varInput = Application.InputBox( _ Prompt:="请输入要查找的文本:", _ Title:="查找数据") MsgBox "你要查找的文本是: " & vbCrLf &varInput End Sub 运行代码后的效果如图3所示。 图3 示例2:求所选择的单元格区域中的数值之积 下面的代...
方法/步骤 1 首先我们打开一个工作样表作为例子。2 使用alt+f11打开vba代码窗口，插入一个新的模块。模块名称可以任定，可以使英文，也可以是中文。3 分析这段代码，我们是命名了3个输入窗口，并且分别将其标题栏统一命名为“输入个人信息”而3个输入窗口的内容提示分别为"请输入姓名：""请输入年龄：""请输入...
1 首先我们打开一个工作样表作为例子。2 使用alt+f11组合快捷键进入vbe编辑器，选择插入一个新模块，并在模块中输入以下代码：Option ExplicitSub ipt()Dim i As Stringi = InputBox("输入文字")End Sub 3 我们在输入Inputbox函数时，编辑器会提示inputbox函数的使用参数，大家可以直观的阅读。如果懂英语更好，...