Microsoft VBA自定义搜索函数仅支持4位数字，需适配多位数场景

核心问题定位 #

你的代码存在两个关键问题，直接导致超过4位数字的搜索失效：

1. 错误使用UCase()处理数字比较：UCase()是字符串大小写转换函数，对数字完全无效，反而会强制将单元格和文本框的数值转为字符串类型。字符串的比较逻辑和数字完全不同——比如字符串"12345"会被判定为小于"9999"（因为首字符1的ASCII码小于9），这就是长数字搜索异常的根本原因。
2. 文本框值的类型默认是字符串：用户窗体文本框的Value默认返回字符串，直接和单元格数值比较时，VBA的自动类型转换不可靠，长数字容易出现匹配错误。

修复步骤 #

1. 修正比较逻辑，统一为数值类型比较 #

把你提到的代码行修改为以下形式，确保是数值大小比较而非字符串比较：

' 先验证内容是否为有效数字，再转成数值类型比较
If IsNumeric(Sheet3.Cells(row_no, field).Value) And IsNumeric(Me.Textbox1.Value) Then
    If CDbl(Sheet3.Cells(row_no, field).Value) >= CDbl(Me.Textbox1.Value) Then
        ' 这里写入你的匹配后执行逻辑
    End If
End If

• IsNumeric()用于提前验证内容是否为有效数字，避免类型转换报错；
• CDbl()将两边值统一转为双精度浮点数（如果是纯整数也可以用CLng()），彻底规避字符串比较的逻辑错误。

2. 确认变量类型的一致性 #

虽然你已将Integer替换为Long，但要确保所有涉及属性编号的变量都使用Long或Double类型，避免溢出或类型不匹配。例如：

Dim targetNumber As Double
If IsNumeric(Me.Textbox1.Value) Then
    targetNumber = CDbl(Me.Textbox1.Value)
End If

3. 可选优化：限制文本框输入为数字 #

如果属性编号仅为数字，可以给文本框添加KeyPress事件，屏蔽非数字输入，减少无效值干扰：

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    ' 仅允许数字(ASCII 48-57)和退格键(ASCII 8)
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
        KeyAscii = 0 ' 屏蔽无效输入
    End If
End Sub

验证方法 #

测试时输入5位数字（如12345），对比单元格中的12345和9999，确认逻辑是否按数值大小判定（12345应大于9999）。

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