VBA inputbox() 函数返回值，是否可以带多参数等 |
您所在的位置：网站首页 › vba弹出提示框输入内容 › VBA inputbox() 函数返回值，是否可以带多参数等 |
VBA inputbox() 函数返回值，是否可以带多参数等
|
1 inputbox()函数值
1.1inputbox() 的返回值 inputbox()的返回值，String 类型在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。 2 inputbox的后续处理 2.1 把inputbox返回的值，处理为数字等 如果是一个语句默认会返回void? false如果是字符串相加是连接int() cint() val() 功能类似，都可以把 “数字类字符串” 转成 数字 Sub cs2() x1 = InputBox("请输入一个数字") x2 = InputBox("请输入一个数字") Debug.Print "x1+x2=" & x1 + x2 Debug.Print "x1+x2=" & Val(x1) + Val(x2) Debug.Print "x1+x2=" & Int(x1) + Int(x2) Debug.Print "x1+x2=" & CInt(x1) + CInt(x2) Debug.Print "x1+x2=" & Sum = Val(x1) + Val(x2) End Sub
别人写的例子 Sub Judge() Dim x, y As Integer x = GetNum("X") y = GetNum("Y") If x < y Then MsgBox "X < Y" Else MsgBox "X >= Y" End If End Sub Function GetNum(s) As Integer Dim str As String Do While str = "" str = InputBox("", "请输入数" + s) If Not IsNumeric(str) Then MsgBox "你输入的不是整数" str = "" Else GetNum = CInt(str) End If Loop End Function 3 inputbox 可以同时要求输入多个参数吗？ 3.1 要求输入参数必须是有分隔符 输入多个参数，中间有 , 分隔但是这个不能限制玩家不按要求输入如果按要求输入可以按 split() 分隔 Sub cs3() i1 = InputBox("请输入") arr1 = Split(i1, ",") For Each i In arr1 Debug.Print i Next End Sub
inputbox() 函数 和application.inputbox() 方法 inputbox() 函数 InputBox(Prompt[,Title][,Default][,Xpos][,Ypos][,Helpfile,Context]) application.inputbox() 方法 Object.InputBox(Prompt,Title,Default,Left,Top,HelpFile,HelpContextID,Type) inputbox() 函数 (1)如果同时提供了Helpfile与Context参数，可以按F1键来查看与Context相应的帮助主题，Excel通常会在输入框中自动添加一个帮助(Help)按钮。 (2)如果单击确定(OK)或按下ENTER键，则InputBox函数返回文本框中的内容；如果单击取消(Cancel)，则此函数返回一个长度为零的字符串("")。 (3)如果要输入多个参数并省略中间的某些参数，则必须在相应位置加入逗号分界符。 (4)InputBox函数返回的是一个字符串，若需要得到数值，则需要使用Val函数将字符串转换为一个值。 application.inputbox() 方法 若使用适当代码的和，则返回多种数据类型。若要显示一个可以接受文本或数字的输入框，则将Type设置为3(即1和2之和，或者数字加上文本)；若Type设置为8，那么可以输入一个单元格或单元格区域，或者用鼠标在工作表中的选择某个单元格区域。 https://blog.csdn.net/ZOU_SEAFARER/article/details/1495674 https://blog.csdn.net/iamlaosong/article/details/53376336 http://www.360doc.com/content/18/0611/00/22637415_761312889.shtml
Sub ponyma1() Dim in2 As Object in1 = Application.InputBox("请输入数字", "输入窗口", , , , , 1) Debug.Print in1 + 1 Set in2 = Application.InputBox(prompt:="请选择几个单元格", Title:="输入窗", Type:=8) in2.Interior.ColorIndex = 3 End Sub
选择的range区域会变红
|
【本文地址】
今日新闻 |
推荐新闻 |