🔊 โปรดทราบ Image
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
  2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
    1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
    2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
  3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
  4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
  5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ => กำหนดขนาดตัวอักษรใน Browser Image

สอบถามการแยกข้อความข้ามชีทค่ะ

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Foamjubz
Member
Member
Posts: 6
Joined: Tue Apr 17, 2018 7:15 pm

สอบถามการแยกข้อความข้ามชีทค่ะ

#1

Post by Foamjubz » Tue Apr 17, 2018 8:38 pm

ข้อมูลใน Sheet1 จะเป็นแบบนี้ค่ะ
Sheet1.png

ต้องการแยกมา Sheet2 แบบนี้
คอลัมน์B - มีแค่ชื่อ ไม่มีนามสกุล
คอลัมน์C - ถ้าไม่มีเบอร์โทรศัพท์ต้องการให้ใส่เครื่องหมาย - แทนค่ะ
คอลัมน์D - เป็นชื่อจังหวัด
คอลัมน์E - รหัสไปรษณีย์
คอลัมน์F - ที่อยู่ที่เหลือทั้งหมด
Sheet2.png

สมุดงาน.xlsx
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 23161
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: สอบถามการแยกข้อความข้ามชีทค่ะ

#2

Post by snasui » Tue Apr 17, 2018 9:21 pm

:D ตัวอย่างสูตรตามด้านล่างครับ
  1. ที่ B2 คีย์
    =LEFT(Sheet1!B2,FIND(" ",Sheet1!B2)-1)
    Enter > Copy ลงด้านล่าง
  2. ที่ C2 คีย์
    =IF(ISNUMBER(--MID(Sheet1!B2,FIND("(",Sheet1!B2)+1,1)),MID(Sheet1!B2,FIND("(",Sheet1!B2)+1,FIND(")",Sheet1!B2)-FIND("(",Sheet1!B2)-1),"-")
    Enter > Copy ลงด้านล่าง
  3. ที่ E2 คีย์
    =RIGHT(Sheet1!B2,5)
    Enter > Copy ลงด้านล่าง
  4. ที่ D2 คีย์
    =TRIM(SUBSTITUTE(MID(Sheet1!B2,FIND("จ.",Sheet1!B2)+2,100),E2,""))
    Enter > Copy ลงด้านล่าง
  5. ที่ F2 คีย์
    =TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(Sheet1!B2,E2,""),"จ."&D2,""),"("&C2&")",""),B2,""))
    Enter > Copy ลงด้านล่าง

Foamjubz
Member
Member
Posts: 6
Joined: Tue Apr 17, 2018 7:15 pm

Re: สอบถามการแยกข้อความข้ามชีทค่ะ

#3

Post by Foamjubz » Tue Apr 17, 2018 9:46 pm

ตอนนี้แยกคอลัมน์ได้แล้วค่ะ แต่ขอรบกวนอีกนิดนึงนะคะ
ตรง Sheet2 คอลัมน์C อยากให้เบอร์โทรศัพท์จัดอยู่ในรูปแบบนี้ค่ะ 081-111-2222
ต้องไปกำหนดตรงไหน หรือใส่สูตรอะไรคะ
You do not have the required permissions to view the files attached to this post.
Last edited by Foamjubz on Tue Apr 17, 2018 9:58 pm, edited 1 time in total.

User avatar
snasui
Site Admin
Site Admin
Posts: 23161
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: สอบถามการแยกข้อความข้ามชีทค่ะ

#4

Post by snasui » Tue Apr 17, 2018 9:55 pm

:D เพื่อไม่ให้กระทบกับสูตรในคอลัมน์ F ให้แทรกคอลัมน์ C ขึ้นมา 1 คอลัมน์ครับ (เมื่อแทรกแล้วคอลัมน์ C เดิมจะย้ายไปเป็นคอลัมน์ D)

จากนั้น C2 คีย์สูตร

=If(Len(D2)>1,Text(Substitute(D2,"-",""),"000-000-000"),D2)

Enter > Copy ลงด้านล่าง > ซ่อนคอลัมน์ D

Foamjubz
Member
Member
Posts: 6
Joined: Tue Apr 17, 2018 7:15 pm

Re: สอบถามการแยกข้อความข้ามชีทค่ะ

#5

Post by Foamjubz » Tue Apr 17, 2018 9:58 pm

ได้แล้วค่า ขอบคุณมากๆเลยค่ะ🙏🏻🙏🏻🙏🏻

Foamjubz
Member
Member
Posts: 6
Joined: Tue Apr 17, 2018 7:15 pm

Re: สอบถามการแยกข้อความข้ามชีทค่ะ

#6

Post by Foamjubz » Tue Apr 17, 2018 10:56 pm

คือเพิ่งสังเกตว่าพอแทรก คอลัมน์C แล้วเลข 0 หน้าเบอร์โทรศัพท์มันหายไป
แก้ตรงไหนคะแบบนี้
You do not have the required permissions to view the files attached to this post.
Last edited by Foamjubz on Tue Apr 17, 2018 11:31 pm, edited 1 time in total.

User avatar
snasui
Site Admin
Site Admin
Posts: 23161
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: สอบถามการแยกข้อความข้ามชีทค่ะ

#7

Post by snasui » Tue Apr 17, 2018 11:27 pm

:D กรุณาเขียนคำถามใหม่ให้ถูกต้องตามกติกา อ่านกฎการใช้บอร์ดทุกข้อด้านบน :roll: โดยเฉพาะข้อ 1 ซ้ำอีกครั้งครับ

Foamjubz
Member
Member
Posts: 6
Joined: Tue Apr 17, 2018 7:15 pm

Re: สอบถามการแยกข้อความข้ามชีทค่ะ

#8

Post by Foamjubz » Tue Apr 17, 2018 11:34 pm

snasui wrote:
Tue Apr 17, 2018 11:27 pm
:D กรุณาเขียนคำถามใหม่ให้ถูกต้องตามกติกา อ่านกฎการใช้บอร์ดทุกข้อด้านบน :roll: โดยเฉพาะข้อ 1 ซ้ำอีกครั้งครับ
คือเพิ่งสังเกตว่าพอแทรก คอลัมน์C แล้วเลข 0 หน้าเบอร์โทรศัพท์มันหายไป
แก้ตรงไหนคะแบบนี้
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 23161
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: สอบถามการแยกข้อความข้ามชีทค่ะ

#9

Post by snasui » Tue Apr 17, 2018 11:34 pm

Foamjubz wrote:
Tue Apr 17, 2018 10:56 pm
คือเพิ่งสังเกตว่าพอแทรก คอลัมน์C แล้วเลข 0 หน้าเบอร์โทรศัพท์มันหายไป
แก้ตรงไหนคะแบบนี้
:D ปรับสูตรเป็นด้านล่างครับ

=If(Len(D2)>1,Text(Substitute(D2,"-",""),"000-000-0000"),D2)

Foamjubz
Member
Member
Posts: 6
Joined: Tue Apr 17, 2018 7:15 pm

Re: สอบถามการแยกข้อความข้ามชีทค่ะ

#10

Post by Foamjubz » Tue Apr 17, 2018 11:36 pm

ขอบคุณอีกครั้งค่ะ

Post Reply