Текстовое поле 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

Импорт данных из таблицы Excel в таблицу SQL Server

Как перемещаться по одному столбцу на конкретных листах в excel vba?

Преобразование Excel «Если» функция для запроса T-SQL

Vba Code select value из раскрывающегося списка Список заполняет некоторые ячейки цветом

Ошибка 0070005 Acceso denegado Interop.Excel

VBA Vlookup дает N / A, но обычный Vlookup дает правильный результат

Условное форматирование на основе ячейки выше

Загрузка 32-битной COM-библиотеки DLL в 64-битном дополнительном офисе

После запуска функции VBA # N / A в ячейках

Отображение текста на основе координат на изображении с помощью шаблонной системы Django

Запустите код VBA, изменив значение ячейки в другой таблице с помощью поля со списком

Создание диаграммы столбцов в Excel, которая игнорирует пустые ячейки

Ошибка при запуске пакета SSIS в качестве задания

Как обновить цикл или обновить цикл в VBA

Как написать функцию, которая вычитает два значения, только если строки видны?

Давайте будем гением компьютера.