특정 셀의 값을 열의 다음 열린 셀로 이동

Question

사용자가 셀에 값 (예 : C4)을 입력 할 수 있도록하는 데이터베이스와 유사한 문서를 설정하려고합니다. 어떤 값을 셀 C4에 넣고 A 열의 다음 자유 셀로 이동하십시오.

사용할 수있는 함수 (또는 함수 집합)가 있습니까? 아니면 이것을 수행하려고 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