Page 1 of 1

ต้องการค้นหา HN หรือ Payor โดยพิมพ์แค่บางส่วน

Posted: Tue May 14, 2024 8:30 am
by wisitsakbenz
เรียน อาจารย์

ต้องการค้นหา HN หรือ Payor โดยพิมพ์แค่บางส่วนให้สามารถค้นหาเจอได้
เช่นค้นหา > "We" ให้เจอ ดังภาพ ต้องแก้ไข Code อย่างไรครับ
ขอบคุณครับ

Code: Select all

'-----othercode
Me.ListBox1.ColumnCount = 8
Me.ListBox1.List = arr
ListBox1.ColumnWidths = "40,100,100,100,100,100,100"
    For i = 3 To Sheet2.Range("A1000000").End(xlUp).Row
        If Sheet2.Cells(i, 2).Value = Sheet1.Cells(4, 9).Value Or Sheet2.Cells(i, 4).Value = Sheet1.Cells(4, 9).Value Then
            Me.ListBox1.AddItem
            For x = 1 To 8
                Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = Sheet2.Cells(i, x)
            Next x
        End If
    Next i
  '-----othercode

Re: ต้องการค้นหา HN หรือ Payor โดยพิมพ์แค่บางส่วน

Posted: Tue May 14, 2024 10:05 am
by puriwutpokin
ปรับตามนี้ครับ

Code: Select all

'-----othercode
Me.ListBox1.ColumnCount = 8
Me.ListBox1.List = arr
ListBox1.ColumnWidths = "40,100,100,100,100,100,100"
    For i = 3 To Sheet2.Range("A1000000").End(xlUp).Row
        If Sheet2.Cells(i, 2).Value Like "*" & Sheet1.Cells(4, 9).Value & "*" Or Sheet2.Cells(i, 4).Value Like "*" & Sheet1.Cells(4, 9).Value & "*" Then
            Me.ListBox1.AddItem
            For x = 1 To 8
                Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = Sheet2.Cells(i, x)
            Next x
        End If
    Next i
 '-----othercode

Re: ต้องการค้นหา HN หรือ Payor โดยพิมพ์แค่บางส่วน

Posted: Tue May 14, 2024 2:28 pm
by wisitsakbenz
เรียน อาจารย์ puriwutpokin

ได้แล้วครับ ขอบคุณมากครับ