Page 1 of 1
ขออนุญาตสอบถามการใช้ฟอร์มค้นหาจาก 2 คอลัมม์
Posted: Mon Jan 22, 2024 10:18 am
by 9KiTTi
ขออนุญาตสอบถามการใช้ฟอร์มค้นหาจาก 2 คอลัมม์ โดยผมทำฟอร์มเพื่อค้นหาข้อมูลจากชีท hoscode แล้วแสดงใน listbox เพื่อให้เลือกหน่วยงาน และบันทึกในชีท unit แต่ค้นหาได้แค่จากคอลัมม์ hosname จากชีท hoscode เท่านั้น ผมต้องการให้ค้นหาข้อมูลได้ทั้งคอลัมม์ hoscode และ hosname ต้องแก้ไขอย่างไร ขอบพระคุณครับ
Re: ขออนุญาตสอบถามการใช้ฟอร์มค้นหาจาก 2 คอลัมม์
Posted: Thu Jan 25, 2024 5:54 am
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
'Other code
If InStr(1, Cells(RowNum, 1).Value, txtKeywords.Value, vbTextCompare) > 0 Or _
InStr(1, Cells(RowNum, 2).Value, txtKeywords.Value, vbTextCompare) > 0 Then
Worksheets("unit").Cells(SearchRow, 1).Value = Cells(RowNum, 1).Value
Worksheets("unit").Cells(SearchRow, 2).Value = Cells(RowNum, 2).Value
SearchRow = SearchRow + 1
End If
'Other code
กรณีต้องการค้นหาแบบตรงตัวควรเลือกเป็นการใช้เครื่องหมาย = แทนการใช้
Instr ไม่เช่นนั้นจะได้ค่าใกล้เคียงมาด้วยครับ
Re: ขออนุญาตสอบถามการใช้ฟอร์มค้นหาจาก 2 คอลัมม์
Posted: Sat Jan 27, 2024 6:24 pm
by 9KiTTi
ขอบพระคุณครับอาจารย์