snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
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] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
markpossawee
Member
Posts: 6 Joined: Wed Sep 14, 2016 10:04 am
#1
Post
by markpossawee » Sat Aug 25, 2018 9:12 pm
ตัวอย่างข้อมูลลูกค้า
ขาว2 ลทบ (Ati Mali) F
อติ มะลิ (0879104599)
79/147 หมู่บ้านรี่(สุขุมวิท) หมู่5 ต.แพรกษา อ.เมือง จ.สมุทรปราการ 10280
19/8/2018 (333) RM347071111TH
เนื่องจากผมเก็บข้อมูลลูกค้าโดยแบ่งเป็น 4 บรรทัด แล้วผมต้องการผูกสูตรให้ Cell อื่นๆดึงค่าจาก Cell เดียวที่ผม Copy ข้อมูลลูกค้าทั้ง 4 บรรทัดไปใส่ไว้ โดยเลือกข้อความจากบรรทัดนั้นๆใน Cell นั้นแทน เนื่องจากก่อนหน้านี้เคยผูกสูตรดึงค่าโดยใช้เงื่อนไขถ้าเจอวงเล็บ () ลำดับนั้นๆ เช่น เจอวงเล็บลำดับที่ 3 ให้ดึงค่าในวงเล็บมาเป็นยอดเงินที่ลูกค้าจ่าย แต่จะมีเคสบางเคสที่ใส่ชื่อตามด้วยวงเล็บชื่อเล่น หรือใส่ที่อยู่แล้วมีวงเล็บติดมาด้วย ทำให้อาจเกิดข้อผิดพลาดได้ จึงอยากได้สูตรที่ยืดหยุ่นได้มากกว่านี้ ซึ่งผมคิดออกเพียงการเลือกบรรทัด เนื่องจากผมจะแบ่งบรรทัดชัดเจน แต่ไม่รู้ว่ามีสูตรเลือกบรรทัดหรือไม่ ค้นหาใน Google แล้วก็ไม่เจอ จึงอยากมาสอบถามครับ แต่ถ้าหากท่านใดมีแนวคิดที่ดีกว่าสามารถเสนอแทนได้นะครับ
ผมได้ยกตัวอย่างข้อมูลลูกค้าหลังแยกตามฟิลด์ทั้งในไฟล์แนบและด้านล่างต่อไปนี้
ชื่อ : อติ มะลิ
ชื่อที่ใช้สั่งซื้อ : Ati Mali
การส่ง : ลทบ.
ช่องทางการสั่งซื้อ : Facebook
ที่อยู่ : 79/147 หมู่บ้านรี่(สุขุมวิท) หมู่5 ต.แพรกษา อ.เมือง จ.สมุทรปราการ 10280
เบอร์โทร : 087-910-4599
ขาว : 2
เขียวใส :
น้ำเงิน :
เหลือง :
ดำ :
ม่วง :
ครีม :
เขียวทึบ :
น้ำตาล :
พลาสติกไล่มด :
ยอดชำระ : 333
วันที่ลูกค้าซื้อ : 19/08/2018
โค้ดไปรษณีย์ : RM347071111TH
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31253 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#2
Post
by snasui » Sat Aug 25, 2018 10:03 pm
ตัวอย่างสูตรตามด้านล่างซึ่งจะใช้คอลัมน์เข้ามาช่วย 4 คอลัมน์ครับ
ที่ V1:Y1 คีย์ Helper1-Helper4 เพื่อเป็นหัวคอลัมน์
ที่ V2 คีย์
=TRIM(MID(SUBSTITUTE($A2,CHAR(10),REPT(" ",LEN($A2))),LEN($A2)*(COLUMNS($V3:V3)-1)+1,LEN($A2)))
Enter > Copy ไปด้านขวาจนถึง Y2 แล้ว Copy ลงด้านล่าง
ที่ B2 คีย์
=LEFT(W2,FIND("(",W2)-1)
Enter > Copy ลงด้านล่าง
ที่ C2 คีย์
=MID(V2,FIND("(",V2)+1,FIND(")",V2)-FIND("(",V2)-1)
Enter > Copy ลงด้านล่าง
ที่ F2 คีย์
=X2
Enter > Copy ลงด้านล่าง
ที่ G2 คีย์
=TEXT(SUBSTITUTE(SUBSTITUTE(TRIM(RIGHT(SUBSTITUTE(W2," ",REPT(" ",15)),15)),"(",""),")",""),"000-000-0000")
Enter > Copy ลงด้านล่าง
ที่ I2 คีย์
=IFERROR(LEFT(SUBSTITUTE(SUBSTITUTE($V2,I$1,"")," ",REPT(" ",10)),10)+0,0)
Enter > Copy ไปด้านขวาจนถึง R2 แล้ว Copy ลงด้านล่าง
ที่ S2 คีย์
=MID(Y2,FIND("(",Y2)+1,FIND(")",Y2)-FIND("(",Y2)-1)+0
Enter > Copy ลงด้านล่าง
ที่ T2 คีย์
=LEFT(Y2,FIND(" ",Y2)-1)+0
Enter > Copy ลงด้านล่าง
ที่ U2 คีย์
=IF(LEN(Y2)-LEN(SUBSTITUTE(Y2," ",""))<2,"",TRIM(RIGHT(SUBSTITUTE(Y2," ",REPT(" ",20)),20)))
Enter > Copy ลงด้านล่าง
ตัวเลขในคอลัมน์ J:R หากไม่ถูกต้องแสดงว่าเขียนหัวคอลัมน์ไว้ไม่ตรงกับสีในคอลัมน์ A ครับ
Bo_ry
Gold
Posts: 1245 Joined: Sun Aug 12, 2018 12:11 am
Excel Ver: MS 365
Contact:
#3
Post
by Bo_ry » Sat Aug 25, 2018 11:36 pm
D2 =IFNA(LOOKUP(1,1/ISNUMBER(FIND({"ลทบ","EMS","Kerry"},A2)),{"ลทบ","EMS","Kerry"}),"Kerry")
ไม่แน่ใจว่า Kerry ระบุยังไง และมีการส่งอื่นอีกรึเปล่า
E2 =IF(ISNUMBER(FIND(") F",A2)),"Facebook","Shoopee")
ไม่แน่ใจว่า Shoopee ระบุยังไง และมีช่องทางอื่นอีกรึเปล่า