tính tổng các sheet bất kỳ (1 người xem)

[ruamap9]

Chào các anh chị trên diễn đàn!
Em đang làm quen với VBA, có một vấn đề mà em vẫn chưa tìm ra cách giải quyết.Nhờ các anh chi trên diễn đàn giúp đỡ về hàm tổng quát hoặc code để tính tống các sheet bất kỳ như file tính tổng đã gửi kèm theo.
Cảm ơn các anh chị!

 

[mhung12005]

Chào các anh chị trên diễn đàn!
Em đang làm quen với VBA, có một vấn đề mà em vẫn chưa tìm ra cách giải quyết.Nhờ các anh chi trên diễn đàn giúp đỡ về hàm tổng quát hoặc code để tính tống các sheet bất kỳ như file tính tổng đã gửi kèm theo.
Cảm ơn các anh chị!

Bạn xem file đính kèm nhé.

 

[Quang_Hải]

Chào các anh chị trên diễn đàn!
Em đang làm quen với VBA, có một vấn đề mà em vẫn chưa tìm ra cách giải quyết.Nhờ các anh chi trên diễn đàn giúp đỡ về hàm tổng quát hoặc code để tính tống các sheet bất kỳ như file tính tổng đã gửi kèm theo.
Cảm ơn các anh chị!

Cú pháp Tong() tại 1 ô bất kỳ

Function Tong() As Double
Dim tam, item, kq, sh
For Each sh In Worksheets
   If sh.Name <> "Ket qua" Then
      tam = sh.Range(sh.[A3], sh.[A65536].End(3)).Value
      For Each item In tam
         kq = kq + item
      Next
   End If
Next
Tong = kq
End Function

 

[Hai Lúa Miền Tây]

Dùng hàm Sum('TenSheetDauTien:TenSheetCuoi'!VungCanTinhTong)

Ví dụ trong file dữ liệu của bạn thì mình gõ tại sheet kết quả: =SUM('9:Sheet4'!A1:A1000)