如何从行中挑选数据并在表单上显示

Question

我在电子表格中有一个日期列表，这些日期旁边是与该日期相对应的详细信息，我有一个组合框，可以找到列表中的所有日期，但是当我选择时下拉列表中的特定日期，我希望它能在表单上的文本框中显示该行中的相应数据，到目前为止，我有：

Private Sub ComboBox1_Change()
    Dim rw As Long, cl As Range
    staffName = TextBox8.Value
    rw = WorksheetFunction.Match(Me.ComboBox1.Value, Worksheets(staffName).Range("A16:A18"), 0)
    TextBox1 = Worksheets(staffName).Range("A" & rw).Offset(0, 1)
    TextBox2 = Worksheets(staffName).Range("A" & rw).Offset(0, 2)
    TextBox3 = Worksheets(staffName).Range("A" & rw).Offset(0, 3)
    TextBox4 = Worksheets(staffName).Range("A" & rw).Offset(0, 4)
End Sub

它没有错误，但没有任何想法？

Answer 1

如何更改匹配到vba Find函数，例如：

Private Sub ComboBox1_Change()
    Dim cl As Range, wks As Worksheet
    staffname = TextBox8.Value
    Set wks = Sheets(staffname)
    Set cl = wks.Range("A16:A18").Find(Me.ComboBox1.Value, lookat:=xlWhole)
    With Me
        .TextBox1.Value = cl.Offset(, 1)
        .TextBox2.Value = cl.Offset(, 2)
        .TextBox3.Value = cl.Offset(, 3)
        .TextBox4.Value = cl.Offset(, 4)
    End With
End Sub