入力ボックスを表示する

---

入力ボックスを表示する

ユーザーに入力させるダイアログを指定のX・Y位置に表示します。
デフォルト値は「0」としました。

Sub Sample79()
Dim I As Integer
I = InputBox("数値を入力して下さい", "数値", 0, 2000, 1000)
If I = 0 Then Exit Sub
MsgBox "入力値は「" & I & "」です"
End Sub

エクセルＶＢＡテクニック集トップ

---