ＶＢＡで特定のセルにデータ入力後改行、連番挿入

質問

し、更に右側のセルに自動的に移動させたいと考えています。
そこで、サイトを探して一連番号の挿入までは探すことができましたが、右側のセルに移動させる構文を探すことができません。
参考ＵＲＬの教示か下記の構文に追加して頂ければと思います。宜しくお願いします。

No.　　 　年月日 　　　費目 　　摘要 　単価 　数量 　金額
1347　　H 24.09.06 　書籍等 　雑誌 　1,940 　1 　1,940

　　　　　　　　　　↑数量を入力すれば次の行の頭に移動して
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　一連番号を入力、次に自動的に年月日の
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　セルに移動するために

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 6 Then
Target.Offset(1, -5) = Target.Row
End If
　　　　　　　　←ここに右側セルに自動的に移動させる構文を設定したいと考えています。

End Sub

回答No.1

WindFaller · ベストアンサー

ご質問から、こちらの解釈が、違っているかもしれません。

>←ここに右側セルに自動的に移動させる構文を設定したいと考えています。

入力する度に、カーソルが、右に動くというのなら、以下のようになりますが、常に、マクロで設定するものではありませんから、例えば、ブックのアクティベートや、シートのアクティベートの際に、このように設定します。 Target.Offset(,1).Select と動かす方法もありますが、若干、カーソルが下に行きながら、横に行くという動きが見えることがありますので、本来の機能を使ったほうがよいです。

'//カーソルを右に移動　シートのアクティベート時に設定
Private Sub Worksheet_Activate()
　Application.MoveAfterReturnDirection = xlToRight　'右に移動
End Sub

'//標準に戻す時　シートを変えた時に元に戻す
Private Sub Worksheet_Deactivate()
　Application.MoveAfterReturnDirection = xlDown　'下に移動
End Sub

次に、行の1列目にカーソルを持って行きたいというなら、

'//6列目で、次の行の1列目に戻る
If Target.Column = 6 Then
　Cells(Target.Row + 1, 1).Select
End If

となります。

補足

早速の回答ありがとうございます。助かりました。