0
필자는 열을 필터링 할 텍스트 필드에 텍스트를 입력 할 수 있도록 VBA 코드를 작성했습니다. 그러나, 내가 뭔가를 입력하면이 오류 상자가 나타납니다 (그림을보십시오). 여기 Dynamic Filter in ExcelExcel 런타임 오류 424 - 필요한 개체
을 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
감사합니다. 어떻게 볼 수 없습니까? –