ให้รันตัวเลข

[liveday]

เรียน อาจารย์
ถามว่าถ้าเรา Copy ขึ้นTap ไหม่ จะให้รันตัวเลขไปเรื่อยๆใด้หรือเปล่าครับ

[snasui]

ลักษณะการทำงานเป็นอย่างไร ทำไมต้องทำหลาย Tab ครับ ตามปกติแล้วหากเป็นข้อมูลเดียวกันเราจะไม่ใช้หลาย ๆ Form คือควรจะมี Form เดียวแล้วเก็บข้อมูลลง Database และหากจะดึงข้อมูลมาแสดงผลก็ค่อยไปนำมาจาก Database มาใช้ครับ

[liveday]

คืออันนี้ผมจะทำเป็นเปิดบิลใบเสร็จครับ เลยอยากใช้วิธีรันตัวเลขไม่อยากใช้พิมพ์ เพราะพิมเองโอกาศมีพิดพลาดเยอะมากครับเพราะไม่ใด้ใช้งานคนเดียว
คืออยากทำการป้องกันโดยให้รันตัวเลข เลขที่บิลเพื่อไม่ให้เกิดการผิดพลาดครับ
หรือ อาจารย์มีวิธีเเนะนำที่ดีกว่านี้ไหมครับ
ขอบคุณครับ

[snasui]

ผมไม่ได้สงสัยเรื่องการ Run ตัวเลขครับ แต่สงสัยว่าเหตุใดต้องทำเป็นหลาย Tab ปกติการใช้ฟอร์มเราไม่จำเป็นต้อง Copy ทั้งฟอร์มไป Tab อื่น เราสามารถนำไปเฉพาะข้อมูลเพื่อไปบันทึกลง Database ดังที่ได้กล่าวแล้ว ส่วน Form ก็ใช้ Form เดียว สามารถเขียน Code VBA ให้ Run เลขที่ให้ได้เมื่อมีการคลิกปุ่มเพื่อบันทึกข้อมูลลงฐานข้อมูล เพื่อป้องกันความผิดพลาดในการคีย์

[liveday]

คือว่าจะทำฟอร์มใบเสร็จรับเงินขั่วคราว เป็นเเบบออนไลน์ เเล้วจะต้องปริ้นให้ลูกค้ากลับไปด้วย
ผมไม่รู้จะเริ่มต้นยังไง อาจารย์ พอจะหาวิธีที่ดีกว่านี้ไหมคับ ส่วนฟอร์มบิลที่ทำอยู่ตอนนี้ ใช้ตัวอย่างดังไฟล์เเนบครับ
ที่เริ่ม Tap ไหม่คือ Tap เเรกจะเป็น Defaut Tap ถัดไปจะเริ่มนับตัวเลขบิล
ที่เปิดเป็น Tap เพราะว่าถ้ามีปัญหากับลูกค้าในภายหลัง ก็จะนำฟอร์มที่มีปัญหานี้นำกลับมายืนยันลูกค้าเเล้วปริ้นขึ้นมาไหม่ใด้ครับ
รบกวนอาจารย์เเนะนำเเนวทางด้วยนะครับ

[snasui]

ผมทำตัวอย่างการเก็บข้อมูลลง Database ตามไฟล์แนบครับ แยกเก็บเงินมัดจำไว้ต่างหากอีกชีท โดยใช้ Code ตามด้านล่าง

Code: Select all

Sub RecordBill()
Dim rs As Range, rt As Range
Dim rs1 As Range, rt1 As Range
Dim i As Integer
Worksheets("Default").Range("D1") _
    = Application.Max(Worksheets("Database") _
        .Range("C:C")) + 1
With Worksheets("Template")
    i = Application.CountIf( _
        .Range("J3:J15"), ">0")
    Set rs = .Range("A2:J" & 2 + i)
    Set rs1 = .Range("A21:I21")
End With
    Set rt = Worksheets("Database") _
        .Range("A65536").End(xlUp).Offset(1, 0)
    Set rt1 = Worksheets("Deposit") _
        .Range("A65536").End(xlUp).Offset(1, 0)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    rs1.Copy
    rt1.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
MsgBox "Finish"
End Sub

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

[liveday]

ขอบคุณมากครับ

[liveday]

สอบถามอาจารย์เพิ่มเติมครับ หลังจากหายไปนาน
หลังที่อาจารย์เเนะนำมา ตอนนี้เริ่มทำไปที่ 60% เเล้ว เเต่ตอนนี้จะทำข้อมูลเพิ่มเติมต่อยอดจากอาจารย์
1.จะเพิ่มในส่วนของสรุปยอดรายเดือน
2.เเบบฟอร์มที่ต้องการดึงข้อมูลเก่ามาใช้ ใช้เเบบฟอร์มเดิมใด้หรือเปล่าครับ
3.ที่เจอรายการที่ 2 ตรง บิลฟอร์ม Default ไม่ไปเเสดงที่ Database ครับ
ขอคำเเนะนำอาจารย์ด้วยครับ ขอบคุณครับ

[snasui]

ชีท Default เซลล์ B14:B17 ควรจะอยู่ในเซลล์เดียวกัน หากว่าต้องแยกบรรทัดจะต้องมีระยะห่างระหว่างข้อ 1 และ ข้อ 2 ไว้คงที่เสมอจะได้ง่ายต่อการจัดการ ไม่ทราบว่าติดประเด็นอะไรหรือไม่ครับ

[liveday]

รบกวนอาจารย์ครับ

พอดีว่าใส่ VBA เเล้วมันขึ้น Runtime error '1004': Application-defined or object-defined error

ต้องเเก้ใขส่วนไหนหรือเปล่าครับ ลองรันโดยการกด F8 จะติดบรรทัดนี้ครับ

Sub PasteToTotal()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Default").Range("G5", Range("G7") _
.End(xlUp).Offset(0, 8))
Set rt = Worksheets("Tota").Range("A2").End(xlUp).Offset(1, 0) *****จะติดบรรทัดนี้ เเล้วขึ้น Runtime error '1004': Application-defined or object-defined error

rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Finish."

[snasui]

ตรวจสอบว่า Worksheets("Tota") ถูกต้องหรือไม่ครับ หากถูกต้องแล้วช่วยส่งไฟล์ตัวอย่างที่เกิดค่าผิดพลาดนี้มาด้วยครับ

[liveday]

ใด้เเล้วครับ สาเหตุเกิดจากตอน กด F8 เช็คดูนั้น Tabไปอยู่ที่ Total ทำให้บันทึกไม่ใด้