ตัดคำภาค 2

[godman]

ช่วยด้วยครับ ผมทำแล้วครึ่งวันแล้ว ผมไม่สามารถดึง วัน เดือน ปี ที่อยู่ท้ายแถวของประโยคได้เลย ไม่ว่าจะใช้สูตร mid,find,search,right แล้วก็ตาม

1 ประกาศกระทรวงอุตสาหกรรม เรื่อง กำหนดค่าปริมาณของสารเจือปนในอากาศ ที่ระบายออกจากโรงงาน พ.ศ. 2549 ประกาศในราชกิจจานุเบกษาวันที่ 4 ธันวาคม 2549 4/12/2549
2 ประกาศกระทรวงทรัพยากรธรรมชาติและสิ่งแวดล้อม เล่มที่ 123 ตอนที่ 50ง เรื่อง กำหนดให้ โรงงานอุตสาหกรรม เป็นแหล่งกำเนิดมลพิษที่จะต้องถูกควบคุมการปล่อยทิ้งอากาศเสีย ออกสู่บรรยากาศ ประกาศในราชกิจจานุเบกษาวันที่ 18 พฤษภาคม 2549 18/5/2549
3 ประกาศกระทรวงทรัพยากรธรรมชาติและสิ่งแวดล้อม เล่มที่ 123 ตอนที่ 50ง เรื่อง กำหนดมาตรฐานควบคุมการปล่อยทิ้งอากาศเสียจากโรงงานอุตสาหกรรม ลงวันที่ 18 พ.ค. 2549 ประกาศในราชกิจจานุเบกษาวันที่ 18 พฤษภาคม 2549 18/5/2549
คำตอบ
ข้อ 1 4/12/2549
ข้อ 2 18/5/2549
ข้อ 3 18/5/2549

เอาเฉพาะท้ายท้ายประโยคที่เป็นวันเดือนปี ในรูปแบบ date นะครับ ขอบคุณมากครับ ขอ Guide line ด้วยด้วย

[snasui]

1 ประกาศกระทรวงอุตสาหกรรม เรื่อง กำหนดค่าปริมาณของสารเจือปนในอากาศ ที่ระบายออกจากโรงงาน พ.ศ. 2549 ประกาศในราชกิจจานุเบกษาวันที่ 4 ธันวาคม 2549 4/12/2549

เมื่อมีข้อความมาในลักษณะนี้ คิดว่าไม่น่าจะยาก โพสต์สูตรที่ลองเขียนเองมาแล้วดูกันครับ จะได้ช่วยปรับได้

[godman]

ผมทำได้แล้วครับ พอดีว่าไฟล์ excel มันไม่เป็นระเบียบเพราะ copy มาจาก net ก็เลยใช้สูตร trim ก่อน แล้วค่อยใช้ right นับไป 10 ตัว ก็ได้ประสบการณ์ไปอีกดอก ว่าต้องจัดระเบียบอัขระก่อนด้วย trim ผมเข้าใจถูกใช่ไหมครับ

[godman]

ตัวอย่างไฟล์ครับ ในเซลล์ G5 เป็นต้นลงไป enter copy ถ้าอาจารย์เห็นจุดบกพร่องของวิธีการของผมก็แนะนำได้นะครับ

[snasui]

ขึ้นอยู่กับว่าข้อมูลเป็นอย่างไรครับ Trim หมายถึงตัดช่องว่างที่เกินความจำเป็นทิ้งไป เช่น ถ้าวรรคสองตัวติดกัน มันจะเหลือเพียง 1 ตัว หากก่อนและหลังข้อความมีวรรค มันจะตัดทิ้งทั้งหมด

[godman]

อาจารย์ครับ มีปัญหาอีกแล้วครับ ในช่อง H5 ผมอยากให้มันหาว่ามันห่างจากวันนี้ กี่ปี กี่เดือน กี่วัน เพื่อจะได้รู้วันครบกำหนดที่ต้องทำตามกฏหมาย แต่ว่าผมเอาสูตรจากที่อาจารย์เคยเขียนใน blog ไว้มาใช้ แต่มันไม่ได้ครับ เพราะอะไรหรือครับ ขอดูให้ด้วยครับ

[snasui]

ลองตามนี้ครับ

1. ที่ C1 เปลี่ยนสูตรเป็น
   =DATE(YEAR(TODAY())+543,MONTH(TODAY()),DAY(TODAY()))
   Enter
2. ที่ G5 เปลี่ยนสูตรเป็น
   =MID(RIGHT(F5,12),FIND(" ",RIGHT(F5,12))+1,255)+0
   Enter > Copy ลงด้านล่าง

[godman]

ขอบคุณครับ

[godman]

ผมอยากตัดคำในช่อง E2 โดยมีคำตอบตาม C2-C30 ที่มีหลากหลายเอกสารประเภทต่างๆ โดยผมลิสต์จากทุก Folder ในบริษัทมาเพื่อมาทำเป็น hyperlink เป็นการลดขั้นตอนการหาเอกสารของบริษัท แต่ปัญหาคือมันมีหลายเงื่อนไขหลายรูปแบบมาก ผมพยายามมาทั้งวันแต่ก็ไม่ได้ครอบคลุมทุกเงื่อนไขอีกทั้ง excel ของผมจำกัดแค่ 7 ชั้น ก็เลยงงมาก รบกวนอาจารย์ช่วยเขียนสูตรในช่อง E2 ให้ด้วยครับ ขอบคุณครับ

[snasui]

กรณีที่มีเงื่อนไขจำนวนมาก แทนที่จะเขียนสูตรในเซลล์เดียวเพื่อหาคำตอบ สามารถเขียนเงื่อนไขในช่วงเซลล์ใด ๆ แล้วใช้สูตรมาช่วย หรือ ใช้คอลัมน์ช่วยในการหาคำตอบ

ตัวอย่างตามด้านล่าง ผมใช้คอลัมน์ช่วยเข้ามา 3 คอลัมน์ โดยลองตามนี้ครับ

1. ที่เซลล์ F2 คีย์สูตรเพื่อหาว่ามีอักขระที่ขึ้นต้นด้วย "-0" แล้วตามด้วยอักขระใด ๆ อีก 1 อักขระหรือไม่
   =SEARCH("-0?",C2)
   Enter > Copy ลงด้านล่าง คำตอบจะได้เป็นลำดับที่พบ ถ้าไม่พบจะขึ้น #Value!
2. ที่เซลล์ G2 คีย์สูตรเพื่อหาว่า "\" อยู่ในลำดับที่เท่าไรของข้อความ
   =FIND("\",C2)
   Enter > Copy ลงด้านล่าง คำตอบจะได้เป็นลำดับที่พบ ถ้าไม่พบจะขึ้น #Value!
3. ที่ H2 หาว่า "." อยู่ในลำดับที่เท่าไรของข้อความ
   =FIND(".",C2)
   Enter > Copy ลงด้านล่าง คำตอบจะได้เป็นลำดับที่พบ ถ้าไม่พบจะขึ้น #Value!
4. ที่เซลล์ I2 คีย์สูตรเพื่อหาคำตอบตามต้องการ
   =IF(ISNUMBER(F2),MID(C2,F2-5,5),MID(C2,G2+1,H2-G2-1))
   Enter > Copy ลงด้านล่าง

ส่วนฟังก์ชั่น Left ที่ทำมาเองนั้นใช้ไม่ถูกต้อง ลองดูใน Help ว่าใช้อย่างไรครับ

[godman]

ขอบคุณสำหรับเทคนิคใหม่ ครับ คำตอบถูกต้องครับ