|
Escキーではないのですが、ダイアログのキャンセルを判定したらどうでしょうか?
INP_COL:
intCounter = Application.InputBox("列番は?")
INP_ROW4:
strSuuti = Application.InputBox("数字は?")
If strSuuti = False Then
GoTo INP_COL
Else
Cells(4, Val(intCounter)) = strSuuti
End If
INP_ROW5:
strSuuti = Application.InputBox("数字は?")
If strSuuti = False Then
GoTo INP_ROW4
Else
Cells(5, Val(intCounter)) = strSuuti
End If
INP_ROW6:
strSuuti = Application.InputBox("数字は?")
If strSuuti = False Then
GoTo INP_ROW5
Else
Cells(6, Val(intCounter)) = strSuuti
End If
・
・
・
・
|
|