VBA Vlookup ข้อมูลระหว่าง worksheet

[a6block5]

ขอคำแนะนำในการเขียน Code Macro สำหรับการ Vlookup ข้อมูลใน Sheet1 ให้แสดงใน Sheet Tracking หน่อยครับ ผมลองเขียนตามความเข้าใจ แต่ข้อมูลไม่มา ขอบคุณมากครับ

[logic]

แบบนี้หรือเปล่าครับ

Code: Select all

Private Sub Worksheet_Vaccine()
    Dim lastRow&
    Dim myCode As Range, c As Range
    With Sheets("Tracking")
        lastRow = .Range("b" & .Rows.Count).End(xlUp).Row
        Set myCode = .Range("b3:b" & lastRow)
        For Each c In myCode
            c.Offset(0, 1).Value = Application.VLookup(c, Sheet1.Range("b:d"), 2, False)
            c.Offset(0, 2).Value = Application.VLookup(c, Sheet1.Range("b:d"), 3, False)
        Next c
    End With
End Sub

[a6block5]

เรียนคุณ logic

ลอง copy code มันยังไม่ขึ้นค่า Vlookup เลยครับ ขอคำชี้แนะด้วยครับ

[logic]

ต้องรันโค้ดก่อนถึงจะได้คำตอบครับ

ถ้ารันตรง ๆ ก็เข้าไปที่หน้าโค้ด ~~> คลิกในโค้ด ~~> กดปุ่ม F5 ที่คีย์บอร์ด

้ถ้าจะเรียกรันจาก Excel ต้องเปลี่ยนคำขึ้นต้นจาก Private ไปเป็น Public ที่หน้า Excel กดแป้น Alt+F8 ก็จะมีชื่อโค้ดให้เลือกรันครับ

[a6block5]

อ่อ ขอบคุณมากครับ ผมกำลังจะถามพอดีเลย

[a6block5]

ต้องรันโค้ดก่อนถึงจะได้คำตอบครับ

ถ้ารันตรง ๆ ก็เข้าไปที่หน้าโค้ด ~~> คลิกในโค้ด ~~> กดปุ่ม F5 ที่คีย์บอร์ด

้ถ้าจะเรียกรันจาก Excel ต้องเปลี่ยนคำขึ้นต้นจาก Private ไปเป็น Public ที่หน้า Excel กดแป้น Alt+F8 ก็จะมีชื่อโค้ดให้เลือกรันครับ

===========================================================================================
ขอบคุณมากครับ ได้ตามที่ต้องการเลยครับ

[a6block5]

สวัสดีครับคุณ logic

ผมลองเขียน code ตามที่คุณ logic สอน และนำ code ไปวางใน sheet จริง

มันยัง run ไม่ได้ เพราะ sheet จรืงที่ lookup ค่า แถว/คอลัมน์ ไม่ตรงกัน แต่ผมอ้างอิงไปแล้ว ก็ยังไม่ออก

ช่วยแนะนำด้วยครับ ผมเขียนสูตรที่ใช้ใน excel ปกติ ถ้าอยากเขียน VBA มันต้องเขียนยังไงครับ

[snasui]

ใน Code ไป Vlookup จาก Sheet1 แต่ในไฟล์จริงไม่มีชีตนั้น มีแต่ชีตดังภาพครับ

SheetName.png (9.16 KiB) Viewed 121 times

การประกาศตัวแปรและนำไปใช้ควรจะเป็นตัวเดียวกัน ไม่ใช่ประกาศไว้เป็นค่าหนึ่งแล้วนำไปใช้เป็นอีกค่าหนึ่ง

เช่นประกาศไว้เป็น dim c as range ก็ไม่ควรใช้เป็น for each m in mycode แต่ควรเป็น for each c in mycode

การประกาศตัวแปรเป็นการจัดสรร Memory ให้ใช้งานอย่างเหมาะสม การที่ไม่ประกาศตัวแปรแล้วนำไปใช้จะทำให้สิ้นเปลือง Memory ถ้าโปรแกรมนั้นมีขนาดใหญ่ทำงานอย่างซับซ้อนครับ

[a6block5]

ขอบคุณคุณ Snasui ที่ชี้แนะครับ ผมปรับตามที่คุณ Snasui และคุณ Logic แนะนำรันได้แล้วครับ

ผมอยากทราบเพิ่มเติมครับ


1.) sheet Tracking เดิมผมรวมข้อมูล Column D:K โดยการทำ CONCAT (D,K) แสดงค่าใน Column i แล้ว Vlookup ไป sheet UnitCost

ถ้าต้องการเพิ่มเติม Code ใน VBA ให้ CONCAT (D,K) ใน VBA ไปเลย ควรเพิ่ม Code ยังไงครับ หมายถึงใน เขียน Code VBA ให้มัน CONCAT(D,K) โดยที่เราไม่ต้องสร้าง MatCode เพิ่ม column i ครับ

อันนี้ของเดิม ครับ

Code: Select all

 lastRow = .Range("i" & .Rows.Count).End(xlUp).Row
        Set myCode = .Range("i8:i" & lastRow) 

[logic]

ผมขอบอกเป็นแนวทางแทนแล้วกัน กติกาคือเขียนมาเองก่อน ติดแล้วค่อยถามกันครับ

การเอาค่ามาต่อกันใน vba ก็เหมือนกับในเอ็กเซลใช้เครื่องหมาย & ช่วยได้ สมมุติว่าเอา d8 เชื่อมกับ k8 ก็ใช้เป็น range("d8").value & "-" & range("k8").value ถ้าเดิม i เป็นคอลัมน์ว่าง ๆ ลองย้าย mycode ไปเป็นคอลัมน์อื่นที่ไม่ใช่ i แล้วใช้ m.offset(x,y) แทน range ดูครับ

ส่วนเรื่องลบ ถ้าเป็นผมจะเพิ่มปุ่มมาอีกอัน เอาไว้ลบโดยเฉพาะ ลองอัดมาโครตอนลบแล้วเอาโค้ดมาปรับใช้ ถ้าเอาแบบคลิกซ้ำแล้วลบก็ต้องเขียนเช็คอีกว่าก่อนหน้านี้ทำอะไรไป อีกแบบที่ใช้ได้ก็จะเป็นว่าเช็คเซลล์นั้นเซลล์นี้ ถ้ามีค่าก็ลบ ถ้าไม่มีค่าก็รันโค้ดเติมค่า