Hoàng Nhật Phương
Thành viên gắn bó



- Tham gia
- 5/11/15
- Bài viết
- 1,895
- Được thích
- 1,219
Xem thử trong file, sử dụng cột phụ:Xin chào các bạn,
nhờ các bạn giúp đỡ tôi trường hợp trong tập tin gửi kèm với ạ.
Tính tổng tuần?Xin chào các bạn,
nhờ các bạn giúp đỡ tôi trường hợp trong tập tin gửi kèm với ạ.
Công thức tại C17:Xin chào các bạn,
nhờ các bạn giúp đỡ tôi trường hợp trong tập tin gửi kèm với ạ.
=SUMIFS($C$10:$AF$10,C9:AF9,">="&C9- WEEKDAY(C9) +1,C9:AF9,"<"&C9- WEEKDAY(C9) +8)
P11=SUM(P$5Xin chào các bạn,
Nhờ các bạn giúp đỡ trường hợp tính tổng trong file đính kèm với ạ.
P11=SUM(P$510)-SUMIF($E$5:$E10,$E11,P$5
10)*2
copy cho các ô còn laị
Xin chào các bạn,
Nhờ các bạn giúp đỡ trường hợp tính tổng trong file đính kèm với ạ.
=SUBTOTAL(109,P$6:P10)-SUMIF($E$6:$E10,$E11,P$6:P10)
Dựa vào 3 ký tự cuối của "tổng cộng:"Cảm ơn HieuCD đã nhiều lần hỗ trợ,
Cách rất đơn giản và dễ dùng.
----
Nhân đây bạn có thể giúp OT
Sử dụng vba để điền các hàm sum theo file kèm OT gửi được không ạ, chỉ là để tham khảo thêm sau này khi cần để áp dụng cho vấn đề tương tự ạ.
Sub GPE()
Dim i As Long, fRow As Long, eRow As Long
Const sCol = 12
eRow = Range("E" & Rows.Count).End(xlUp).Row
If eRow < 6 Then Exit Sub
fRow = 5
For i = 6 To eRow
If InStr(1, Cells(i, "E").Value, "ng:") = 8 Then
Range("P" & i).FormulaR1C1 = "=SUM(R" & fRow & "C:R" & i - 1 & "C)"
Range("P" & i).AutoFill Destination:=Range("P" & i).Resize(, sCol), Type:=xlFillDefault
fRow = i + 1
End If
Next i
End Sub
Đọc bài chị chưa hiểu chị muốn gì luônXin chào các bạn,
Nhờ các bạn giúp đỡ OT tính tổng theo điều kiện trong bảng 1 dựa vào số liệu cho sẵn ở Bảng 2 với ạ.
Chi tiết OT xin phép nêu trong tập tin gửi kèm ạ.
Xin chào huonglien1901,Đọc bài chị chưa hiểu chị muốn gì luôn
Số liệu đang vênh nhau nhiều chưa rõ vì sao?Xin chào các bạn,
Nhờ các bạn giúp đỡ OT tính tổng theo điều kiện trong bảng 1 dựa vào số liệu cho sẵn ở Bảng 2 với ạ.
Chi tiết OT xin phép nêu trong tập tin gửi kèm ạ.
Xin chào Bác SA_DQ,Số liệu đang vênh nhau nhiều chưa rõ vì sao?
Nếu muốn xài công thức thì mình cho rằng dữ liệu bên bảng 1 cần lắp đầy các cột trước cột mã SFBác SA_DQ, ,bài này con muốn tham khảo cách làm bằng công thức Bác ạ, không sử dụng vba ạ.
Xin chào các bạn,
Nhờ các bạn giúp đỡ OT tính tổng theo điều kiện trong bảng 1 dựa vào số liệu cho sẵn ở Bảng 2 với ạ.
Chi tiết OT xin phép nêu trong tập tin gửi kèm ạ.
Xin chào ongke0711,Em không ưng dùng Pivot à? Anh nghĩ định dạng này Pivot làm tốt.
Xin chào ongke0711Cái vụ Pivot này làm sao anh xiềng như các anh em trên diễn đàn này. Nhưng chẳng lẽ anh nghĩ sai, đơn giản hoá bài toán của em?
Em chỉ cần nhóm các MaSP theo 2 điều kiện: cùng [Ngày] và cùng [MaSP] đúng không?
View attachment 223657
Dạ,giả sử cột E hoặc E ở bảng 1 được lắp đầy các ô như bảng 2 thì công thức như thế nào vậy Bác.Nếu muốn xài công thức thì mình cho rằng dữ liệu bên bảng 1 cần lắp đầy các cột trước cột mã SF
Thế mà "cô kia" có lúc nói là các câu hỏi như nhau nhưng là những người khác nhau ngồi cùng bàn, cùng làm bài do cô giáo ra đề.Trên diễn đàn có "cô kia" cổ tạo 6 7 tài khoản Excel, chia ra để hỏi, để nhận được câu trả lời. Tôi cũng mông cô kia tải Excel Tiếng Việt về sử dụng.
Thì dịch ngôn ngữ VBA sang tiếng Việt thì sẽ thấy cách làm với hàm DSUM() mà. Vì là hàm CSDL nên nó iêu cầu dữ liệu phải là CSDLgiả sử cột E hoặc E ở bảng 1 được lắp đầy các ô như bảng 2 thì công thức như thế nào vậy Bác. Nhờ Bác chỉ dẫn thêm một cách để con tham khảo ạ.
Sub TinhSanLuongTheoCa()
Dim WF As Object, CSDL As Range, Cls As Range
Dim Rws As Long, Ngay As Date
Dim Ca As String, MaSF As String
Set WF = Application.WorksheetFunction
[S1].Value = [A4].Value: [T1].Value = [P4].Value
[U1].Value = [K4].Value
Rws = [Q65500].End(xlUp).Row
Set CSDL = Range("K4:Q" & Rws)
For Each Cls In Range([D6], [D65500].End(xlUp))
MaSF = Cls.Value
If MaSF <> "" Then
If Cls.Offset(, -3).Value <> "" Then Ngay = Cls.Offset(, -3).Value
If Cls.Offset(, -2).Value <> "" Then Ca = Cls.Offset(, -2).Value
[S2].Value = Ngay: [T2].Value = Ca
[U2].Value = MaSF
Cells(Cls.Row, "G").Value = WF.DSum(CSDL, [L4], [S1:U2])
End If
Next Cls
End Sub
Theo tôi trước hết phải hỏi đúng ý chưa.Thì dịch ngôn ngữ VBA sang tiếng Việt thì sẽ thấy cách làm với hàm DSUM() mà.