Page 1 of 1
formula sum vba
Posted: Wed Jan 18, 2012 4:13 pm
by pepper_dog
รบกวนช่วยเหลือหน่อยครับ
ในหน้าบันทึกรายการผมจะทำการ add ข้อมูลลงใน sheet payment นะครับ
หลังจาก add แล้ว ถ้าผมต้องการ sum ค่าตัวเลขแต่ละ รายการ ต้องใช้คำสั่งอะไรครับ
และถ้ามีการ add เพิ่มใหม่ ก็ให้ทำการลบ sum เก่าออก และทำการ sum ใหม่ นะครับ
เพราะจะมีการทำการ add ข้อมูลหลายครั้ง ภายใน 1 วัน
ผมแนบไฟล์มาด้วยครับ
จึงรบกวนมาเพื่อขอคำแนะนำครับ
ขอบคุณมากครับ
Re: formula sum vba
Posted: Wed Jan 18, 2012 4:28 pm
by snasui
ไม่ทราบว่า Code ที่เขียนไว้แล้วและเป็นปัญหาอยู่ที่ Module ใด ชื่อว่าอะไรครับ จะได้ปรับปรุงต่อไปจากนั้นครับ
Re: formula sum vba
Posted: Wed Jan 18, 2012 4:36 pm
by pepper_dog
อยู่ที่ Private Sub cmdProcess_Click()
addsumpayment 'sum payment sheet
ยังไม่ได้เขียนในส่วนนี้เลยครับ ไปไม่ถูกครับ
ผมแนบไฟล์มาใหม่นะครับ
Re: formula sum vba
Posted: Wed Jan 18, 2012 5:03 pm
by 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
Re: formula sum vba
Posted: Wed Jan 18, 2012 5:20 pm
by pepper_dog
ได้แล้วครับผม
ขอบคุณมากๆนะครับ