Tính tổng từng sheet rổi cộng tổng các sheet

[Thien]

Chào cả nhà

Mình có bài toán này đây:
- Có 13 Sheet (Số thứ tự các sheet không liên tục hoặc tên mỗi sheet khác nhau)
- Sheet 14 là sheet tổng được nối lại từ 13 sheet kia & có tên là Master.
- Tính tổng tại các cột M800,N800,O800 của từng sheet (từ sheet 1 đến sheet 13)
- Tại các cột M801,N801,O801 của Sheet Master sẽ được tính tổng tại các cột M800,N800,O800 của từng sheet kia.

Hiện tại mình làm thủ công: Vào từng sheet tính tổng các cột M800,N800,O800. Rồi vào sheet Master tại các cột M801,N801,O801 được đặt công thức sum(Sheet1:sheet13!M800) , sum(Sheet1:sheet13!N800) & sum(Sheet1:sheet13!o800). Nhưng không cho ra kết quả (báo lỗi #NAME?).

Mình muốn dùng VBA nhưng không biết ứng dụng & cải tiến hàm này cho phù hợp với yêu cầu của bái toán:

Function Sumall1(Cel As Range)
Dim wSht As Worksheet
Dim Diachi
Dim Tong As Long, i As Integer
Tong = 0
Diachi = Cel.Address
Application.Volatile True
For i = 2 To Sheets.Count
Tong = Tong + Sheets(i).Range(Diachi).Value
Next
Sumall1 = Tong
End Function

Các bạn có code nào hay hơn & giải được đề này không ?

Thân chào cả nhà.

 

[thanhtrg]

Chào cả nhà

Mình có bài toán này đây:
- Có 13 Sheet (Số thứ tự các sheet không liên tục hoặc tên mỗi sheet khác nhau)
- Sheet 14 là sheet tổng được nối lại từ 13 sheet kia & có tên là Master.
- Tính tổng tại các cột M800,N800,O800 của từng sheet (từ sheet 1 đến sheet 13)
- Tại các cột M801,N801,O801 của Sheet Master sẽ được tính tổng tại các cột M800,N800,O800 của từng sheet kia.

Hiện tại mình làm thủ công: Vào từng sheet tính tổng các cột M800,N800,O800. Rồi vào sheet Master tại các cột M801,N801,O801 được đặt công thức sum(Sheet1:sheet13!M800) , sum(Sheet1:sheet13!N800) & sum(Sheet1:sheet13!o800). Nhưng không cho ra kết quả (báo lỗi #NAME?).

Mình muốn dùng VBA nhưng không biết ứng dụng & cải tiến hàm này cho phù hợp với yêu cầu của bái toán:

Function Sumall1(Cel As Range)
Dim wSht As Worksheet
Dim Diachi
Dim Tong As Long, i As Integer
Tong = 0
Diachi = Cel.Address
Application.Volatile True
For i = 2 To Sheets.Count
Tong = Tong + Sheets(i).Range(Diachi).Value
Next
Sumall1 = Tong
End Function

Các bạn có code nào hay hơn & giải được đề này không ?

Thân chào cả nhà.

Với bài toán này bạn không cần phải dùng hàm, name hay VBA gì cả cho tốn điện, chỉ cần làm như sau
1. Chọn ô M800 của sheet đầu tiên trong số 13 sheets (ví dụ sheet!Con cò)
2. Nhấn giữ Shift và click chuột vào sheet thứ 13 (ví dụ sheet!tàng) (nếu 13 sheets nằm liền nhau) hoặc nhấn Ctrl và click để chọn hết 12 sheets còn lại (nếu các sheets không liền kề nhau) .
3. Nhấp vào biểu tượng Autosum để tính tổng cho cột M (hoặc có thể dùng công thức sum(…)). Enter . Kéo qua phải để tính cho cột N và O
4. Chọn ô M801 của sheet!Master, nhấp vào biểu tượng Autosum, click chuột vào sheet đầu tiên (sheet!Con cò) . Nhấn giữ Shift rồi click vào sheet cuối cùng (sheet!tàng), xong click vào ô M800 . Enter, kéo qua phải sẽ cho kết quả của ô N801 và O801 . Lưu ý 13 sheets phải nằm theo thứ tự từ trái qua phải, từ sheet!Con cò đến sheet!tàng

 

[nguyenphuongvandon]

Em muốn tính tổng các ô không bôi màu vào file tổng hợp các bác giúp em với. để khi kích vào chữ tổng hợp trên file tổng hợp thì số liệu ở các file A111; A112; A113... tổng về file tổng hợ ạ. Cảm ơn các bác

 

[snow25]

Em muốn tính tổng các ô không bôi màu vào file tổng hợp các bác giúp em với. để khi kích vào chữ tổng hợp trên file tổng hợp thì số liệu ở các file A111; A112; A113... tổng về file tổng hợ ạ. Cảm ơn các bác

bạn muốn tổng hợp thế nào nhỉ các file có cùng cấu trúc dữ liệu không.

 

[nguyenphuongvandon]

bạn muốn tổng hợp thế nào nhỉ các file có cùng cấu trúc dữ liệu không.

bạn muốn tổng hợp thế nào nhỉ các file có cùng cấu trúc dữ liệu không.

Dạ các file có cùng cấu trúc anh ạ. Em muốn khi kích chuột vào nút tổng hợp trên file tổng hợp thì số liệu các ô ở các file kia chạy về các ô trong file tổng hợp ạ

 

[snow25]

Dạ các file có cùng cấu trúc anh ạ. Em muốn khi kích chuột vào nút tổng hợp trên file tổng hợp thì số liệu các ô ở các file kia chạy về các ô trong file tổng hợp ạ

đây bạn xem nhé chọn các fiel cần tổng hợp vào

 

[nguyenphuongvandon]

đây bạn xem nhé chọn các fiel cần tổng hợp vào

đây bạn xem nhé chọn các fiel cần tổng hợp vào

Dạ em cảm ơn nhưng em muốn tất cả các số liệu ở các ô không có màu đền hiển thị trên file tổng hợp bác ạ. Bác giúp em với nhé

 

[snow25]

Dạ em cảm ơn nhưng em muốn tất cả các số liệu ở các ô không có màu đền hiển thị trên file tổng hợp bác ạ. Bác giúp em với nhé

có nghĩa là vẫn giữ lại các giá trị của những ô không có màu chứ gì.nhưng không giữ lại được công thức nhé bạn

Bài đã được tự động gộp: 12/11/18

Dạ em cảm ơn nhưng em muốn tất cả các số liệu ở các ô không có màu đền hiển thị trên file tổng hợp bác ạ. Bác giúp em với nhé

 

[nguyenphuongvandon]

có nghĩa là vẫn giữ lại các giá trị của những ô không có màu chứ gì.nhưng không giữ lại được công thức nhé bạn

Bài đã được tự động gộp: 12/11/18

Em muốn tất cả số liệu ở ô nào khi chạy tổng hợp thì tổng hợp về ô đó ở file tổng hợp bác ạ. Bác xem lại hộ em với nhé em đính kèm lại ạ

 

[snow25]

Em muốn tất cả số liệu ở ô nào khi chạy tổng hợp thì tổng hợp về ô đó ở file tổng hợp bác ạ. Bác xem lại hộ em với nhé em đính kèm lại ạ

đúng mà bạn tổng hợp các file kia về 1 file tổng hợp mà bạn nói xem cái code mình sai dữ liệu chỗ nào mình sửa

Bài đã được tự động gộp: 12/11/18

Em muốn tất cả số liệu ở ô nào khi chạy tổng hợp thì tổng hợp về ô đó ở file tổng hợp bác ạ. Bác xem lại hộ em với nhé em đính kèm lại ạ

vậy sao lúc đầu bạn bảo là tổng hợp các ô màu vàng kia chứ

 

[nguyenphuongvandon]

đúng mà bạn tổng hợp các file kia về 1 file tổng hợp mà bạn nói xem cái code mình sai dữ liệu chỗ nào mình sửa

khi bấm tổng hợp thì số liệu 2 file kia không thấy chạy về file tổng hợp bác ạ. bác xem lại hộ em với em muốn tổng hợp số liệu từ F6 đến O59 về bảng tổng hợp ạ

Bài đã được tự động gộp: 12/11/18

đúng mà bạn tổng hợp các file kia về 1 file tổng hợp mà bạn nói xem cái code mình sai dữ liệu chỗ nào mình sửa

Bài đã được tự động gộp: 12/11/18

vậy sao lúc đầu bạn bảo là tổng hợp các ô màu vàng kia chứ

có lẽ e hiểu nhầm bác ah. Bác giúp lại em với nhé em gửi lại tệp này

 

[snow25]

Em muốn tất cả số liệu ở ô nào khi chạy tổng hợp thì tổng hợp về ô đó ở file tổng hợp bác ạ. Bác xem lại hộ em với nhé em đính kèm lại ạ

d

khi bấm tổng hợp thì số liệu 2 file kia không thấy chạy về file tổng hợp bác ạ. bác xem lại hộ em với em muốn tổng hợp số liệu từ F6 đến O59 về bảng tổng hợp ạ

Bài đã được tự động gộp: 12/11/18

có lẽ e hiểu nhầm bác ah. Bác giúp lại em với nhé em gửi lại tệp này

đây bạn xem lại nhé

 

[nguyenphuongvandon]

d

đây bạn xem lại nhé

Vâng cảm ơn bác đúng í em rồi bác ah