xaydung.vig
Thành viên mới
- Tham gia
- 10/7/19
- Bài viết
- 9
- Được thích
- 0
Nhờ các bác giúp e lập hàm tính tổng dữ liệu các sheet sắp xếp lung tung (file đính kèm) . E xin cảm ơn !
Tính tổng các sheet
- Thread starter xaydung.vig
- Ngày gửi
Thành viên mới
snow25
Thành viên gạo cội
- Tham gia
- 24/7/18
- Bài viết
- 3,488
- Được thích
- 3,513
- Donate (Momo)
- Giới tính
- Nam
Dùng thử hàm này nhé.
Mã:
Function tinhtong(ByVal dk As String, ParamArray mang()) As Double
Dim T, arr, tong As Double, i As Long
For Each T In mang
arr = T.Value
For i = 1 To UBound(arr)
If arr(i, 1) = dk Then
tong = tong + arr(i, 3)
End If
Next i
Next
tinhtong = tong
End Function
Mã:
=tinhtong(B2;Sheet2!$B$2:$D$6;Sheet3!$B$2:$D$6;Sheet4!$B$2:$D$11)
phulien1902
GPE - My love
- Tham gia
- 6/7/13
- Bài viết
- 3,543
- Được thích
- 4,423
Bạn có thể dùng công cụ Consolidate có sẵn trong Excel, chỉ mất 10 giây.
xaydung.vig
Thành viên mới
- Tham gia
- 10/7/19
- Bài viết
- 9
- Được thích
- 0
Cảm ơn các Bác đã giúp đỡ ạ
Lần chỉnh sửa cuối:
xaydung.vig
Thành viên mới
- Tham gia
- 10/7/19
- Bài viết
- 9
- Được thích
- 0
phulien1902
GPE - My love
- Tham gia
- 6/7/13
- Bài viết
- 3,543
- Được thích
- 4,423
Lý do là các ký tự "cam" & "chanh" trong các Sheets của bạn không giống nhau.
Lần chỉnh sửa cuối:
Cái này khỏi cần hàm. Nếu là dữ liệu "tĩnh" thì dùng công cụ của anh @huuthang_bd còn nếu dữ liệu "động" thì dùng Query để tổng hợp lại rồi dùng Pivot là nhanh mà đơn giản mà bạn.
xaydung.vig
Thành viên mới
- Tham gia
- 10/7/19
- Bài viết
- 9
- Được thích
- 0
cảm ơn các bác rất nhiều
truongvu317
Thành viên tích cực
- Tham gia
- 15/11/10
- Bài viết
- 935
- Được thích
- 678
- Giới tính
- Nữ
Như vậy là sao ạ?
Cái tổng nó lấy từng vùng của nhiều sheets chả theo quy luật nào. Có đến 2 chỗ để sai:
1. tham gõ vào không đúng, chỉ cần lệch 1 chút là sai bấy.
2. cái vùng nó bị dời đi thì function đâu biết?
Lúc tôi thử hàm thì ra kết quả đúng vì dữ liệu như vậy. Ai biết ngày mai dữ liệu lệch 1 chút.
"nguy hiểm vô cùng" ở chỗ nếu tôi không biết là nó tính lệch thì tin tức tôi nhận được và lấy ra từ nó sai bấy hết. (giả dụ hàm này đưa kết quả vào một hàm khác để tính tiếp?)
truongvu317
Thành viên tích cực
- Tham gia
- 15/11/10
- Bài viết
- 935
- Được thích
- 678
- Giới tính
- Nữ
Nếu viết thì nên viết theo kiểu hàm sumifs á bác?
Hầu hết các hàm của Excel đều dựa trên giả thiết rằng bảng tính đã tương đối chuẩn, và cách tính toán cũng chuẩn.
Chả hàm nào áp dụng an toàn nổi với trường hợp lung lung.
Ngừoi dùng phải tự biết cấu trúc file thế nào để làm việc.
Trên nguyên tắc, người làm chủ Excel phải biết uyển chuển yêu cầu của mình trước, sau đó mới thiết kế, cuối cùng mới bắt đầu tính toán.
Ở đây, người ta ỷ lại vào sự đa năng của code để bỏ tất cả các công đoạn trên. Đa năng thì rất dễ bị bỏ sót. Vì vậy, nếu dùng code để đáp ứng những yêu cầu phức tạp thì mỗi lần tính cần phải kiểm soát lại xem nó có sơ xuất, bỏ sót cái gì không.
Lần chỉnh sửa cuối:
Thêm vài lệnh
Mã:
Function TinhTong(ByVal dkStr As String, ByVal jCol As Long, ParamArray sArr()) As Double
Dim Rng, Arr(), tong As Double, i As Long, sRow As Long
If Len(dkStr) > 0 Then
dkStr = LCase(Application.Trim(dkStr))
For Each Rng In sArr
Arr = Rng.Value
sRow = UBound(Arr)
For i = 1 To sRow
If LCase(Application.Trim(Arr(i, 1))) = dkStr Then
If IsNumeric(Arr(i, 3)) Then tong = tong + Arr(i, 3)
End If
Next i
Next
TinhTong = tong
End If
End Functiontruongvu317
Thành viên tích cực
- Tham gia
- 15/11/10
- Bài viết
- 935
- Được thích
- 678
- Giới tính
- Nữ
Nghĩa là khi mình giải thì phải hình dung ra những biến tướng khác của bài toán?
Bài viết mới nhất
- Question
- Question
