Page 1 of 2
กำหนด EXPIRY
Posted: Thu Jul 14, 2016 9:38 pm
by busaba rienthong
อาจารย์คะ
ต้องการทราบสูตรกำหนดวันหมดอายุ 3 ปี ย้อนหลัง 1 เดือน วันที่ 30 (เดือนกุมภาเป็นวันที่ 28)
เช่น ผลิต 160705 (ปี เดือน วัน)
หมดอายุ 190630
Re: กำหนด EXPIRY
Posted: Thu Jul 14, 2016 9:58 pm
by snasui
สามารถใช้สูตรด้านล่างได้ครับ
=Date(Year(20&Left(A1,2),Month(Mid(A1,3,2)),0)
Re: กำหนด EXPIRY
Posted: Thu Jul 14, 2016 11:06 pm
by busaba
อาจจะบอกอาจารย์ไม่ชัดเจน เลยยังไม่ได้
คือ
ที่ A1 พิมพ์lot ผลิต160705
ที่ A2 ต้องการใส่สูตรให้แสดงตัวเลขหมดอายุ เป็น 190630 เลยค่ะ โดยเดือนกุมภาวันที่2ตัวท้ายเป็น28ส่วนเดือนอื่นเป็น30หมดค่ะ
Re: กำหนด EXPIRY
Posted: Thu Jul 14, 2016 11:20 pm
by snasui
เซลล์ A2 เพิ่มฟังก์ชั่น Text เข้าไปช่วยครับ เป็น
=Text(Date(Year(20&Left(A1,2),Month(Mid(A1,3,2)),0),"yymmdd")
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 7:18 am
by busaba rienthong
ยังไม่ได้ค่ะอาจารย์
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 7:54 am
by snasui
แนบไฟล์ที่บอกว่าไม่ได้มาด้วย การถามโดยไม่มีไฟล์แนบถือว่ามีความรู้เกี่ยวกับเรื่องที่ถามดีอยู่แล้ว สามารถปรับใช้ได้เองครับ
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 9:21 am
by 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
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 10:41 am
by 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)
ผิดพลาดประการใดขออภัยด้วยครับ
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 4:28 pm
by busaba rienthong
อาจารย์คะ
ได้แนบ file ตัวอย่างมาค่ะ
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 5:27 pm
by 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)
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 7:50 pm
by busaba rienthong
ยังไม่ได้ มันโชว์ #VALUE! ค่ะ
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 9:16 pm
by XDoll
เช็คอีกที ของผมลองแล้วปกติดี
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 10:45 pm
by busaba rienthong
ยังโชว์เหมือนเดิมค่ะ เกิดจากการ copy สูตรมาวางหรือไม่คะ
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 11:07 pm
by XDoll
Excel version ไหนครับ
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 11:22 pm
by busaba rienthong
2010 ค่ะ
Re: กำหนด EXPIRY
Posted: Fri Jul 15, 2016 11:46 pm
by XDoll
ผมทดสอบกับ Version 2010 ก็ปกติดีครับ(ตามภาพ) ลองเอาไฟล์ที่ผมแนบไปใช้ดู
Re: กำหนด EXPIRY
Posted: Sat Jul 16, 2016 7:06 am
by busaba rienthong
ค่าทีแสดง #VALUE! จะหมายถึงว่า N3 เป็น number N58 เป็น TEXT หรือไม่คะ พอเอามาเปรียบเทียบกันเลยแสดง #VALUE! อันนี้ถามเพื่อเป็นความรู้ค่ะ
Re: กำหนด EXPIRY
Posted: Sat Jul 16, 2016 7:19 am
by busaba rienthong
Save as file ที่แนบมา แล้วพอ click ที่สูตรหรือเปลี่ยนตัวเลขที่ N3 ก็จะแสดง #VALUE! ค่ะ
Re: กำหนด EXPIRY
Posted: Sat Jul 16, 2016 7:35 am
by 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 อยู่คงต้องเปลี่ยนสูตรครับ
** หากสมาชิกท่านใดมีแนวทาง หรือสูตรอื่น ช่วยแนะนำด้วยครับ
Re: กำหนด EXPIRY
Posted: Sat Jul 16, 2016 8:29 am
by busaba rienthong
ลองแล้วยัง error ค่ะ