vba在串联字符串变量上使用查找时发生错误

Question

Data1 content enter image description here 想在vba中的以下代码上寻求帮助。基本上，我将标签（日期）的标题与用户窗体中的文本框值（EmpNo）连接在一起，因此我不必在2个单独的列中搜索每个项目（B列中的EmpNo和C列中的日期）并将其存储在字符串变量Data1中。然后，我想找到Data1在列A中的位置，并在右侧获得第7列。我不确定这是哪里出了问题，但它会不断发送错误对象变量或未设置块变量。

在Set Search=Range ...行中显示错误。

Private Sub Find_Click()

With Sheets("Sheet1")

    Dim Data1 As String
    Dim Search As Range
    Dim Cell As Range
    Dim Pass As Range
    D1.Caption = Range("R4").Text
    D2.Caption = Range("R5").Text
    D3.Caption = Range("R6").Text
    D4.Caption = Range("R7").Text
    D5.Caption = Range("R8").Text
    D6.Caption = Range("R9").Text
    D7.Caption = Range("R10").Text
        Data1 = EmpNo.Text & "-" & D3.Caption
        Set Cell = Range("K4: K1000").Find(EmpNo.Text).Offset(0, 3)
        Set Pass = Range("K4: K1000").Find(EmpNo.Text).Offset(0, 1)
        Set Search = Range("A4: A1000").Find(Data1).Offset(0, 7)
        EmpName.Caption = Cell.Text
    If Password.Text = Pass.Text Then MultiPage1.Visible = True
End With
End Sub

谢谢！