0

セルに入力した値によって別々のセルに飛ぶようにマクロで設定したい。 1000人分のアンケート入力フォームを作成しています。
アンケートのステップ問題などで、例えば、問１で“１”と回答した人は問２へ、“２”と回答した人は問３へ進むといったように、セルに入力した値によって別々のセルに飛ぶようにマクロで設定したいのですが、なかなかうまくいきません。
自分で考えたコードは以下のとおりです。


Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 4 To 1003 Step 1
Select Case Cells(i, 4).Value
Case "1"
Cells(i, 4).Offset(0, 8).Activate ‘D4セルに”1”と入力した場合、L4セルへ移動
Case "3"
Cells(i, 4).Offset(0, 3).Activate ‘D4セルに”3”と入力した場合、G4セルへ移動
Case "4"
Cells(i, 4).Offset(0, 5).Activate ‘D4セルに”4”と入力した場合、I4セルへ移動
Case "5"
Cells(i, 4).Offset(0, 7).Activate ‘D4セルに”5”と入力した場合、K4セルへ移動

End Select
Next i
End Sub


D列セルが選択され（アクティブセルとなり）、かつ、セル内容が変更された時のみイベントを発生させるようにしたいのですが、
上記のマクロだと、他の設問の回答をセルに入力した場合も同じイベントが発生するため、入力後のアクティブセルが常にL4セルやG4セルになってしまいます。
１行目だけに入力するなら“For～”のところを削除すればいいのでしょうが、1000行（1000人分）入力するので、繰り返しのマクロが必要になるかと思います。
この場合、どこを改善すればいいのでしょうか。

注）アンケート入力時はすべてテンキーでの入力となります。

質問者が選んだベストソリューション

Yahoo!知恵袋 5080日前