プログラムで使用する値をユーザからコンピュータに渡すには、入力用のダイアログボックスを使う方法があります。
Sub Number()
Dim var
var = InputBox("値を入力してください")
MsgBox "入力した値の2倍は" & var * 2
End Sub
プログラムを実行すると、InputBoxウィンドウが表示されます。
ユーザがテキストボックスに値を入力して[OK]ボタンをクリックするか、Enterキーを押すまで、プログラムの実行は一時中断されます。
[キャンセル]ボタンをクリックすると、入力はされず(この場合は)プログラムのエラーが発生します。
MsgBox関数を使用すると、図のようなダイアログボックスを表示することができます。文字列だけでなく、変数の値を出力することもできます。
Sub Number()
Dim var
var = InputBox("値を入力してください")
MsgBox "入力した値の2倍は" & var * 2
End Sub