如何修改VBA代码实现用户窗体文本框精确值自动填充？

当前你的VBA代码使用Find方法时默认采用部分匹配逻辑，导致输入“33”会匹配到包含该字符串的单元格（如“202409334”）。要实现精确值匹配，只需修改Find方法的参数即可。

关键改动 #

在Find方法中添加LookAt:=xlWhole参数，强制要求匹配单元格的完整内容，而非部分内容。如果需要区分大小写，还可额外添加MatchCase:=True参数。

修改后的完整代码 #

Private Sub txtdevolução_AfterUpdate()
    Dim id As String, rowcount As Integer, foundcell As Range
    
    id = txtdevolução.Value
    
    rowcount = Sheets("retornos pendentes").Cells(Rows.Count, 1).End(xlUp).Row
    
    With Worksheets("retornos pendentes").Range("A1:A" & rowcount)
        ' 启用精确匹配：LookAt:=xlWhole
        Set foundcell = .Find(what:=id, LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not foundcell Is Nothing Then
            txtclienteopl.Value = .Cells(foundcell.Row, 3)
            txtmatricula2.Value = .Cells(foundcell.Row, 12)
        Else
            txtclienteopl.Value = ""
            txtmatricula2.Value = ""
        End If
    End With
End Sub

原理说明 #

Excel的Find方法默认LookAt参数为xlPart（部分匹配），会匹配任何包含目标字符串的单元格。设置为xlWhole后，只有当单元格内容与输入值完全一致时才会被匹配到，满足你的需求。

内容的提问来源于stack exchange，提问作者André Lopes