Page 1 of 1
การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Mon May 25, 2020 3:03 pm
by oliolio
เรียน อาจารย์
Re: การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Mon May 25, 2020 10:20 pm
by snasui
ดูตัวอย่างการใช้ Code ได้ที่นี่ครับ
หากต้องการทำด้วยสูตร ให้ทำดังนี้
เพิ่มชีตสำหรับวางข้อมูลเอาไว้ก่อน
ระบุ NAME ที่ต้องการดึงไว้ในเซลล์ใด ๆ เพื่อใช้เป็นเงื่อนไขในการดึงข้อมูล
แนบไฟล์นั้นมาใหม่ครับ
Re: การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Tue May 26, 2020 10:54 am
by oliolio
ขอบคุณครับอาจารย์เดี๋ยวผมลองทำดูครับ
Re: การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Tue May 26, 2020 8:57 pm
by oliolio
ลองแล้วครับขึ้น error '1004' ครับ รบกวนอาจารย์ด้วยครับ
Re: การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Tue May 26, 2020 9:08 pm
by snasui
แนบไฟล์ที่มี Code มาด้วยจะได้ช่วยตรวจสอบให้ได้ครับ
Re: การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Tue May 26, 2020 10:27 pm
by oliolio
นี่ไฟล์ที่มี code ครับ
Re: การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Tue May 26, 2020 10:35 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
'Other code
s.Name = VBA.Left(r.Value, 31)
s.Range("ak1").Value = "NAME"
s.Range("ak2").Value = r.Value
.UsedRange.AdvancedFilter xlFilterCopy, _
s.Range("ak1:ak2"), s.Range("a1")
s.Range("ak1:ak2").Clear
'Other code
คำว่า Other code คือ Code เดิมที่ไม่ได้มีการแก้ไข ที่โพสต์มานี้เฉพาะที่ต้องปรับแก้เท่านั้นครับ
กรุณาตรวจสอบว่า
Application.DisplayAlerts เขียนไว้ตำแหน่งใดบ้าง เขียนว่าอย่างไร เขียนครบแล้วหรือไม่
Re: การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Tue May 26, 2020 11:15 pm
by oliolio
ได้แล้วครับอาจารย์ ขอบคุณมากครับ
Re: การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Thu Jun 11, 2020 2:10 pm
by nongmayzaaa
สอบถามเพิ่มเติมค่ะ
Re: การแยกข้อมูลเป็นsheet หลาย sheet ครับ
Posted: Thu Jun 11, 2020 8:32 pm
by snasui
กรุณาอธิบายพร้อมแนบไฟล์ แนบภาพมาด้วยจะได้เข้าใจตรงกันครับ
การเขียน Code ย่อมทำได้แทบทุกอย่างที่ต้องการขึ้นกับความสามารถของผู้เขียน กรณีเป็น VBA กรุณาปรับปรุงมาเองก่อนและหากเป็นคำถามที่ไม่ได้เกี่ยวกับกระทู้นี้โปรดตั้งกระทู้ใหม่ครับ
ดูตัวอย่างการใช้ Code ได้ที่นี่ครับ