Page 2 of 2
Re: สอบถาม vlookup vba ครับ
Posted: Thu Feb 27, 2020 12:10 pm
by lnongkungl
ลองแล้วครับ ทำได้แค่ขาบันทึกข้อมูลกลับ (save)
ถ้าเป็นการดึงข้อมูลเก่ามา (lookup) แล้วในตารางมี ==== อยู่ ก็ติดเหมือนเดิมครับ
Re: สอบถาม vlookup vba ครับ
Posted: Thu Feb 27, 2020 1:01 pm
by puriwutpokin
ให้ Format เซล C4 และ E13 เป็น Text ดูครับ
Re: สอบถาม vlookup vba ครับ
Posted: Thu Feb 27, 2020 1:29 pm
by lnongkungl
จริงด้วยครับ มัวแต่ห่วงเรื่อง code มองข้าม format cell ไปได้ไง
ขอบคุณครับ ท่าน puriwutpokin
Re: สอบถาม vlookup vba ครับ
Posted: Thu Feb 27, 2020 3:43 pm
by 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 เพราะอะไร ผมจะได้เข้าใจและนำไปปรับใช้ใน โปรเจคหน้า ต่อไปครับ
Re: สอบถาม vlookup vba ครับ
Posted: Thu Feb 27, 2020 7:37 pm
by puriwutpokin
ปรับตรงส่วนนี้ครับ
Code: Select all
With Workbooks("b.xlsm").Worksheets(1)
lname = Application.VLookup(name, myrange, 2, False)
If IsError(lname) Then
MsgBox "ไม่มีข้อมูล"
Else
Re: สอบถาม vlookup vba ครับ
Posted: Mon Mar 02, 2020 10:03 am
by lnongkungl
ถ้าตามที่ผมเข้าใจคือ เราไปดักไว้ด้วย Application.IFError ไว้ก่อนใช่มั้ยครับ เมื่อเรามาใส่ IF IsError อีก ครั้ง มันเลยไม่ทำงาน
หรือถ้าผมเข้าใจผิดตรงไหน รบกวนช่วย อธิบายเพิ่มหน่อยครับ เพื่อความเข้าใจอย่างถูกต้องและนำไปปรับใช้ในอนาคต ครับ
Re: สอบถาม vlookup vba ครับ
Posted: Mon Mar 02, 2020 12:18 pm
by puriwutpokin
lnongkungl wrote: Mon Mar 02, 2020 10:03 am
ถ้าตามที่ผมเข้าใจคือ เราไปดักไว้ด้วย Application.IFError ไว้ก่อนใช่มั้ยครับ เมื่อเรามาใส่ IF IsError อีก ครั้ง มันเลยไม่ทำงาน
หรือถ้าผมเข้าใจผิดตรงไหน รบกวนช่วย อธิบายเพิ่มหน่อยครับ เพื่อความเข้าใจอย่างถูกต้องและนำไปปรับใช้ในอนาคต ครับ
ใช่ครับ ต้อง Test เงื่อนไขก่อนครับ
Re: สอบถาม vlookup vba ครับ
Posted: Mon Mar 02, 2020 1:31 pm
by 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
Re: สอบถาม vlookup vba ครับ
Posted: Mon Mar 02, 2020 5:59 pm
by puriwutpokin
ลองดูว่าไฟล์จริงมีสูตรเยอะไหมครับ
และลองกำหนดช่วงจากที่ A:G
เป็น A1:G100ประมาณนี้ดูครับ
Re: สอบถาม vlookup vba ครับ
Posted: Tue Mar 03, 2020 4:44 pm
by lnongkungl
ไฟล์จริงที่ใช้งานมีเพียงสูตร Sum ตัวเลขแค่ 3 ช่อง ครับและตัวเลขที่ Sum มีแค่ 3-4 ตัวเลขแค่นั้นเอง อาจจะเป็นช่วง range ที่กำหนดกว้างไปอย่างที่บอกก็ได้ครับ เดี๋ยวผมลองไปปรับดู
ขอบคุณครับ