PDA

View Full Version : อยากให้บนใบเสร็จจากการปริ้นของ EXCEL มีการรันนัมเบอร์ครับ



sakchai
10 May 2007, 11:25
จะต้องเขียน VBA หรือ ต้องทำอย่างไรครับ
ขอบคุณครับ

วานิชย์
10 May 2007, 11:51
จะต้องเขียน VBA หรือ ต้องทำอย่างไรครับ
ขอบคุณครับ


ให้ข้อมูลมาน้อยจังเลยนะครับ ตัวอย่างก็ไม่มี สิ่งที่ต้องการเป็นแบบไหนก็น่าจะอธิบายให้ละเอียดสักนิดนะครับ
อย่าให้คนตอบต้องจินตนาการงานของคนอื่นมากเลยครับ...


การใส่หมายเลข แบ่งวิธี/แนวทางที่จะใส่ ทำได้หลัก ๆ 2 ทาง คือ

1. ใช้ AutoPage Number / Header - Footer

2.ใช้วิธีแสดงเลขใน WorkSheet เลย

ซึ่งทั้ง 2 วิธีก็มีข้อด้อย ข้อเด่นต่างกัน ขึ้นอยู่กับงานที่ต้องการใช้ครับ
:)

sakchai
10 May 2007, 12:04
ผมเขียน excel ขึ้นใช้งานเองครับ งานที่เขียนสามารถสั่งพิมพ์ใบเสร็จออกทางเครื่องพิมพ์ได้ด้วยโดยการ สร้างปุ่มมาโครในการพิมพ์ ซึ่งก็สามารถพิมพ์ได้ตามปกติ คือเรียง ๆ กันไป (เครื่องพิมพ์ใบเสร็จ 3 นิ้วเล็ก ๆ เช่นเดียวกับ 7-11 นั่นแหล่ะครับ) วันนึง ก็ 30-50 ฉบับ อยากให้มีการพิมพ์เลขที่บนใบเสร็จให้ด้วย เช่น 001,002....ต่อ ๆ กันไปแบบนี้ครับ สิ้นวันขึ้นเลข001 ใหม่หรือจะต่อกันไปเรื่อย ๆ ก็ได้ครับ ขอให้ทุกใบเสร็จมีเลขที่ครับ
ขอบคุณครับ

zv735
10 May 2007, 12:47
ในช่องเลขบิล ใส่ ค่าเริ่มต้นไว้ก่อน สมมุติว่าเป็น sheet1!C2

พอกด ปุ่มพิมพ์ใบเสร็จ ให้เขียน Code ต่อท้ายก่อน End Sub ว่า

Sheet1.Range("C2") = Sheet1.Range("C2") +1

เลขก็จะ Run ไปเรื่อยๆ ครับ
ถ้าจะให้เริ่ม 1 ใหม่ทุกครับที่ เปิด file ใหม่ ก็ให้เขียน code ที่
Private Sub Workbook_Open()

ว่า

Sheet1.Range("C2") = 1

อย่างนี้ได้หรือเปล่าครับผม

อย่างไรลองแนบ file มาให้ดูนะครับ


ดู File แนบนะครับ
ขอบคุณมากๆครับผม

sakchai
10 May 2007, 14:55
เมื่อหลายวันก่อนผมตกใจและรู้สึกใจหายอย่างมาก เมื่อทราบว่า ฟอรัมนี้จะมีไม่มีอีกต่อไป แต่ก็ใจชื่นเมื่อรู้ว่าจะมีการให้มีฟอรัมนี้อีก
ไม่น้อยกว่า 5 ปี ที่ผมถือว่าฟอรัมนี้เป็นครูของผม ผู้ตั้งกระทู้และผู้ตอบกระทู้ของฟอรัมนี้ทุกคน ผมขอเปรียบและยกเป็นอาจารย์ของผม ไม่มีครั้งใดที่ผมจะไม่ระลึกถึงบรรดาครูที่ประสิทธิประศาสตร์วิชานี้ให้ผม แม้บางช่วงเวลา ไม่ได้เข้ามา ก็ยังไม่เคยลืมว่ามีสถานที่ที่บรรดาครูรอให้ความสว่างอยู่ทุกครั้งไปที่ผมประสบข้อข้องใจ กราบขอบคุณ คุณครูทุกท่านครับ...ศักดิ์ชัย