Excel运行时错误424 – 需要对象

我写了一个VBA代码,允许我在文本框中input文本来过滤列。 但是,当我input的东西,我收到这个错误框(看图片)。

我正在按照这个教程,它工作正常: Excel中的dynamicfilter

在这里输入图像说明

这里是VBA代码:

Private Sub TextBox1_Change() If Len(Texbox1.Value) = 0 Then Sheet1.AutoFilterMode = False Else If Sheet1.AutoFilterMode = True Then Sheet1.AutoFilterMode = False End If Sheet1.Range("A2:C" & Rows.Count).AutoFilter field:=1, Criteria1:="*" & TextBox1.Value & "*" End If End Sub 

这似乎是一个简单的错字。 您的文本框被命名为TextBox1但将其称为Texbox1