Snasui Excel Forum

Sub Total()
Sheets("Database").Range("A1:G5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Database").Range( _
"AE1:AG2"), CopyToRange:=Sheets("Summary").Range("A1:G1"), Unique:=False

Sheets("Summary").Range("F1:F5000") = Aplication.Sum

Range("I6").Select

End Sub

คือว่า code vba ไม่สามารถทำงานได้คะ รบกวนด้วยนะคะ ขอบคุณคะ

ลองบันทึก Macro เกี่ยวกับการ Sum แล้วดูว่า Code ที่ได้มาเป็นแบบใด ลองปรับใช้ดู หากยังไม่ได้แนบ Code ล่าสุดที่ได้ลองปรับมาถามกันต่อครับ