データが入力されるたびにセル選択を行の上に移動するVBAコード

Question

セルA4にデータを入力するたびに、A5に入力されます。私はこれをA4に戻したり、動かずにA4にとどまることが必要です。これは私がA4にデータを入力するたびに発生する必要があります。私はこの仕事をする方法を見つけることができません。どんな助けもありがとうございます。

Sub MoveUp() 
' MoveUp 
' 
    Range("A4").Select 
    ActiveCell.FormulaR1C1 = "12345" 
    Range("A5").Select 
End Sub 

Answer 1

私はあなただけのExcelを停止する方法を望んでいた、あなたが実際に移動をしているマクロを持っていなかったことを第一に考え

Range("A5").Select 

---

を言うあなたのコードの行を削除します Enterを押したときに以下のセルを選択すると、オプションを変更して簡単に停止できます。

Answer 2

あなたがコードを実行したいシートのワークシートのコードでこれを入れて：

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Intersect(Target, Me.Range("A4")) Is Nothing Then 
    Application.EnableEvents = False 
    Me.Range("A5").Value = Target.Value 
    Target.Select 
    Application.EnableEvents = True 
End If 
End Sub