사용자로부터 정보를 얻으려면 INPUTBOX 기능을 사용할 수 있습니다.

이 함수는 사용자가 무엇이든 채울 수있는 대화 상자를 표시하고 내용을 문자열로 반환합니다.

때로는 정보를 받아들이는 대신 사용자가 입력해야 할 내용을 결정하고 싶을 때가 있습니다. INPUTBOX-method를 사용할 때입니다 :

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- 메소드에는 사용자가 INPUTBOX- 대화 상자에 삽입 할 수있는 항목을 결정하는 세 번째 인수 Type이 있습니다.

유형은 다음 중 하나 일 수 있습니다.

유형 :

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

이런 식으로 메시지 상자를 통해 결과를 얻을 수 있습니다.