如何匹配VBA UserForm一个文本框内容 并在另一文本框显示搜索结果

场景说明 #

正在开发带有2个TextBox的VBA UserForm功能，界面如下：

数据存储在单独的工作表中，表结构如下：

需求：在第一个TextBox中输入REF ID（对应数据工作表第1列内容）进行搜索，匹配成功后将对应行第4列的备注（notes）内容展示在第二个TextBox中，该TextBox已设置WordWrap和MultiLine属性为True。

报错原因 #

原代码运行时在Me.resultid.Value = FoundCell.Offset(0, 4).Value行报错，原因如下：

• 列偏移参数错误：Offset(行偏移, 列偏移)的偏移量从0开始计算，REF ID在第1列（A列），目标备注在第4列，两列差值为3，原代码写的Offset(0, 4)会定位到第5列，若该列无有效内容、或存储的是Excel错误值（如#N/A），直接赋值给TextBox就会触发报错。
• 搜索范围不合理：原代码设置的搜索范围是A-J全表区域，Find方法会在所有列中检索匹配值，若其他列存在和输入REF ID相同的内容，会导致FoundCell定位到非A列的单元格，后续偏移取数也会出错。
• 缺少错误值兼容：如果目标备注单元格本身是错误值，直接赋值给文本框会触发类型不匹配错误。

修复后完整代码 #

Private Sub CommandButton1_Click()
Dim Search As String
Dim FoundCell As Range, SearchRange As Range
Dim ws As Worksheet
Set ws = Worksheets("Database")
' 仅在A列搜索REF ID，避免匹配到其他列的相同内容
Set SearchRange = ws.Range("A1", ws.Range("A65536").End(xlUp))

Search = Me.jobid.Text

If Len(Search) = 0 Then Exit Sub

Set FoundCell = SearchRange.Find(What:=Search, LookIn:=xlValues, LookAt:=xlWhole)

If Not FoundCell Is Nothing Then
    ' 列偏移改为3，对应A列向右3格到第4列，同时兼容单元格错误值
    If Not IsError(FoundCell.Offset(0, 3).Value) Then
        Me.resultid.Value = FoundCell.Offset(0, 3).Value
    Else
        Me.resultid.Value = "备注内容读取错误"
    End If
Else
    MsgBox Search & Chr(10) & "Record Not Found", 48, "Not Found"
End If

End Sub

补充说明 #

如果你的备注列实际不是第4列，可自行调整Offset的第二个参数：参数值为「目标列序号-1」即可，比如备注在第5列就改为Offset(0,4)。

内容的提问来源于stack exchange，提问作者David Chrisof