Macro Tính tổng của nhiều sheet ! (1 người xem)

[toanhue24]

Kính chào quý anh chị !

Em biết có trong diễn dàn mình có nhiều cao thủ về VBA, hiện nay em có vướng mắc rất mong được các pro giúp cho, đó là em có 1 file excel (em sẽ gởi kèm theo) trong đó có 10 sheet có dữ liệu nay em muốn tính tổng của các sheet đó vào sheet tổng hợp. Em muốn trong sheet tổng hợp là cộng của các ô trong các sheet lại với nhau. Ví dụ: như A7( sheet tổng hợp ) = A7(sheet 1)+A7(sheet 2)+...+A7(sheet 10)
em rất mong mong quý anh chị giúp cho! em cảm ơn anh chị trước !

 

[phihndhsp]

Kính chào quý anh chị !

Em biết có trong diễn dàn mình có nhiều cao thủ về VBA, hiện nay em có vướng mắc rất mong được các pro giúp cho, đó là em có 1 file excel (em sẽ gởi kèm theo) trong đó có 10 sheet có dữ liệu nay em muốn tính tổng của các sheet đó vào sheet tổng hợp. Em muốn trong sheet tổng hợp là cộng của các ô trong các sheet lại với nhau. Ví dụ: như A7( sheet tổng hợp ) = A7(sheet 1)+A7(sheet 2)+...+A7(sheet 10)
em rất mong mong quý anh chị giúp cho! em cảm ơn anh chị trước !

thử xem công thức này xem sao
D11=SUM(xaphuphong9:xaphuphong1!D11)

 

[Ba Tê]

Kính chào quý anh chị !

Em biết có trong diễn dàn mình có nhiều cao thủ về VBA, hiện nay em có vướng mắc rất mong được các pro giúp cho, đó là em có 1 file excel (em sẽ gởi kèm theo) trong đó có 10 sheet có dữ liệu nay em muốn tính tổng của các sheet đó vào sheet tổng hợp. Em muốn trong sheet tổng hợp là cộng của các ô trong các sheet lại với nhau. Ví dụ: như A7( sheet tổng hợp ) = A7(sheet 1)+A7(sheet 2)+...+A7(sheet 10)
em rất mong mong quý anh chị giúp cho! em cảm ơn anh chị trước !

Dữ liệu của bạn đồng nhất số dòng, số cột, tiêu để... nên rất dễ cho tổng hợp.
Trong sheet "tonghop" của bạn có 1 Private Sub Worksheet_Activate()
Bỏ nó đi thay bằng cái này:

Private Sub Worksheet_Activate()
Dim Ws As Worksheet, sArr(), dArr(1 To 39, 1 To 15)
Dim I As Long, J As Long
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Tonghop" Then
        sArr = Ws.Range("D11:R49").Value
        For I = 1 To 39
            For J = 1 To 15
                dArr(I, J) = dArr(I, J) + sArr(I, J)
            Next J
        Next I
    End If
Next Ws
Sheets("Toghop").Range("D11:R49") = dArr
End Sub

- Bạn thay cái chữ màu đỏ bên trên thành chữ gì đó thuần Việt một chút cho dễ thân thiện.
- File bạn có Virus, nằm trong các sheet bị ẩn tên "1 đống số 0".

 

[toanhue24]

Dữ liệu của bạn đồng nhất số dòng, số cột, tiêu để... nên rất dễ cho tổng hợp.
Trong sheet "tonghop" của bạn có 1 Private Sub Worksheet_Activate()
Bỏ nó đi thay bằng cái này:

Private Sub Worksheet_Activate()
Dim Ws As Worksheet, sArr(), dArr(1 To 39, 1 To 15)
Dim I As Long, J As Long
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Tonghop" Then
        sArr = Ws.Range("D11:R49").Value
        For I = 1 To 39
            For J = 1 To 15
                dArr(I, J) = dArr(I, J) + sArr(I, J)
            Next J
        Next I
    End If
Next Ws
Sheets("Toghop").Range("D11:R49") = dArr
End Sub

- Bạn thay cái chữ màu đỏ bên trên thành chữ gì đó thuần Việt một chút cho dễ thân thiện.
- File bạn có Virus, nằm trong các sheet bị ẩn tên "1 đống số 0".

Trước hết, em xin cảm ơn bác Ba Tê nhiều về sự nhiệt tình của bác ! Nhưng không biết sao khi em chạy macro nó báo lỗi ở dòng này anh à : Sheets("Toghop").Range("D11:R49") = dArr
Anh xem lại em với được không anh ?
Với anh Ba Tê ơi, sao em kiểm tra không thấy sheet nào ẩn hết hả anh?
Lần nữa em xin cảm ơn anh và chúc anh nhiều sức khỏe !

 

[toanhue24]

thử xem công thức này xem sao
D11=SUM(xaphuphong9:xaphuphong1!D11)

Công thức này em cũng biết,Nhưng vì em tổng hợp nhiều file loại như thế này nên em cần cái macro anh à? em xin cảm ơn anh và chúc anh nhiều sức khỏe !

 

[Ba Tê]

Trước hết, em xin cảm ơn bác Ba Tê nhiều về sự nhiệt tình của bác ! Nhưng không biết sao khi em chạy macro nó báo lỗi ở dòng này anh à : Sheets("Toghop").Range("D11:R49") = dArr
Anh xem lại em với được không anh ?
Với anh Ba Tê ơi, sao em kiểm tra không thấy sheet nào ẩn hết hả anh?
Lần nữa em xin cảm ơn anh và chúc anh nhiều sức khỏe !

Nó là vầy:
Sheets("Toghop").Range("D11:R49") = dArr
Khong có sheet nào tên "Toghop", sửa thành "Tonghop" là xong.
Lý do: không biết sao GPE hay mạng lúc này "oánh" chữ nó cứ im ru, sau vài giây mới hiện ra 1 loạt những gì mình đã "oánh", "không phải tại em thì cũng phải tại anh".
Còn mấy sheets tên 00000000000 hay 10000000 thì xem lại trong file này, nó là của ai?

 

[toanhue24]

Nó là vầy:
Sheets("Toghop").Range("D11:R49") = dArr
Khong có sheet nào tên "Toghop", sửa thành "Tonghop" là xong.
Lý do: không biết sao GPE hay mạng lúc này "oánh" chữ nó cứ im ru, sau vài giây mới hiện ra 1 loạt những gì mình đã "oánh", "không phải tại em thì cũng phải tại anh".
Còn mấy sheets tên 00000000000 hay 10000000 thì xem lại trong file này, nó là của ai?

em cảm ơn anh rất nhiều nhé ! anh đã giãi quyết cho em thắc mắc mấy hôm nay em suy nghĩ. Chúc anh sức khỏe để còn giúp đở cho nhiều thành viên diễn đàn.
à, anh cho em hỏi thêm làm sao để mình hiện các sheets 00000000000 hay 10000000 ?

 

[ttvh]

"không phải tại em thì cũng phải tại anh".
Còn mấy sheets tên 00000000000 hay 10000000 thì xem lại trong file này, nó là của ai?[/QUOTE]

Nó là của Anh Google Sheets ồi