2016-06-04 8 views
0

필자는 열을 필터링 할 텍스트 필드에 텍스트를 입력 할 수 있도록 VBA 코드를 작성했습니다. 그러나, 내가 뭔가를 입력하면이 오류 상자가 나타납니다 (그림을보십시오). 여기 Dynamic Filter in ExcelExcel 런타임 오류 424 - 필요한 개체

enter image description here

을 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 

답변

1

그것은 단순한 오타처럼 보인다. 텍스트 상자의 이름은 TextBox1이지만 Texbox1으로 표시됩니다.

+0

감사합니다. 어떻게 볼 수 없습니까? –

관련 문제