ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ

[sdmania]

หน้าpage01 ครับเซลb18สามารถเปลี่ยนแปลงได้ครับ คือสมมุติว่าเป็นเงินสดที่ลูกค้าถือมาเพื่อตัดค่างวดที่ค้างครับ
มันมีกฏว่า เงินที่ลูกค้าถือมาb18 ต้องตัดค่าปรับก่อนb18-f3 จะได้ผลลัพธ์คือ i6 ไปตัดค่างวด จะได้ i6-c6 เป็นผลลัพธ์ในj6 หากj6มากกว่า0 ก็นำไปตัดค่างวดถัดไป คือ(j6-c7) =j7 ทำไปเรื่อยๆจนกว่า ค่าเงินลูกค้า<=0

คำถาม อยู่ตรงนี้แหละครับ ผมจะsave ไปลงsheetรับเงินตัดค่างวด(ตอนนี้ผมยังไม่ได้ออกแบบไว้เลยครับ)แล้วค่างวดที่ตัดไปแล้วมันควรจะเหลือศูนย์น่ะครับ ส่งค่าข้ามsheetยังไงดีครับ

[sdmania]

ไฟล์ตัวอย่างครับ

[sdmania]

ขอโทษนะครับ เปลี่ยนเป็นคำถามครับ

ถามใหม่สั้นๆว่า ผมจะำนำคำตอบในวงกลมขวามือ(แถบสีชมภูครับ) ไปใส่ให้ตรงกับ รหัสลูกค้า+งวดที่เท่าใดแบบAuto ยังไงดีน่ะครับ

[snasui]

เอาไปใส่ในชีทไหน คอลัมน์ไหนครับ

[sdmania]

ขออภัยครับรีบไปหน่อย

เอาไปใส่ที่ sheet data02 ครับ การเก็บในคอลัมภ์sheet data02นี่ผมยังคิดไม่ออกครับ คิดได้คร่าวๆว่าต้องเก็บรหัสลูกค้า ,กับวันที่ของงวดที่ค้าง,วันที่ของวันที่ลูกค้ามาจ่าย และสุดท้าย จำนวนเงินที่มาตัดงวด ค่าปรับผมไม่ได้แยกเก็บจะเป็นอะไรไหมครับ

[snasui]

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

[sdmania]

ผมมาส่งงานที่อาจารย์ให้ไปแก้ใหม่ครับ

sheetที่เอาไว้จัดเก็บข้อมูลการชำระชื่อ data02 ครับอาจารย์

[snasui]

แต่ละคอลัมน์ในชีท data02 สามารถระบุได้ไหมครับว่าให้เอาค่ามาจากชีทใด เซลล์ใดบ้าง

[sdmania]

ดูแล้วผมต้องให้อาจารย์สอนใหม่เรื่องDBเสียแล้วล่ะครับ ขอรบกวนอาจารย์ด้วยครับ

sheet data01 คือตัวข้อมูลลูกค้า ได้แก่ รหัสลูกค้า,งวดที่,กำหนดชำระ,ค่างวด
sheet data02 เอาไว้สำหรับรับค่างวด จากลูกค้า ได้แก่ รหัสลูกค้า,วันที่มาชำระ,งวดที่,จำนวนชำระ

แต่ที่ผมแยกการรับค่างวดเพราะ ลูกค้าบางท่าน 1งวด มาจ่าย2ครั้งจึงจะเต็มงวด(บางรายมาจ่ายวันเดียว แต่จ่ายล่วงหน้าไป2งวด) เลยส่งตัวอย่างนี้มาให้อาจารย์สอนวิธีวางDBรับค่างวดครับ หรือว่าควรทำsheetอย่างไรดีครับ

[snasui]

ผมปรับมาให้ใหม่เพื่อให้ง่ายต่อการสรุปข้อมูลโดยมีหลักการดังนี้ครับ

1. ในชีท Form สามารถเลือกได้ว่าจะบันทึกลูกหนี้หรือบันทึกชำระค่างวด กรณีที่บันทึกลูกหนี้ ยอดจะเป็นบวก หากชำระค่างวดยอดจะเป็นลบ
2. ในชีท data02 จะเป็น Database สำหรับการทำรายการทั้งหมด
3. ที่ชีท Report จะเป็นสรุปลูกหนี้แต่ละรายว่าในงวดนั้น ๆ เหลือยอดคงค้างหรือไม่ เท่าไร การบันทึกรายการทุกครั้งจะ Update รายงานนี้โดยโดยอัตโนมัติเสมอ

ตัวอย่าง Code ตามด้านล่าง

Code: Select all

Sub RecordData()
Dim rs As Range, rt As Range
Set rs = Worksheets("Form").Range("A2:E2")
Set rt = Worksheets("data02") _
    .Range("A65536").End(xlUp).Offset(1, 0)
Application.ScreenUpdating = False
With Worksheets("Form")
    If .Range("C8") = 2 Then
        .Range("E2") = -.Range("E2")
        rs.Copy
        rt.PasteSpecial xlPasteValues
        .Range("E2") = -.Range("E2")
    Else
        rs.Copy
        rt.PasteSpecial xlPasteValues
    End If
End With
Application.CutCopyMode = False
MsgBox "Finish"
Worksheets("Report").PivotTables("PivotTable1"). _
    PivotCache.Refresh
Application.ScreenUpdating = True
End Sub

ดูไฟล์แนบประกอบครับ

[sdmania]

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

เดี๋ยวผมขอนำไปศึกษาก่อนครับอาจารย์

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