ユーザーフォームのテキストボックスが正しく入力されていません。

Question

ユーザー入力データを持つユーザーフォームを作成しています。これを「トラッカー」という別のシートに転送します。フォームの一環として、すべてのエントリにテキストボックスにある現在の日付をタグ付けしていますが、フォームを実行し、テキストボックスをクリックして何か入力しようとするまで表示されません。ここに私のプロジェクトが少しだけはっきりと伝えられるようなコードがあります。

Private Sub CommandButton3_Click() 
    Dim LastRow As Long, ws As Worksheet 

    Set ws = Sheets("Tracker") 
    Sheets("Tracker").Select 
    LastRow = ws.range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row 
    ws.range("A" & LastRow).Value = date_txtb.Text 'Adds the TextBox3 into Col A & Last Blank Row 
    ws.range("B" & LastRow).Value = ComboBox1.Text 'Adds the ComboBox1 into Col B & Last Blank Row 


End Sub 

Private Sub date_txtb_Change() 
date_txtb.Text = Format(Now(), "MM/DD/YY") 
End Sub 

Command Button 3「トラッカ」シート、及び以下のサブへ転送するユーザーフォームからのデータは、現在の日付を表示するようになっているテキストボックスのコードです。フォームを初期化するとすぐに日付が入力されるように、追加または変更することはできますか？どんな助けでも感謝しています！

Answer 1

UserFormイベントを使用すると、userformがロードされたときに日付が表示されます。

Private Sub UserForm_Initialize() 
    date_txtb.Text = Format(Now(), "MM/DD/YY") 
End Sub