Page 1 of 1
VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Fri May 14, 2021 9:59 am
by a6block5
ขอคำแนะนำในการเขียน Code Macro สำหรับการ Vlookup ข้อมูลใน Sheet1 ให้แสดงใน Sheet Tracking หน่อยครับ ผมลองเขียนตามความเข้าใจ แต่ข้อมูลไม่มา ขอบคุณมากครับ
Re: VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Fri May 14, 2021 11:14 am
by 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
Re: VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Fri May 14, 2021 1:32 pm
by a6block5
เรียนคุณ logic
ลอง copy code มันยังไม่ขึ้นค่า Vlookup เลยครับ ขอคำชี้แนะด้วยครับ
Re: VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Fri May 14, 2021 1:46 pm
by logic
ต้องรันโค้ดก่อนถึงจะได้คำตอบครับ
ถ้ารันตรง ๆ ก็เข้าไปที่หน้าโค้ด ~~> คลิกในโค้ด ~~> กดปุ่ม F5 ที่คีย์บอร์ด
้ถ้าจะเรียกรันจาก Excel ต้องเปลี่ยนคำขึ้นต้นจาก Private ไปเป็น Public ที่หน้า Excel กดแป้น Alt+F8 ก็จะมีชื่อโค้ดให้เลือกรันครับ
Re: VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Fri May 14, 2021 1:58 pm
by a6block5
อ่อ ขอบคุณมากครับ ผมกำลังจะถามพอดีเลย
Re: VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Fri May 14, 2021 2:04 pm
by a6block5
logic wrote: Fri May 14, 2021 1:46 pm
ต้องรันโค้ดก่อนถึงจะได้คำตอบครับ
ถ้ารันตรง ๆ ก็เข้าไปที่หน้าโค้ด ~~> คลิกในโค้ด ~~> กดปุ่ม F5 ที่คีย์บอร์ด
้ถ้าจะเรียกรันจาก Excel ต้องเปลี่ยนคำขึ้นต้นจาก Private ไปเป็น Public ที่หน้า Excel กดแป้น Alt+F8 ก็จะมีชื่อโค้ดให้เลือกรันครับ
===========================================================================================
ขอบคุณมากครับ ได้ตามที่ต้องการเลยครับ
Re: VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Fri May 14, 2021 4:22 pm
by a6block5
สวัสดีครับคุณ logic
ผมลองเขียน code ตามที่คุณ logic สอน และนำ code ไปวางใน sheet จริง
มันยัง run ไม่ได้ เพราะ sheet จรืงที่ lookup ค่า แถว/คอลัมน์ ไม่ตรงกัน แต่ผมอ้างอิงไปแล้ว ก็ยังไม่ออก
ช่วยแนะนำด้วยครับ ผมเขียนสูตรที่ใช้ใน excel ปกติ ถ้าอยากเขียน VBA มันต้องเขียนยังไงครับ
Re: VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Fri May 14, 2021 5:14 pm
by snasui
ใน Code ไป Vlookup จาก
Sheet1 แต่ในไฟล์จริงไม่มีชีตนั้น มีแต่ชีตดังภาพครับ
SheetName.png
การประกาศตัวแปรและนำไปใช้ควรจะเป็นตัวเดียวกัน ไม่ใช่ประกาศไว้เป็นค่าหนึ่งแล้วนำไปใช้เป็นอีกค่าหนึ่ง
เช่นประกาศไว้เป็น
dim c as range ก็ไม่ควรใช้เป็น
for each m in mycode แต่ควรเป็น
for each c in mycode
การประกาศตัวแปรเป็นการจัดสรร Memory ให้ใช้งานอย่างเหมาะสม การที่ไม่ประกาศตัวแปรแล้วนำไปใช้จะทำให้สิ้นเปลือง Memory ถ้าโปรแกรมนั้นมีขนาดใหญ่ทำงานอย่างซับซ้อนครับ
Re: VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Mon May 17, 2021 9:51 am
by 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)
Re: VBA Vlookup ข้อมูลระหว่าง worksheet
Posted: Mon May 17, 2021 10:56 am
by logic
ผมขอบอกเป็นแนวทางแทนแล้วกัน กติกาคือเขียนมาเองก่อน ติดแล้วค่อยถามกันครับ
การเอาค่ามาต่อกันใน vba ก็เหมือนกับในเอ็กเซลใช้เครื่องหมาย & ช่วยได้ สมมุติว่าเอา d8 เชื่อมกับ k8 ก็ใช้เป็น range("d8").value & "-" & range("k8").value ถ้าเดิม i เป็นคอลัมน์ว่าง ๆ ลองย้าย mycode ไปเป็นคอลัมน์อื่นที่ไม่ใช่ i แล้วใช้ m.offset(x,y) แทน range ดูครับ
ส่วนเรื่องลบ ถ้าเป็นผมจะเพิ่มปุ่มมาอีกอัน เอาไว้ลบโดยเฉพาะ ลองอัดมาโครตอนลบแล้วเอาโค้ดมาปรับใช้ ถ้าเอาแบบคลิกซ้ำแล้วลบก็ต้องเขียนเช็คอีกว่าก่อนหน้านี้ทำอะไรไป อีกแบบที่ใช้ได้ก็จะเป็นว่าเช็คเซลล์นั้นเซลล์นี้ ถ้ามีค่าก็ลบ ถ้าไม่มีค่าก็รันโค้ดเติมค่า