excel - 如何从日期选择器填充用户表单

Question

我正在尝试设置一个使用日期选择器填充的用户表单。A 列将是日期列表，而 B、C 和 D 列将是当天工作的员工。我似乎找不到一种方法来根据选择的日期来填充文本框的 1 到 3。我以前有一个使用数字的表格，但我不确定如何通过日期选择器更改代码以使用日期。任何帮助，将不胜感激

我有一个以前的电子表格，它通过数字填充，但不知道如何使用 datepicker 而不是 textbox1

  Dim id As Integer, i As Integer, j As Integer, flag As Boolean


Sub GetData()

If IsNumeric(UserForm1.TextBox1.Value) Then
     flag = False
     i = 2
     id = UserForm1.TextBox1.Value

     Do While Cells(i + 1, 1).Value <> ""

         If Cells(i + 1, 1).Value = id Then
             flag = True
             For j = 2 To 5
                 UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value
             Next j
         End If

         i = i + 1

     Loop

     If flag = False Then
         For j = 2 To 5
             UserForm1.Controls("TextBox" & j).Value = ""
         Next j
     End If

Else
     ClearForm
End If

End Sub

标签： excelvbadatepickeruserform