Saturday, 26 May 2018

เทคนิคการอ้างอิงด้วยชื่อเซลล์ และสร้างปุ่มเรียกใช้ฟังก์ชัน VlookUp ในการ...

ในบทเรียนนี้เป็นการทำงานขั้นสูงกับโปรแกรม Excel ในการใช้ฟังก์ชัน VlookUp แบบแอดว๊านซ์

โดยจะมีการกำหนดชื่อให้เซลล์หรือช่วงของเซลล์และนำชื่อเซลล์นั้นมาใช้อ้างอิงในฟังก์ชัน
แล้วนำความรู้การเขียนคำสั่ง VBA มาใช้ในการเขียนคำสั่งเพื่อใส่ในปุ่มเรียกใช้ฟังก์ชัน

เนื้อหาในบทเรียนนี้เป็นการทำงานขั้นสูง

ดังนั้นท่านที่ไม่เคยใช้การตั้งชื่อเซลล์หรือการเขียนคำสั่งด้วย VBA อาจต้องศึกษาวิธีทำงานดังกล่าวเพิ่มเติมนะคะ


Advanced VlookUp 1
เรามาเข้าสู่การค้นหาข้อมูลกันดีกว่าค่ะ
Advanced VlookUp 2

Advanced VlookUp 3

Advanced VlookUp 4

Advanced VlookUp 5

Advanced VlookUp 6

ขั้นตอนการทำงานของเรามีขั้นตอนหลัก ๆ อยู่ 3 ขั้นตอน  

Advanced VlookUp 7


ขั้นตอนที่ 1. ตั้งชื่อเซลล์

      1.1เลือกช่วงเซลล์ ในตารางในชีท report แล้วตั้งชื่อตามหัวข้อของแถวแรก (Top row) ในตาราง

      1.2 เลือกช่วงตารางในชีท Data Shop ตั้งชื่อว่า Shop_Table

      1.3 เลือกช่วงตารางในชีท Data Item ตั้งชื่อว่า Item_Table

ขั้นตอนที่ 2. เขียนฟังก์ชันหลังจากเราตั้งชื่อเซลล์และช่วงเซลล์เรียบร้อยแล้ว
เราจะเริ่มการเขียนฟังก์ชัน เพื่อดึงข้อมูลชื่อร้านค้ามาวางในคอลัมน์ J (หัวข้อ Name Shop ) เริ่มที่เซลล์ J2
       { คลิกที่เซลล์ J2 }
ฟังก์ชันที่ใช้คือ VlookUp โดยจะนำชื่อเซลล์ที่เราตั้งไว้แล้วในขั้นตอนที่แล้ว มาใช้อ้างอิงในฟังก์ชัน
       { เริ่มพิมพ์ฟังก์ชัน =VLookup(Code_Shop, Shop_Table, 2, 0) }

ขั้นตอนที่ 3. เขียน Code VBA ในการทำงานกับฟังก์ชัน VlookUp และเพิ่มปุ่มเรียกใช้ฟังก์ชัน

      (ท่านที่เชี่ยวชาญการเขียนฟังก์ชัน สามารถข้ามขั้นตอนที่ 2 มาทำขั้นตอนที่ 3 เลยได้)  
       หลังจากเราตั้งชื่อเซลล์และช่วงเซลล์เรียบร้อยแล้ว เราจะเขียน Code VBA ในการเรียกการทำงานของฟังก์ชัน และเพิ่มปุ่มเรียกใช้ฟังก์ชัน 

       3.1 เขียน Code กำหนดตำแหน่งการทำงานของฟังก์ชันและฟังก์ชันที่จะใช้
               เรามาเริ่มเขียน Code VBA

        ก่อนอื่นเปิดหน้าต่าง VBA ขึ้นมาก่อน โดยกดปุ่ม ALt + F11

       ในหน้าต่าง VBA คลิกที่ชื่อไฟล์งานของเรา เพิ่ม Module และ Procedure 
แล้วเขียนคำสั่งตามภาพ
Advanced VlookUp 8


          3.2 เพิ่มปุ่มคำสั่งเรียกใช้ฟังก์ชันบน Quick access toolbar 
{ คลิกคำสั่งเพิ่มเติม (More Command...) ของ Quick Access Toobar > เลือกคำสั่งจาก Macro > เลือกคำสั่งที่จะนำมาทำปุ่ม > คลิก add }

          3.3 แทรกรูปร่างสำหรับเป็นปุ่มทำงานบนชีท
{ แทรกรูปร่าง > เพิ่มชื่อ > assign Macro }

เราสร้างปุ่มแล้วเสร็จ มาทดลองกัน เริ่มจากลบข้อมูลที่มีอยู่ในช่วงเซลล์ Name Shop

         คลิกปุ่มที่สร้างมา สามารถดึงข้อมูลชื่อร้านมาให้เราได้สำเร็จ (ในขั้นตอนนี้ถ้าใครทำคลิกปุ่มแล้ว error ให้ย้อนกลับไปดู Code ในหน้าต่าง VBA ว่าเขียนถูกต้องหรือไม่)

ในตอนนี้เราได้ทำการสร้างฟังก์ชันและสร้างปุ่มการทำงานเรียบร้อยแล้ว



มีคลิปแสดงขั้นตอนการทำงานทั้งหมดอยู่ด้านล่างของบทความ


ท่านที่มีข้อสงสัยสามารถสอบถามข้อมูลได้ที่    Facebook หรือไลน์ @ieasycom



ติดต่อเรา


คลิป







No comments:

Post a Comment