snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
nichaporn2538
Member
Posts: 2 Joined: Sun Apr 12, 2020 11:14 pm
#1
Post
by nichaporn2538 » Sun Apr 12, 2020 11:30 pm
ต้องการค้นหาข้อมูล Colum B ใน Sheet "DATA" แล้วรับค่าใน Colum A
แต่ปัญหาคือ เมื่อใช้คำสั่ง Vlookup ใส่ True แล้วสามารถ RUNผ่านได้แต่ได้ค่าไม่ตรงตามทีต้องการ และหากใส่ False ในฟังก์ชันกลับขึ้น error ค่ะ
Code: Select all
Sub Button_click()
Dim FName As String
Dim FPath As String
Dim sheet As String
Dim DOCno As Variant
Dim REV As Variant
Dim FG As String
Dim searching As String
FG = Worksheets("SAVE AS").TextBox1.Value
DOCno = Worksheets("SAVE AS").TextBox2.Value
REV = Worksheets("SAVE AS").TextBox3.Value
searching = Application.WorksheetFunction.VLookup(FG, Worksheets("DATA").Range("A:ZZ"), 1, False)
FPath = "D:\"
FName = DOCno & "_Rev." & REV & ".xlsx" '& Format(Date, "ddmmyy")
With Sheets(searching).PageSetup 'ActiveSheet.PageSetup
.LeftFooter = "CS-QC-CBA-" & DOCno & "/Rev." & REV '"Page &P"
.CenterFooter = "Page:" & "&P/2"
.RightFooter = "Quality Assurance Department"
End With
Sheets(searching).Copy
ActiveSheet.Name = DOCno & "_" & REV
ActiveWorkbook.SaveAs Filename:=FPath & FName
End Sub
snasui
Site Admin
Posts: 31214 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#2
Post
by snasui » Mon Apr 13, 2020 7:30 am
แสดงว่าถึงไม่ใช้ VBA ก็ Error ครับ
ตรวจสอบด้วยการเขียนสูตรปกติเสียก่อนว่า Error หรือไม่ ถ้ามี Error เมื่อใช้ VBA ก็ Error เช่นเดียวกันครับ
การถามด้วย Code ควรแนบไฟล์ตัวอย่างที่เขียน Code เอาไว้แล้วมาด้วย โดยให้ทำตามข้อ 5 ด้านบน
จะได้สะดวกในการตอบของเพื่อนสมาชิกครับ
nichaporn2538
Member
Posts: 2 Joined: Sun Apr 12, 2020 11:14 pm
#3
Post
by nichaporn2538 » Mon Apr 13, 2020 6:59 pm
เป็นแบบที่อาจารย์ว่าเลยค่ะ lookup ธรรมดาก็error แต่หาจุดบกพร่องไม่เจอเลยอยากให้อาจารย์ช่วยทวนสอบให้หน่อยค่ะว่าเป็นที่อะไร
Attachments
vlookup.xlsx
(49.67 KiB) Downloaded 6 times
snasui
Site Admin
Posts: 31214 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#4
Post
by snasui » Mon Apr 13, 2020 7:40 pm
คอลัมน์ A ไม่มีค่าตามเซลล์ B4 ครับ
อ่านคำอธิบาย Vlookup ที่ Link นี้จะได้เข้าใจความหมายของแต่ละส่วนประกอบและวิธีการใช้งานครับ
wordpress/vlookup/ ,
wordpress/basic-functions/