formula sum vba

[pepper_dog]

รบกวนช่วยเหลือหน่อยครับ

ในหน้าบันทึกรายการผมจะทำการ add ข้อมูลลงใน sheet payment นะครับ

หลังจาก add แล้ว ถ้าผมต้องการ sum ค่าตัวเลขแต่ละ รายการ ต้องใช้คำสั่งอะไรครับ

และถ้ามีการ add เพิ่มใหม่ ก็ให้ทำการลบ sum เก่าออก และทำการ sum ใหม่ นะครับ


เพราะจะมีการทำการ add ข้อมูลหลายครั้ง ภายใน 1 วัน

ผมแนบไฟล์มาด้วยครับ

จึงรบกวนมาเพื่อขอคำแนะนำครับ

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

[snasui]

ไม่ทราบว่า Code ที่เขียนไว้แล้วและเป็นปัญหาอยู่ที่ Module ใด ชื่อว่าอะไรครับ จะได้ปรับปรุงต่อไปจากนั้นครับ

[pepper_dog]

อยู่ที่ Private Sub cmdProcess_Click()

addsumpayment 'sum payment sheet

ยังไม่ได้เขียนในส่วนนี้เลยครับ ไปไม่ถูกครับ


ผมแนบไฟล์มาใหม่นะครับ

[snasui]

ลองตามนี้ครับ

ที่ชีท Payment เซลล์ I8 คีย์สูตรเพื่อเป็นยอดรวม

=SUM(OFFSET(I$4,0,0,ROW()-ROW(I$4)))

Enter > Copy ไปทางขวา

และเพิ่ม Code ที่ insertvatsale เป็นด้านล่าง

Code: Select all

Private Sub insertvatsale()
    Dim rs As Range, rt As Range
    
    On Error GoTo ll_error
    
    With Worksheets("ºÑ¹·Ö¡ÃÒ¡ÒÃ")
        Set rs = .Range("C3,C4,C5,C8,C10,C11,C12,C13,C14,C15,C16,C17")
    End With
    Set rt = Worksheets("payment").Range("A" & Rows.Count - 3) _
    .End(xlUp).Offset(1, 0)
    rs.Copy
    rt.PasteSpecial Paste:=xlPasteValues, Transpose:=True
    rt.Offset(1, 0).EntireRow.Insert 'Add this line
    Application.CutCopyMode = False
    
'************end process********************
ll_exit:
    On Error Resume Next
    On Error GoTo 0
    Exit Sub
ll_error:
    MsgBox "Error Number " & Err.Number & " InsertVatSale" & vbCrLf & _
    "Description " & Err.Description
    Resume ll_exit
End Sub

[pepper_dog]

ได้แล้วครับผม
ขอบคุณมากๆนะครับ