如何从datepicker填充用户表单

Question

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

我以前有一个通过数字填充的电子表格，但无法弄清楚如何使用日期选择器而不是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