สอบถาม vlookup vba ครับ

[lnongkungl]

ลองแล้วครับ ทำได้แค่ขาบันทึกข้อมูลกลับ (save)
ถ้าเป็นการดึงข้อมูลเก่ามา (lookup) แล้วในตารางมี ==== อยู่ ก็ติดเหมือนเดิมครับ

[puriwutpokin]

ให้ Format เซล C4 และ E13 เป็น Text ดูครับ

[lnongkungl]

จริงด้วยครับ มัวแต่ห่วงเรื่อง code มองข้าม format cell ไปได้ไง

ขอบคุณครับ ท่าน puriwutpokin

[lnongkungl]

รบกวนอีกเรื่องครับ สุดท้ายของโปรเจคแล้วครับ

พอดีว่าผมลองหา code ที่เป็นการแจ้งเตือนว่า ถ้าไม่มีข้อมูลที่เราจะ lookup แล้วให้ขึ้น msgbox ไม่มีข้อมูล แต่พอลองเอามาใส่ใน code ดู ปรากฏว่า มัน error ครับ

Code: Select all

Sub lookup()
Dim name, lname, r, t, m, e, sg As Range
Set name = Range("C4")
Set lname = Range("E4")
Set r = Range("G4")
Set t = Range("C7")
Set m = Range("C8")
Set e = Range("C9")
Set sg = Range("E12")

Application.ScreenUpdating = False
Workbooks.Open ("C:\Users\it-support.cmk\Desktop\àÅÕ¹ẺDBform\a.xlsx")
Dim myrange As Range
Set myrange = Range("A:G")
With Workbooks("b.xlsm").Worksheets(1)
If IsError(lname) Then       'เริ่มตรงนี้ครับ
MsgBox "äÁèÁÕ¢éÍÁÙÅ"
Else
lname = Application.IfError(Application.WorksheetFunction.VLookup(name, myrange, 2, False), "")
r = Application.IfError(Application.WorksheetFunction.VLookup(name, myrange, 3, False), "")
t = Application.IfError(Application.WorksheetFunction.VLookup(name, myrange, 4, False), "")
m = Application.IfError(Application.WorksheetFunction.VLookup(name, myrange, 5, False), "")
e = Application.IfError(Application.WorksheetFunction.VLookup(name, myrange, 6, False), "")
sg = Application.IfError(Application.WorksheetFunction.VLookup(name, myrange, 7, False), "")
End If
End With

ActiveWorkbook.Close SaveChanges:=False
End Sub

รบกวนช่วยดูหน่อยครับว่ามัน error เพราะอะไร ผมจะได้เข้าใจและนำไปปรับใช้ใน โปรเจคหน้า ต่อไปครับ

[puriwutpokin]

ปรับตรงส่วนนี้ครับ

Code: Select all

With Workbooks("b.xlsm").Worksheets(1)
lname = Application.VLookup(name, myrange, 2, False)
If IsError(lname) Then
MsgBox "ไม่มีข้อมูล"
Else

[lnongkungl]

ถ้าตามที่ผมเข้าใจคือ เราไปดักไว้ด้วย Application.IFError ไว้ก่อนใช่มั้ยครับ เมื่อเรามาใส่ IF IsError อีก ครั้ง มันเลยไม่ทำงาน

หรือถ้าผมเข้าใจผิดตรงไหน รบกวนช่วย อธิบายเพิ่มหน่อยครับ เพื่อความเข้าใจอย่างถูกต้องและนำไปปรับใช้ในอนาคต ครับ

[puriwutpokin]

ถ้าตามที่ผมเข้าใจคือ เราไปดักไว้ด้วย Application.IFError ไว้ก่อนใช่มั้ยครับ เมื่อเรามาใส่ IF IsError อีก ครั้ง มันเลยไม่ทำงาน

หรือถ้าผมเข้าใจผิดตรงไหน รบกวนช่วย อธิบายเพิ่มหน่อยครับ เพื่อความเข้าใจอย่างถูกต้องและนำไปปรับใช้ในอนาคต ครับ

ใช่ครับ ต้อง Test เงื่อนไขก่อนครับ

[lnongkungl]

ผมลอง Run แล้วครับ เป็นไปตามที่ต้องการ แต่รู้สึกว่ามันหน่วงๆแปลกๆครับ พอกด run ปุ๊ป มันจะไม่ขึ้น msgbox ทันที มันจะค้างแปปนึงประมาณ 1 นาที พอขึ้น msgbox มาแล้ว กด OK ก็จะค้างอีกประมาณ 1-2 นาทีครับ กว่าจะเป็นหน้าปกติ มันไม่ทันทีครับ หรือมัน check code ให้หมดก่อนหรือป่าวครับ ถึงจะจบ แต่ผมก็ใส่ code เพิ่มไปอีกหน่อย แต่มันก็ยังช้าเหมือนเดิมครับ ไม่เข้าใจว่า ช้า หรือหน่วง เพราะอะไร

Code: Select all

Workbooks.Open ("C:\Users\it-support.cmk\Desktop\àÅÕ¹ẺDBform\a.xlsx")
Dim myrange As Range
Set myrange = Range("A:G")
With Workbooks("b.xlsm").Worksheets(1)
lname = Application.VLookup(name, myrange, 2, False)
If IsError(lname) Then
MsgBox "äÁèÁÕ¢éÍÁÙÅ"
ActiveWorkbook.Close SaveChanges:=False 'ที่เพิ่มเข้าไปครับ
Exit Sub 'ที่เพิ่มเข้าไปครับ
Else

[puriwutpokin]

ลองดูว่าไฟล์​จริงมีสูตร​เยอะไหมครับ
และลองกำหนดช่วงจากที่ A:G
เป็น A1:G100ประมาณ​นี้ดูครับ

[lnongkungl]

ไฟล์จริงที่ใช้งานมีเพียงสูตร Sum ตัวเลขแค่ 3 ช่อง ครับและตัวเลขที่ Sum มีแค่ 3-4 ตัวเลขแค่นั้นเอง อาจจะเป็นช่วง range ที่กำหนดกว้างไปอย่างที่บอกก็ได้ครับ เดี๋ยวผมลองไปปรับดู

ขอบคุณครับ