|如果要从用户那里获取任何信息,可以使用INPUTBOX功能。

此函数显示一个对话框,该对话框使用户可以填写任何内容并以字符串形式返回内容。

有时您想要确定用户应该填写的内容,而不是接受任何信息。那就是您使用INPUTBOX方法的时候:

Sub DecideUserInput()

Dim bText As String, bNumber As Integer

' here is the INPUTBOX-function :

bText = InputBox("Insert in a text", "This accepts any input")

' here is the INPUTBOX-method :

bNumber = Application.InputBox("Insert a number", "This accepts numbers only", 1)

MsgBox "You have inserted :" & Chr(13) & _

bText & Chr(13) & bNumber, , "Result from INPUT-boxes"

End Sub

INPUTBOX方法具有第三个参数Type,该参数确定允许用户在INPUTBOX对话框中插入的内容。

类型可以是以下之一:

类型:

Accepted input:

0   A formula

1   A number

2   Text

4   A logical value (True or False)

8   A cell reference, e.g. a Range-object

16  An error value, e.g. #N/A

64  An array of values

当我们运行宏时,我们将看到以下输入框:

img1

img2

这样我们可以通过消息框获得结果。