Snasui Excel Forum

ดิฉันได้ทำตารางข้อมูล เพื่อนำไปเติมในแบบฟอร์มแบบอัตโนมัต มีติดปัญหาดังนี้

1 เมื่อเติมช่อง E15 กับ H 15 ให้ check box มีเครื่องหมายถูกเอง อัตโนมัต
สรุปคือ ถ้าในช่องว่างแถวไหนถูกเติม ให้check box ติ๊กเครื่องหมายถูกเองอัตโนมัติค่ะ

2. เมื่อรันโปรแกรมแล้ว พยายามจัดให้หน้ากระดาษอยู่ใน a4 เพื่อพร้อมปริ้น ไม่ได้ค่ะ

อธิบายการทำงาน
ในไฟล์แนบ
ชีท Print เป็นการก๊อป ชีท Template มาวางต่อๆกัน แล้วนำข้อมูลจาก ชีท List มาเติมตามช่องว่าที่เซ็ตไว้ค่ะ
ขอบพระคุณมากค่ะ

ผมขอช่วยตอบแค่ข้อแรกนะครับ เรื่องจัดหน้านี่ไม่ถนัดจริงๆ
ไม่ทราบได้ลองเขียนโค้ดในไฟล์แนบแล้วหรือยังครับ หากเขียนแล้วติดตรงไหน แต่ลองดูแล้วในชีท Print ยังไม่โค้ดที่รันตาม Event หากให้แนะนำแบบที่ผมเคยทำ ก็อาจเลือกเหตุการณ์เป็น Worksheet_Change แล้วก็ใช้คำสั่งเพื่อตรวจว่ามีการคีย์วันที่ในเซลล์ Target ครบแล้วหรือยัง หากครบแล้วก็ให้ติ๊กที่ check box ครับ คำสั่งเกี่ยวกับ check box ที่อยู่บน worksheet ผมใช้ Sheets(...).Shapes("ชื่อ check box").ControlFormat.Value=xlOn กรณีสั่งให้ติ๊กครับ

อ้อ เข้าใจแล้วค่ะ ขอบคุณนะค่ะ

ช่วยให้รายละเอียดเพิ่มเติมเรื่อง Print ให้พอดี A4 ไม่ทราบว่า Print เป็นรายใบตาม Template หรือ Print อย่างไรครับ

ปริ้นเป็นรายใบตาม Template และเรียงลำดับตามชีท Print ค่ะ

คือสั่งปริ้นในชีท ที่ชื่อ print ค่ะ แล้วเกิดปัญหาว่า พอก๊อปปี้มาวางต่อๆกัน (ที่ชีท print ) แล้ว มันไม่อยู่ในหน้ากระดาษ A4 มันจะเหลื่อมซ้อน กันขึ้นมา ทำให้ปริ้นต่อเนื่องไม่ได้ ต้องมานั่งจัดหน้ากระดาษเองก่อนทุกครั้ง ถึงจะสั่งปริ้นได้ค่ะ

หากเพื่อ Print ไม่จำเป็นต้อง Copy มาวางต่อเนื่องกันก่อนแล้วค่อย Print ครับ

เราสามารถ Loop ข้อมูลแต่ละบรรทัดมาลง Form แล้ว Print ทีละ Form โดยจัดหน้ากระดาษของ Form นั้นให้พอดีกับหน้า A4 ตามต้องการ ปัญหาคือหากต้องการจะให้ระบุเลขหน้าสำหรับการพิมพ์จะต้องใช้ Code เข้าไปช่วยกำหนด

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

ขอบพระคุณมากค่ะ