Question

我正在构建一个具有用户输入数据的用户表单，然后将其传输到另一个名为“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”表，下面的子句是应该显示当前日期的文本框的代码。我可以添加或更改哪些内容以确保在表单初始化后立即填充日期？感谢任何帮助，谢谢！

Answer 1

使用UserForm事件，因此加载用户窗体时，将显示日期。

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

Userform文本框未正确填充vba

1 个答案: