텍스트 상자의 내용을 복사하여 워크 시트 셀 범위에 붙여 넣으시겠습니까?

Question

저는 서비스 데스크 쿼리 추적 프로그램을위한 Excel 도구를 자동화하기 위해 VBA 프로젝트를 진행하고 있습니다. 일단 명령 단추를 클릭하면 텍스트 상자의 내용을 다른 워크 시트 행으로 복사하려고합니다. 작업을 반복하면 텍스트 상자 내용이 같은 행의 다음 빈 셀에 저장됩니다.

나는이 매크로를 사용

:

Private Sub CommandButton1_Click() 
    TextBox1.Text = "" 
    TextBox1.Copy 
    'TextBox2.Copy 
    'TextBox3.Copy 
    Range("A2").Select 
    Do 
     If IsEmpty(ActiveCell) = False Then 
      ActiveCell.Offset(1, 0).Select 
     End If 
    Loop Until IsEmpty(ActiveCell) = True 
End Sub 

Answer 1

당신은 정말에만 하위에 한 줄의 코드가 필요합니다 : 당신이 원하는 것처럼

Private Sub CommandButton1_Click() 
    Range("A2").End(xlDown).Offset(1, 0).Value = TextBox1.Text 
End Sub 

당신이 그렇게 말하지 않더라도, 보이는을 텍스트 상자도 지울 수 있습니다. 그렇다면 End Sub 앞에 TextBox1.Text = "" 한 줄을 추가하십시오.