Текстовое поле Userform не заполняется правильно vba

Я создаю пользовательскую форму, которая имеет пользовательские входные данные, и затем переносит ее на другой лист под названием «Tracker». Как часть формы, я помещаю все записи с текущей датой, которая у меня есть в текстовом поле, но она не появится, пока вы не запустите форму, не щелкните в текстовом поле и не попытайтесь ввести что-либо. Вот мой код, который, надеюсь, передаст мой проект немного более четко.

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 переносит данные из Userform на лист «Tracker», а ниже – код для текстового поля, на котором должна отображаться текущая дата. Что я могу добавить или изменить, чтобы гарантировать, что дата заполняется, как только форма будет инициализирована? Любая помощь приветствуется, спасибо!

Используйте событие UserForm, поэтому, когда пользовательская форма загружена, будет отображаться дата.

 Private Sub UserForm_Initialize() date_txtb.Text = Format(Now(), "MM/DD/YY") End Sub 
Interesting Posts
Давайте будем гением компьютера.