กำหนด EXPIRY

[busaba rienthong]

อาจารย์คะ
ต้องการทราบสูตรกำหนดวันหมดอายุ 3 ปี ย้อนหลัง 1 เดือน วันที่ 30 (เดือนกุมภาเป็นวันที่ 28)
เช่น ผลิต 160705 (ปี เดือน วัน)
หมดอายุ 190630

[snasui]

สามารถใช้สูตรด้านล่างได้ครับ

=Date(Year(20&Left(A1,2),Month(Mid(A1,3,2)),0)

[busaba]

อาจจะบอกอาจารย์ไม่ชัดเจน เลยยังไม่ได้
คือ
ที่ A1 พิมพ์lot ผลิต160705
ที่ A2 ต้องการใส่สูตรให้แสดงตัวเลขหมดอายุ เป็น 190630 เลยค่ะ โดยเดือนกุมภาวันที่2ตัวท้ายเป็น28ส่วนเดือนอื่นเป็น30หมดค่ะ

[snasui]

เซลล์ A2 เพิ่มฟังก์ชั่น Text เข้าไปช่วยครับ เป็น

=Text(Date(Year(20&Left(A1,2),Month(Mid(A1,3,2)),0),"yymmdd")

[busaba rienthong]

ยังไม่ได้ค่ะอาจารย์

[snasui]

แนบไฟล์ที่บอกว่าไม่ได้มาด้วย การถามโดยไม่มีไฟล์แนบถือว่ามีความรู้เกี่ยวกับเรื่องที่ถามดีอยู่แล้ว สามารถปรับใช้ได้เองครับ

[XDoll]

ไม่รู้ว่าเข้าใจถูกไหมนะครับ ลองสูตร
ให้ A1 คือวันที่ตั้งต้น
A2 คีย์สูตร =LEFT(A1,2)+IF(MID(A1,3,2)+0=1,2,3)&TEXT(EOMONTH(TEXT(LEFT(A1,2)+3&"-"&TEXT(RIGHT(A1,4),"00-00"),"[$-409]yy/mm/dd;@"),-1)-1,"mmdd") กด Enter

[XDoll]

แก้สูตรนิดนึงครับ พอดีไม่ได้กำหนดวันที่ 28 และ 30

=LEFT(A1,2)+IF(MID(A1,3,2)+0=1,2,3)&TEXT(EOMONTH(TEXT(LEFT(A1,2)+3&"-"&TEXT(RIGHT(A1,4),"00-00"),"[$-409]yy/mm/dd;@"),-1),"mm")&IF(MID(A1,3,2)-1=2,28,30)

ผิดพลาดประการใดขออภัยด้วยครับ

[busaba rienthong]

อาจารย์คะ
ได้แนบ file ตัวอย่างมาค่ะ

[XDoll]

ลองดูครับ
R59 คีย์ =LEFT(N3,2)+IF(MID(N3,3,2)+0=1,2,3)&TEXT(EOMONTH(TEXT(LEFT(N3,2)+3&"-"&TEXT(RIGHT(N3,4),"00-00"),"[$-409]yy/mm/dd;@"),-1),"mm")&IF(MID(N3,3,2)-1=2,28,30)

[busaba rienthong]

ยังไม่ได้ มันโชว์ #VALUE! ค่ะ

[XDoll]

เช็คอีกที ของผมลองแล้วปกติดี

[busaba rienthong]

ยังโชว์เหมือนเดิมค่ะ เกิดจากการ copy สูตรมาวางหรือไม่คะ

[XDoll]

Excel version ไหนครับ

[busaba rienthong]

2010 ค่ะ

[XDoll]

ผมทดสอบกับ Version 2010 ก็ปกติดีครับ(ตามภาพ) ลองเอาไฟล์ที่ผมแนบไปใช้ดู

[busaba rienthong]

ค่าทีแสดง #VALUE! จะหมายถึงว่า N3 เป็น number N58 เป็น TEXT หรือไม่คะ พอเอามาเปรียบเทียบกันเลยแสดง #VALUE! อันนี้ถามเพื่อเป็นความรู้ค่ะ

[busaba rienthong]

Save as file ที่แนบมา แล้วพอ click ที่สูตรหรือเปลี่ยนตัวเลขที่ N3 ก็จะแสดง #VALUE! ค่ะ

[XDoll]

ใช่ครับ กรณีที่เป็นเวลา ปัญหานึงคือ Excel อ่านค่าไม่ออก หลายครั้งที่เกิดจาการ Set Regional ของ Window เอง ผมก็เลย Set formate ให้เป็น [$-409]yy/mm/dd;@" เพื่อแก้ปัญหาเครื่องที่ตั้งค่าวันเวลาไม่ตรงกัน เบื้องต้นลองแก้ ในตัว Windows ตรง Regional & Language ก่อนครับ ให้เข้าไปที่ Control panel >Language>Change date ,time or number formats > แก้ให้เป็น d/M/yyyy และ dddd,MMMM d, yyyy (Windows 10) ไม่แน่ใจว่า Windows 7,8 จะมีรูปแบบนี้หรือเปล่านะครับ หากไม่เหมือนกันก็ให้ตั้งแบบคล้ายๆกัน (ตามรูป)

** หากยัง eror อยู่คงต้องเปลี่ยนสูตรครับ
** หากสมาชิกท่านใดมีแนวทาง หรือสูตรอื่น ช่วยแนะนำด้วยครับ

[busaba rienthong]

ลองแล้วยัง error ค่ะ