InputBox函数是VBA中用于获取用户输入的一种常规方法。它允许用户输入一个单一的文本值,并返回该值,可以用于提示用户进行数据输入或进行数据确认。
语法:
```
InputBox(Prompt, [Title], [Default], [Xpos], [Ypos])
```
参数解释:
- Prompt:要显示的提示文本,可以是一个字符串或一个表达式。
- Title:(可选参数)输入框的标题。如果省略此参数,默认显示“输入”。
- Default:(可选参数)默认值,可以是一个字符串或一个表达式。
- Xpos:(可选参数)输入框的水平位置。
- Ypos:(可选参数)输入框的垂直位置。
示例:
```
Sub TestInputBox()
Dim value As Variant
value = InputBox("请输入一个数字:", "输入框示例", 0)
If IsNumeric(value) Then
MsgBox "您输入的数字是:" & value
Else
MsgBox "输入的不是一个数字!"
End If
End Sub
```
此示例中,会显示一个输入框,提示用户输入一个数字。如果用户输入的是数字,则弹出一个消息框显示用户输入的数字;否则,弹出一个消息框提示用户输入的不是一个数字。