Database 在搜索引用号时获取Userform中的值

您好，我希望使用userform从表中的特定行返回值。我在更新值的代码方面取得了一些成功，并认为通过调整代码，我可以让它做相反的事情，将值拉回到用户表单中。如果有人能帮助我，我将不胜感激

Private Sub Find_Click()

Dim searchRange As Range
Dim foundCell As Range
Dim mysearch As String

mysearch = Me.Search.Value

With ThisWorkbook.Sheets("Master Data")
    Set searchRange = .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
End With

Set foundCell = searchRange.Find(what:=mysearch, Lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)
If Not foundCell Is Nothing Then
    Me.MerchInstall.Value = foundCell.Offset(0, 7).Value
    Me.ReOrderCode.Value = foundCell.Offset(0, 13).Value
Else
     MsgBox "ID does not exist."
End If

End Sub

---

谢谢，

代码正常吗？您收到错误消息了吗？还是运行时没有错误。如果没有错误消息，请详细说明它的作用和应该做什么。另外，请附上

主数据

表和表单的一些屏幕截图。对于表格，还请包括用户表格上所指的

Me.Search

，

Me.MerchInstall

等内容。简而言之，请向我们提供一个答案。很抱歉，我现在似乎已经设法解决了这个问题：）@MBrann-如果您能够解决自己的问题，请将解决方案作为答案发布-它可能会帮助其他有同样问题的人！：]