Snasui Excel Forum

เรียนอาจารย์และเพื่อนสมาชิก

อยากให้ตัดวันเดือนปี และตัวเลข ได้ตามที่อธิบายดังนี้

ขออธิบายดังนี้
1.ในรายการ column B ให้ตัดรายการ เริ่มต้น และ สิ้นสุด ออกมา เป็น วัน เดือน ปี ค.ศ. แยกมาไว้ใน column c , d
ถ้าจะให้คลอบคลุมว่า เกิดเหตุการมีการพิมพ์ติดกันด้วยในทุกกรณี ก็สามารถตัดออกมาได้ เช่น
๑ ม.ค. ๖๔ - ๓๑ ธ.ค. ๖๕
๑ม.ค.๖๔ - ๓๑ธ.ค.๖๕
๑ม.ค.๖๔-๓๑ธ.ค.๖๕

2.ในรายการ column B ให้ตัดรายการ ที่เป็น ปี หรือ วัน ให้ออกมาเป็นตัวเลข แยกมาไว้ใน column g
ถ้าจะให้คลอบคลุมว่า เกิดเหตุการมีการพิมพ์ติดกันด้วยในทุกกรณี ก็สามารถตัดออกมาได้ เช่น
( ๒ ปี )
(๒ ปี)
( ๒ปี )
(๒ปี)

ขอบคุณครับ

...

C2

=EDATE(--(SUBSTITUTE(LEFT(SUBSTITUTE(B2," ",""),SEARCH("-",SUBSTITUTE(B2," ",""))-1),LOOKUP(9,SEARCH({"ม.ค.";"ก.พ.";"มี.ค.";"เม.ย.";"พ.ค.";"มิ.ย.";"ก.ค.";"ส.ค.";"ก.ย.";"ต.ค.";"พ.ย.";"ธ.ค."},LEFT(SUBSTITUTE(B2," ",""),SEARCH("-",SUBSTITUTE(B2," ",""))-1)),{"ม.ค.";"ก.พ.";"มี.ค.";"เม.ย.";"พ.ค.";"มิ.ย.";"ก.ค.";"ส.ค.";"ก.ย.";"ต.ค.";"พ.ย.";"ธ.ค."}),LOOKUP(99,SEARCH({"ม.ค.";"ก.พ.";"มี.ค.";"เม.ย.";"พ.ค.";"มิ.ย.";"ก.ค.";"ส.ค.";"ก.ย.";"ต.ค.";"พ.ย.";"ธ.ค."},LEFT(SUBSTITUTE(B2," ",""),SEARCH("-",SUBSTITUTE(B2," ",""))-1)),{"/1/";"/2/";"/3/";"/4/";"/5/";"/6/";"/7/";"/8/";"/9/";"/10/";"/11/";"/12/"}))),12*1957)

D2

=EDATE(--(SUBSTITUTE(MID(SUBSTITUTE(B2," ",""),SEARCH("-",SUBSTITUTE(B2," ",""))+1,99),LOOKUP(99,SEARCH({"ม.ค.";"ก.พ.";"มี.ค.";"เม.ย.";"พ.ค.";"มิ.ย.";"ก.ค.";"ส.ค.";"ก.ย.";"ต.ค.";"พ.ย.";"ธ.ค."},MID(SUBSTITUTE(B2," ",""),SEARCH("-",SUBSTITUTE(B2," ",""))+1,99)),{"ม.ค.";"ก.พ.";"มี.ค.";"เม.ย.";"พ.ค.";"มิ.ย.";"ก.ค.";"ส.ค.";"ก.ย.";"ต.ค.";"พ.ย.";"ธ.ค."}),LOOKUP(99,SEARCH({"ม.ค.";"ก.พ.";"มี.ค.";"เม.ย.";"พ.ค.";"มิ.ย.";"ก.ค.";"ส.ค.";"ก.ย.";"ต.ค.";"พ.ย.";"ธ.ค."},MID(SUBSTITUTE(B2," ",""),SEARCH("-",SUBSTITUTE(B2," ",""))+1,99)),{"/1/";"/2/";"/3/";"/4/";"/5/";"/6/";"/7/";"/8/";"/9/";"/10/";"/11/";"/12/"}))),12*1957)


G3
=--SUBSTITUTE(LEFT(SUBSTITUTE(B3," ",""),LOOKUP(99,SEARCH({"ปี","วัน"},SUBSTITUTE(B3," ","")))-1),"(","")

Norkaz

C2
=IFERROR(DATE(LOOKUP(99,--MID(B2,FIND(".",B2)+3,{2,3,4}))+1957,MATCH(MID(B2,MATCH(TRUE,ISERR(-LEFT(B2,{1,2,3})),),4)&"*",TEXT(EDATE(0,ROW($A$1:$A$12)),"ดดด"),),LOOKUP(99,--LEFT(B2,{1,2}))),"")

D2
=IFERROR(DATE(RIGHT(B2,2)+1957,MATCH(MID(B2,FIND("-",B2)+MATCH(99,--MID(B2,FIND("-",B2)+1,{0,1,2,3,4})),4)&"*",TEXT(EDATE(0,ROW($A$1:$A$12)),"ดดด"),),LOOKUP(99,--MID(B2,FIND("-",B2)+1,{1,2,3}))),"")

G2
=IF(LEFT(B2)="(",-LOOKUP(0,-MID(B2,2,{1,2,3,4})),"")

แต่ถ้า Region format windows เป็นภาษาไทย
ก็
I2
TRIM(LEFT(B2,FIND("-",B2)-1))

J2
=edate(trim(mid(c2,find("-",c2)-1),57*12)


QQ45 Thai Text Date
https://youtu.be/08B5KFKSTvU+

อีกตัวอย่างสูตรตามด้านล่างครับ

1. ที่ C2 คีย์
   =--TEXT(LEFT(B2,FIND("-",B2)-1),"dd/mm/\byy")
   Enter > Copy ลงด้านล่าง
2. ที่ D2 คีย์
   =--TEXT(TRIM(MID(B2,FIND("-",B2)+1,15)),"dd/mm/\byy")
   Enter > Copy ลงด้านล่าง
3. ที่ G2 คีย์
   =IF(N(F2),"",LOOKUP(9.99999999999999E+307,--MID(B2,2,{1,2,3,4,5})))
   Enter > Copy ลงด้านล่าง

อาจารย์ , คุณ norkaz , คุณ Bo_ry ได้ตามต้องการ ขอบคุณครับ