หาวันกำหนดส่ง และมีข้อความเตือน

[chatsri999]

อาจารย์ครับ มาขอความช่วยเหลืออีกแล้วครับ คือว่าผมต้องการให้คำณวนหาวันครบกำหนดส่งคืน และมีข้อความ Alert ขึ้นมาว่า "ครบกำหนดส่ง" หรือถ้าเลยกำหนดส่งแล้ว บอกจำนวนวันด้วย และถ้านำมาส่งคืนแล้วเมื่อใส่วันที่ส่งคืนแล้ว ให้ขึ้นว่า "OK" ตามไฟล์แนบมาให้เป็นตัวอย่างครับหรือจำแนะนำให้ปรับตรงไหนก็ช่วยหน่อยครับ

ขอบคุณมากครับอาจารย์

[snasui]

ลองดูตามไฟล์แนบครับ

ที่ F4 คีย์สูตร

=IF(E4<>"","OK",IF(AND(E4="",D4-C4>0),"เลยกำหนดส่งคืนมาแล้ว "&D4-C4&" วัน","ยังไม่ครบกำหนด"))

Enter ความหมายคือ ถ้า E4 (ส่งคืนเมื่อวันที่) ไม่เป็นค่าว่าง ก็ให้แสดงคำว่า "OK" หากยังเป็นค่าว่าง คือ ยังไม่ส่งคืน เมื่อยังไม่ส่งคืนก็ต้องหาว่าเลยกำหนดมาแล้วหรือว่ายังไม่ครบกำหนด หากว่าวันที่ปัจจุบันมากกว่าวันกำหนดส่งคืนก็ให้แสดงคำว่า "เลยกำหนดส่งคืนมาแล้ว x วัน" (x คือผลต่าง) หากวันที่ปัจจุบันไม่มากกว่าวันกำหนดส่งให้แสดงข้อความ "ยังไม่ครบกำหนด"

สังเกตว่าการบวกลบวัน เวลา สามารถใช้การบวกลบกันธรรมดา เนื่องจากวัน เวลา คือ ตัวเลขครับ

[chatsri999]

ขอบคุณมากครับอาจารย์ ขอบพระคุณเป็นอย่างสูงครับ ดีใจจัง

[lek]

เรียน อาจารย์ ครับ
จากคำถามนี้ ผมเรียนถามเพิ่มเติมครับ
ต้องการให้คำแจ้งเตือนเลยกำหนดวันส่ง กระพริบ เป็นอักษรสีแดงด้วยครับ ไม่ทราบว่าได้หรือไม่ครับ

ขอบคุณครับ
Lek

[snasui]

การกำหนดให้กระพริบต้องพึ่ง VBA เข้ามาช่วยครับ ดูตัวอย่าง Code ได้ที่นี่ครับ

http://www.cpearson.com/excel/BlinkingText.aspx

[nankob]

มาพลอยเก็บความรู้เข้าคลังสมองด้วยคน ขอบคุณอาจารย์ด้วยใจครับ

[lek]

เรียนอาจารย์ครับ
ขอตัวอย่างสักตัวอย่างที่เป็นไฟล์เลยหรือโค๊ดสำหรับตัวอย่างง่ายๆตามนี้ครับ
ผมแกะจากตัวอย่างที่ใช้งานได้จริงจะง่ายสำหรับผมครับ
เนื่องจากยังไม่ได้เข้าใจ VBA ดีครับ
เอาสูตรง่ายๆเช่น =if(A1>10,OK,NG)
กระพริบเมื่อ แสดง NG
เดี่ยวผมแกะแล้วลองนำไปประยุกต์ใช้น่าจะพอได้อยู่ครับ

ขอบคุณครับ
เล็ก

[snasui]

ผมไม่มีตัวอย่างไฟล์ที่ว่านั้นครับ ให้ลองทำเองโดยการเขียนสูตร ประกอบกับ Code ตาม Link ที่ผมแนบไปให้ ติดตรงไหนก็มาถามกันต่อเรื่อย ๆ ครับ

[lek]

ครับ
ผมจะพยายามดูครับ
ขอบคุณครับ
Lek