VBA中向WorksheetFunction.Match传递TextBox值时出现运行时错误1004

问题原因 #

你遇到的Run-time error '1004'本质是数据类型不匹配：

• 直接用1234时，这是数值类型，和Sheet5.Range("D5:D8")里存储的零件编号（数值类型）匹配，所以Match执行成功。
• TextBox1.Value返回的是字符串类型，即使显示的是1234，也和数值类型的单元格内容不匹配，导致Match找不到对应项，触发错误。

解决方法 #

方法1：将文本框输入转换为数值类型

把TextBox1.Value转换成和目标单元格一致的数值类型（比如长整型），再传入Match函数：

' 转换为长整型后执行Match
Sheet5.Range("j7") = Application.WorksheetFunction.Match(CLng(TextBox1.Value), Sheet5.Range("D5:D8"), 0)

如果零件编号是小数，改用CDbl(TextBox1.Value)转换为双精度型。

方法2：用Application.Match替代WorksheetFunction.Match（更健壮）

WorksheetFunction.Match找不到匹配项时会直接报错，而Application.Match会返回错误值，方便我们处理异常情况：

Dim matchResult As Variant
' 先转换类型再匹配
matchResult = Application.Match(CLng(TextBox1.Value), Sheet5.Range("D5:D8"), 0)

If Not IsError(matchResult) Then
    Sheet5.Range("j7") = matchResult
Else
    ' 未找到时的提示或处理逻辑
    MsgBox "未找到指定的零件编号"
End If

额外建议 #

• 可以在文本框输入时限制只能输入数字，避免非数值内容导致转换错误（比如给TextBox的KeyPress事件加校验）。
• 尽量避免直接激活工作表（Worksheets("Inventory").Activate），直接通过工作表对象操作更高效稳定。

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