การเขียน function xlookup ไว้ใช้งานเองด้วยคำสั่ง VBA

[tejasiddh]

สวัสดีครับ ทุกท่านที่เข้ามาข้อหาความรู้ เพื่อต่อยอดในการทำงาน
และสวัสดี อาจารย์ และผู้ที่ให้คำแนะนำช่วยเหลือตลอดมา
excel รุ่นเก่าจะไม่มี function xlookup ผมได้ความรู้มาจากโพสของ excel vba เห็นว่ามีประโยชน์และนำมาใช้ได้จึงนำมาแนะนำและต่อยอด
พร้อม file

แต่พบว่ามีปัญหาในการใช้ & ในการเชื่อมคำในการค้นหา
ไม่ทราบว่าจะแก้ไขสูตรอย่างไร

Function XLookUp(LookVal As Range, rng_LookUp As Range, rng_return As Range)
Dim x As Integer
x = Application.WorksheetFunction.Match(LookVal.Value, rng_LookUp, 0)
XLookUp = Application.WorksheetFunction.Index(rng_return, x)
End Function

[snasui]

กรุณาทบทวนการโพสต์ Code ตามกฎการใช้บอร์ดข้อ 5 ด้านบนและแก้ไขการโพสต์ใหม่ให้เป็นไปตามนั้นครับ

[tejasiddh]

Code: Select all

Function XLookUp(LookVal As Range, rng_LookUp As Range, rng_return As Range)
Dim x As Integer
x = Application.WorksheetFunction.Match(LookVal.Value, rng_LookUp, 0)
XLookUp = Application.WorksheetFunction.Index(rng_return, x)
End Function

รบกวนช่วยแนะนำด้วยครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Function XLookUp(LookVal As Variant, rng_LookUp As Range, rng_return As Range)
    Dim x As Integer
    x = Application.WorksheetFunction.Match(LookVal, rng_LookUp, 0)
    XLookUp = Application.WorksheetFunction.Index(rng_return, x)
End Function

[tejasiddh]

ขอบคุณครับ

[tejasiddh]

อาจารย์ครับถ้าต้องการให้ฟังชันที่สร้างขึ้นสามารถใช้งานได้ทุกทีต้องทำอย่างไรครับ

[snasui]

คงจะหมายถึงใช้งานได้กับทุกไฟล์

การให้มีผลเช่นนั้นจะต้องทำเป็น Add-Ins ดูตัวอย่างได้ที่นี่ครับ https://trumpexcel.com/excel-add-in/