我来帮你搞定这个匹配不触发提示的问题，大概率是数据类型不匹配或者函数使用的细节没处理到位，咱们一步步来排查解决：

核心问题分析 #

你遇到的情况，最常见的原因是文本框数据类型和Excel单元格数据类型不一致：

• 你的文本框txtv.Value是数值类型，但如果工作表里的凭证编号是文本型数字（比如单元格设为文本格式，输入的123实际存储为字符串"123"），这时候数值123和字符串"123"在Application.Match眼里是完全不同的内容，自然匹配失败。
• 另外，也可能存在单元格内容带前后空格、查找范围计算错误的情况。

修正后的代码 #

我给你调整了代码，重点解决数据类型统一的问题，同时增加了一些鲁棒性处理：

Private Sub txtv_AfterUpdate()
    Dim wsEntries As Worksheet
    Dim lookupRange As Range
    Dim totalRows As Long
    Dim matchResult As Variant
    
    ' 绑定目标工作表，避免ActiveSheet的潜在问题
    Set wsEntries = ThisWorkbook.Worksheets("Entries")
    
    ' 正确计算A列最后一行数据（和工作表绑定，兼容不同Excel版本）
    totalRows = wsEntries.Cells(wsEntries.Rows.Count, "A").End(xlUp).Row
    
    ' 如果没有数据（总行数小于2，因为从A2开始），直接退出
    If totalRows < 2 Then
        Exit Sub
    End If
    
    ' 定义查找范围
    Set lookupRange = wsEntries.Range("A2:A" & totalRows)
    
    ' 统一转成文本类型匹配，彻底解决类型不匹配问题
    ' 同时用Trim去掉文本框内容的前后空格，避免空格导致的匹配失败
    matchResult = Application.Match(Trim(CStr(txtv.Value)), lookupRange, 0)
    
    ' 检查匹配结果
    If Not IsError(matchResult) Then
        MsgBox "This voucher number has already been used previously. Voucher numbers cannot be duplicated.", vbExclamation, "Duplicate Voucher Alert"
        ' 让光标回到文本框并选中内容，方便用户修改
        txtv.SetFocus
        txtv.SelStart = 0
        txtv.SelLength = Len(txtv.Value)
    End If
End Sub

额外排查要点 #

如果修改代码后还是不行，你可以检查这几点：

• 单元格内容是否有隐藏空格：选中A列的凭证编号单元格，看编辑栏里的内容是不是带前后空格（比如" 123"或"123 "），如果有，也可以在代码里给查找范围的单元格加Trim处理，比如用lookupRange.Value转成数组后遍历Trim，或者直接在工作表里批量清除空格。
• 单元格格式确认：如果凭证编号是纯数字但需要作为文本存储（比如有前置零的情况），确保单元格格式设为「文本」，输入时不要加多余的单引号（如果加了也没关系，转文本匹配依然有效）。
• 查找范围是否正确：确认A列的表头在第1行，数据从第2行开始，totalRows计算的确实是最后一行数据行。

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