สอบถามการค้นหาข้อมูล ใน textbox
Posted: Wed Mar 26, 2025 2:32 pm
จากไฟล์แนบ หากเราต้องการ ค้นหาคำบางคำ โดยใส่คำที่ค้นหา ใน textbox แล้ว คำที่เราต้องการแสดงออกมาทั้งหมด ต้องแก้ไขสูตรยังไงครับ / ขอบคุณครับ
ตัวอย่างการปรับ Code ให้นำค่าใน TextBox1 มาใช้ Search ครับCode: Select all
Private Sub TexBox1_Change()
Dim ws As Worksheet
Dim searchText As String
Set ws = ActiveSheet
searchText = ws.OLEObjects("TextBox1").Object.Text
If searchText = "" Then
Exit Sub
Else
ws.Range("B5").AutoFilter Field:=2, _
Criteria1:="*" & searchText & "*", Operator:=xlFilterValues
End If
End Sub