InputBox関数で数値だけを入力させたい場合の処理です。 Do StrIB = InputBox("開始数字？") Loop Until IsNumeric(StrIB) = True Do～Loopを後判定で実行しています 後判定は最低1回は処理を実行します(この場合はInputBox関数) Untilは条件が成立するまで…