テキストボックスのコンテンツをコピーしてワークシートのセル範囲に貼り付けますか？

Question

私はVBAプロジェクトに取り組んで、サービスデスククエリトラッカー用のExcelツールを自動化しています。コマンドボタンをクリックすると、テキストボックスから別のワークシート行にコンテンツをコピーしたいと思います。タスクを繰り返す場合、テキストボックスの内容は、同じ行の次の空のセルに保存する必要があります。

私はこのマクロを使用：

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

あなたが本当にあなただけのサブに1行のコードが必要になります。

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

あなたがそう言っていないにもかかわらず、あなたが望むように、それが見えますテキストボックスもクリアされます。その場合は、End Subの前にTextBox1.Text = ""を1行追加してください。