入力ボックスで値を取得する
Dim
str
As
String
str = InputBox(
"値を入力"
)
If
str =
""
then
Exit
Sub
End
If