Snasui Excel Forum

Posted: **Tue Oct 01, 2019 6:23 pm**

สวัสดีครับ ทุกท่านที่เข้ามาข้อหาความรู้ เพื่อต่อยอดในการทำงาน
และสวัสดี อาจารย์ และผู้ที่ให้คำแนะนำช่วยเหลือตลอดมา
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

Posted: **Tue Oct 01, 2019 6:54 pm**

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

Posted: **Wed Oct 02, 2019 10:13 am**

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

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

Posted: **Wed Oct 02, 2019 10:16 pm**

ตัวอย่างการปรับ 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

Posted: **Thu Oct 03, 2019 5:01 pm**

ขอบคุณครับ

Posted: **Thu Oct 03, 2019 5:23 pm**

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

Posted: **Thu Oct 03, 2019 9:26 pm**

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

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

Snasui Excel Forum

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

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

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

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

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

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

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

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