ユーザーから情報を取得したい場合は、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メソッドには、ユーザーがINPUTBOXダイアログに挿入できる内容を決定する3番目の引数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

このようにして、メッセージボックスから結果を得ることができます。