ขอความช่วยเหลือด่วนค่ะ

[snasui]

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

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

[skantima]

ขออนุญาตส่งการบ้านพรุ่งนี้นะคะ ตอนนี้ถามได้อย่างเดียว

[skantima]

ส่งไฟล์ตัวอย่างมาให้อาจารย์แล้วคะ

มีทั้งหมด ชีท (ในเซลล์ได้ใส่ comment ไว้ว่าต้องการอะไรค่ะ)
1. CHECKIN ไฟล์ที่ใช้งานปัจจุบัน ต้อนรับคีย์ข้อมูลใต้แถบเขียว แคชเชียร์คีย์ให้แถบชมพู เมื่อแขก check-out แคชเชียร์จะพิมพ์ "O" ในช่อง CHECKOUT เพื่อให้ทราบว่าห้องนั้นได้ออกไปแล้ว และค่อยให้เจ้าหน้าที่หนึ่งคนมาย้ายข้อมูลไปเก็บในชีท CHECKOUT
2. CHECKOUT ย้ายข้อมูลของห้องที่เช็คเอา้ท์แล้วมาเก็บไว้เป็นข้อมูลเพื่อค้นหาต่อไป
3. DataToPrint ข้อมูลที่เตรียมสำหรับพิมพ์ต่อไป
4. FORM ตัวอย่างแบบฟอร์มที่ต้องส่งราชการทุกวัน
5. FOLIO บิลที่พิมพ์ให้ลูกค้า
6. ROOM NUMBER หมายเลขห้องทั้งหมด

[snasui]

รหัสปลด Lock Worksheet คืออะไรครับ

[skantima]

1 เหมือนเดิมค่ะ

[snasui]

ลองทดสอบใช้งานตามไฟล์แนบครับ อย่าลืมกำหนดให้ใช้งาน Macro ก่อนที่จะเปิดไฟล์โดยเข้าไปที่ Tools > Macro > Security > กำหนดเป็น Medium หรือ Low หากกำหนดเป็น Medium จะต้องคลิกยอมรับการใช้งาน Macro ทุกครั้ง

[skantima]

อาจารย์คะ

ขอสูตรเอาค่าวันที่ จาก CHECKIN DATE ด้วยนะคะ
เวลาจะเอา macro ที่อาจารย์ทำให้ไปใช้งาน ก็แค่ก๊อปปี้ลงไปไว้ในไฟล์จริง แต่เปลี่ยน range ที่อ้างอิงนิดหน่อย เลยได้ใช่มั๊ยคะ
ส่วน running no ใน folio สามารถกำหนดให้เป็น วันที่พิมพ์ตามด้วยหมายเลขรันนิ่งได้มั๊ยคะ เช่น 210311001

[skantima]

วันเวลาที่ cursor ผ่านนั้น หากผ่านใหม่ก็เปลี่ยน เรากำหนดให้ไม่เปลี่ยนได้มั๊ยคะ

[snasui]

ช่วยอธิบายเพิ่มด้วยว่าสูตรค่าวันที่จาก CHECKIN DATE คือค่าไหน ชีทไหน เซลล์ไหน เอาไปใช้ที่ชีทไหน เซลล์ไหน

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

เลข 01032011 สามารถนำมาได้ แต่ 001 เอามาจากไหนแจ้งด้วยครับ

Macro ที่เขียนให้สามารถนำไปใช้ได้เลย ถ้าชีทและเซลล์ตรงกันไม่ผิดเพี้ยน

การกำหนดค่าวัน เวลา สามารถบอกโปรแกรมได้ครับว่า ถ้าไม่ว่างก็ไม่ต้องเปลี่ยนค่านั้น ๆ

[skantima]

ช่วยอธิบายเพิ่มด้วยว่าสูตรค่าวันที่จาก CHECKIN DATE คือค่าไหน ชีทไหน เซลล์ไหน เอาไปใช้ที่ชีทไหน เซลล์ไหน
ในชีท CheckIN ค่า CHECKIN DATE และ CHECKOUT DATE นำไปคำนวณในชีทเดิม ช่อง ROOM CHARGE

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

เลข 01032011 สามารถนำมาได้ แต่ 001 เอามาจากไหนแจ้งด้วยครับ
ไม่ต้องเอาค่าวันที่ก็ได้ค่ะ เป็น running number เฉยๆ แอบไว้ที่ไหนก็ได้ โดยให้มี สี่หลัก เริ่มจาก 0001

Macro ที่เขียนให้สามารถนำไปใช้ได้เลย ถ้าชีทและเซลล์ตรงกันไม่ผิดเพี้ยน
พรุ่งนี้จะลองนำไปประยุกต์ในไฟล์จริงค่ะ

การกำหนดค่าวัน เวลา สามารถบอกโปรแกรมได้ครับว่า ถ้าไม่ว่างก็ไม่ต้องเปลี่ยนค่านั้น ๆ

ทำไม่เป็นอีกค่ะ

[snasui]

ในชีท CheckIN ค่า CHECKIN DATE และ CHECKOUT DATE นำไปคำนวณในชีทเดิม ช่อง ROOM CHARGE

มีสูตรอยู่แล้วนี่ครับ ไม่ทราบว่าสูตรปัจจุบันมีปัญหาอะไรครับ

ไม่ต้องเอาค่าวันที่ก็ได้ค่ะ เป็น running number เฉยๆ แอบไว้ที่ไหนก็ได้ โดยให้มี สี่หลัก เริ่มจาก 0001

งั้นง่ายที่สุดผมจะบวกจากค่าเดิมเข้าไปแล้ว Run ไปเรื่อย ๆ ถือว่าบิลมีเพียงประเภทเดียว

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

[skantima]

ในชีท CheckIN ค่า CHECKIN DATE และ CHECKOUT DATE นำไปคำนวณในชีทเดิม ช่อง ROOM CHARGE

มีสูตรอยู่แล้วนี่ครับ ไม่ทราบว่าสูตรปัจจุบันมีปัญหาอะไรครับ

สูตรที่มีได้ค่า #value ค่ะ (/ _ ; )

[snasui]

สูตรที่มีได้ค่า #value ค่ะ (/ _ ; )

ไฟล์ที่ส่งมาเป็นตัวอย่างไม่มีค่าผิดพลาดเป็น #Value! อย่างที่บอกครับ อย่าลืม Download ไฟล์ล่าสุดที่ผมแนบมาให้ เนื่องจากได้ปรับปรุง Code ให้เป็นตามที่แจ้งมาล่าสุดแล้วครับ

[skantima]

อ่อ. พรุ่งนี้ลองอีกทีนะคะ วันนี้กลับบ้านแล้วโหลดไม่ได้แล้วค่ะ ขอบคุณมากนะคะ