ขออนุญาตสอบถามการใช้ฟอร์มค้นหาจาก 2 คอลัมม์

[9KiTTi]

ขออนุญาตสอบถามการใช้ฟอร์มค้นหาจาก 2 คอลัมม์ โดยผมทำฟอร์มเพื่อค้นหาข้อมูลจากชีท hoscode แล้วแสดงใน listbox เพื่อให้เลือกหน่วยงาน และบันทึกในชีท unit แต่ค้นหาได้แค่จากคอลัมม์ hosname จากชีท hoscode เท่านั้น ผมต้องการให้ค้นหาข้อมูลได้ทั้งคอลัมม์ hoscode และ hosname ต้องแก้ไขอย่างไร ขอบพระคุณครับ

[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 ไม่เช่นนั้นจะได้ค่าใกล้เคียงมาด้วยครับ

[9KiTTi]

ขอบพระคุณครับอาจารย์