| 
    
     |  | ▼38L さん: >上記のやり方だと,Escキーを押しても(キャンセルを押したときと)同じ結果が出ました。
 >が、「0」と入力してもキャンセルをクリックしたものと同じ結果になるのはどうしてでしょうか?
 >INP_ROW1:
 >  strSuuti = Application.InputBox("1の件数")
 >If strSuuti = False Then             ※※※
 ↑↑↑↑↑↑↑↑↑↑↑↑↑
 If strSuuti = "False" Then
 
 にしたら「0」入力で戻らなくなると思います。
 中途半端な回答でごめんさいでした。
 
 
 >    GoTo INP_COL
 >  Else
 >    Cells(1, Val(intCounter)) = strSuuti
 >  End If
 >
 >INP_ROW2:
 >  strSuuti = Application.InputBox("2の件数")
 >If strSuuti = False Then             ※※※
 ↑↑↑↑↑↑↑↑↑↑↑↑↑
 If strSuuti = "False" Then
 
 
 >    GoTo INP_COL
 >  Else
 >    Cells(2, Val(intCounter)) = strSuuti
 >  End If
 >「INP_ROW2」を入力しているときに「0」を入力すると「INP_ROW1」にもどってしまうんです。
 
 |  |