VBA inputbox() 函数返回值，是否可以带多参数等

最新推荐文章于 2025-04-02 16:37:38 发布

奔跑的犀牛先生

最新推荐文章于 2025-04-02 16:37:38 发布

阅读量5.9k

点赞数 1

本文链接：https://blog.youkuaiyun.com/xuemanqianshan/article/details/103673489

版权

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.youkuaiyun.com/ZOU_SEAFARER/article/details/1495674
https://blog.youkuaiyun.com/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区域会变红