特定のセルの値を列内の次の開いているセルに移動する

Question

ユーザーがセルに値を入力できるようなデータベースのようなドキュメントを設定しようとしています。列Cの次の空きセルに移動するためにセルC4に値を入れてください。

私は使用できる関数（または関数群）がありますか、これを実行しようとExcelにVBAを使うべきですか？

私は、エクセルのために新しくなっています。誰かが正しい方向に私を導くことができれば、それはすばらしいでしょう。ありがとう:)

Answer 1

お探しのものはWorksheet_Changeです。あなたが単一のセルのみを追跡している場合は、この関連Worksheetモジュールで

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rTarget As Range 

    Set rTarget = Me.Cells(4, 3) 
    If Not Application.Intersect(rTarget, Target) Is Nothing Then 
     Me.Cells(Me.Rows.Count, 1).End(xlUp).Offset(1, 0) = rTarget.Value 
     rTarget.ClearContents 
    End If 
End Sub 

Answer 2

場所は、それはかなり単純です。

ワークシートのコードモジュール内にこれを貼り付けます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    If Target.Address = "$C$4" Then 
     Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value 
     Target.Clear 
    End If 

End Sub