ต้องการพิมพ์ไม่จำกัดตัวอักษรแค่5อักษรค้นหาแล้วแสดงผล VBAครับ

[lotto009]

เรียนอาจาร์ยครับ
ผมติดปัญหาเรื่องต้องการพิมพ์ไม่จำกัดตัวอักษรแค่5อักษรค้นหาแล้วแสดงผล VBAครับ
-ผมเขียนให้พิมพ์เท่ากับ 5ตัวอักษรแต่อยากจะให้พิมพ์แค่ 3 หรือ 4 หรือ 5 ตัวอักษรแล้วแสดงผลที่เราต้องการผ่าน VBAครับ
ผมแนบไฟล์มาด้วยนะครับ

Code: Select all

Private Sub TextBox1_Change()

If Len(TextBox1.Text) = 5 Then

ActiveSheet.Range("$A$1:$c$52").AutoFilter Field:=3, Criteria1:=TextBox1.Text, Operator:=xlAnd

Elself Len(TextBox1.Text) = 4 Then

ActiveSheet.Range("$A$1:$c$52").AutoFilter Field:=3, Criteria1:=TextBox1.Text, Operator:=xlAnd

Else Len(TextBox1.Text) = 3 Then

ActiveSheet.Range("$A$1:$c$52").AutoFilter Field:=3, Criteria1:=TextBox1.Text, Operator:=xlAnd
End If
End Sub

ขอบคุณมากครับ
อาร์ต

[snasui]

จากที่ถามมาปรับ Code เป็นตามด้านล่างครับ

If Len(TextBox1.Text) >= 3 Or Len(TextBox1.Text) <= 5 Then

[lotto009]

เรียนอาจาร์ยครับ
ขอบพระคุณมากครับ แหะ แหะ