Excelのセル移動について

質問

• Excelのセル移動に関する方法を教えてください。
• アンケートデータの入力時にセル移動を効率化する方法はありますか？
• コカコーラのキャンペーンサイトのようにExcelで上位桁のセル入力後、自動的に下位桁のセルに移動する設定は可能ですか？

回答No.4

jcctaira

VBAで対応すればできます。
以下はプログラム例です。
数字１～５までの１文字を入力すると、セルに値を設定し次セルへ移動します。

【Sub 入力イベント_設定()】は一度だけ実行してください。
【Private Sub Workbook_Open()】にして、EXCELを開いた時に自動的に設定した方が便利かも知れません。

-----------------------------------------
Sub 入力イベント_設定()
　Dim I As Integer
　For I = 1 To 5
　　Application.OnKey I, "数字入力" & I
　Next I
End Sub

Sub 数字入力1()
　ActiveCell = 1
　Call NEXT_CELL
End Sub
Sub 数字入力2()
　ActiveCell = 2
　Call NEXT_CELL
End Sub
Sub 数字入力3()
　ActiveCell = 3
　Call NEXT_CELL
End Sub
Sub 数字入力4()
　ActiveCell = 4
　Call NEXT_CELL
End Sub
Sub 数字入力5()
　ActiveCell = 5
　Call NEXT_CELL
End Sub

Sub NEXT_CELL()
　ActiveCell.Offset(, 1).Select　　　　　　　　　' 右のセルへ移動
　If ActiveCell.Column > 50 Then　　　　　　　 ' 列が50を超えたら
　　Cells(ActiveCell.Row + 1, "A").Select　　 ' 次の行の先頭へ
　End If
End Sub