Nếu tách ra được từng hạng mục như vậy cho từng tên, thì tại Sheet "data" Sum luôn cho Nguyen Van A tại cell E19 và G19 luôn cho rồi, hơi đâu mà tính toán cho mệt hả trời? Còn không thì mỗi hạng mục là một cái tên của ông A này mới gọi là CSDL chứ!Các anh chị giúp em với.
Tính tổng theo điều kiện.
Thấy yêu cầu cũng hay hay, không biết mục đích tác giả là gì,Các anh chị giúp em với.
Tính tổng theo điều kiện.
Thấy yêu cầu cũng hay hay, không biết mục đích tác giả là gì,
Nhân tiện hôm roài được bác PTM cho tác dụng của End(), nên thử tập tàh tí xem sao.
Khi tính bạn nhấn nút tính , muốn tính lại thì tạo mới xong hay tính nhé.
Hơi đâu mà làm code cho mệt xác vậy Khoa? Làm công thức còn lẹ hơn đấy, khỏi phải chớp chớp màn hình!
Dùng hàm SUMIF là được, thêm 1 cái name động nữa là xong![/QUOTE
hihhi em biết vậy ạ, đang thử áp dụng cái hàm End() của các sư phụ trên diễn đàn anh ạ, nên em ngồi viết thử ạ.
mà bác ngủ muộn thế. bác ngủ sớm nhé.
Hơi đâu mà làm code cho mệt xác vậy Khoa? Làm công thức còn lẹ hơn đấy, khỏi phải chớp chớp màn hình!
Dùng hàm SUMIF là được, thêm 1 cái name động nữa là xong![/QUOTE
hihhi em biết vậy ạ, đang thử áp dụng cái hàm End() của các sư phụ trên diễn đàn anh ạ, nên em ngồi viết thử ạ.
mà bác ngủ muộn thế. bác ngủ sớm nhé.
Nếu muốn Code thì cho Code, muốn End cho End! Mà làm code phải ngắn gọn tí chứ! Không cần vòng lặp vòng lờ gì đâu mà "tổn hao nguyên khí" kha kha kha
--------------------------------------------------------
P/S: Cái này để học hỏi cho vui, chứ tác giả không muốn sử dụng nó đâu nha! cả trăm người thì "tèo" luôn! Mà chắc gì mình biết hàng nào, cột nào mà copy chứ mà dán chứ! kha kha kha
Function SumSpec(ID As String, SrcRng As Range, Col_Index As Long) As Double
Dim Clls As Range, Temp
With CreateObject("Scripting.Dictionary")
For Each Clls In SrcRng.Resize(, 1)
If Clls <> "" Then Temp = Clls.Value
If Clls <> "" And Not .Exists(Clls.Value) Then
.Add Clls.Value, Clls(, Col_Index).Value
ElseIf Clls(, Col_Index) <> "" Then
.Item(Temp) = Val(.Item(Temp)) + Val(Clls(, Col_Index).Value)
End If
Next
SumSpec = Val(.Item(ID))
End With
End Function
Cụ thế là sao? Ghi chi tiết vào file và gữi lên đây nhé!Nếu dùng hàm sumspec có thể tính chi tiết đến từng ngày và từng chủng loại hàng được không vậy bạn.