vba - 在连接的字符串变量上使用 find 时出现 vba 错误

Question

data1 内容 在此输入图片描述 想请教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

提前致谢！

标签： vba