ต้องการพิมพ์ไม่จำกัดตัวอักษรแค่5อักษรค้นหาแล้วแสดงผล VBAครับ
Posted: Fri Feb 27, 2015 5:22 pm
เรียนอาจาร์ยครับ
ผมติดปัญหาเรื่องต้องการพิมพ์ไม่จำกัดตัวอักษรแค่5อักษรค้นหาแล้วแสดงผล VBAครับ
-ผมเขียนให้พิมพ์เท่ากับ 5ตัวอักษรแต่อยากจะให้พิมพ์แค่ 3 หรือ 4 หรือ 5 ตัวอักษรแล้วแสดงผลที่เราต้องการผ่าน VBAครับ
ผมแนบไฟล์มาด้วยนะครับ
ขอบคุณมากครับ
อาร์ต
ผมติดปัญหาเรื่องต้องการพิมพ์ไม่จำกัดตัวอักษรแค่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
อาร์ต
จากที่ถามมาปรับ Code เป็นตามด้านล่างครับ