Giúp em thống kê giá trị theo định dạng đổ màu nền của ô trong excel (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

thanh_trung_hp_03

Thành viên chính thức
Tham gia
8/3/08
Bài viết
74
Được thích
7
Em có yêu cầu như ảnh đính kèm ạ.
Các bác giúp em với
 

File đính kèm

  • Capture.JPG
    Capture.JPG
    168.5 KB · Đọc: 28
Một cách luồn lách, lưu file dưới địng dạng xlsb.
Xem công thức vơi name để thực hiện.
Nhầm trên điện thoại không gán công thức được..
 

File đính kèm

Các bác giúp em thêm đi ạ
Bài đã được tự động gộp:


Vâng, em vẫn chưa dùng được cách của bác ạ
Tốt nhất dùng SUMIF hoặc SUMIFS theo điều kiên tô màu đó - vì khi tô màu phải có lý do tô theo cái gì (?) còn tô ngẫu nhiên thì là cảm hứng rồi không nói ở đây

Nếu tô cảm hứng thì buộc phải macro: macro X4 như trên hoặc là VBA
 
Tốt nhất dùng SUMIF hoặc SUMIFS theo điều kiên tô màu đó - vì khi tô màu phải có lý do tô theo cái gì (?) còn tô ngẫu nhiên thì là cảm hứng rồi không nói ở đây

Nếu tô cảm hứng thì buộc phải macro: macro X4 như trên hoặc là VBA
Tô màu bằng tay mà bác. Vì thống kê người nợ và người trả rồi. Công việc là bán thẻ điện thoại nên phải thống kê lại vậy ạ
Bài đã được tự động gộp:

Tại sao không nhập tay số tiền đã trả mà lại tô màu?
Em nhập tay số tiền và và tô màu cũng bằng tay luôn ạ.
Hay có 1 cách nào khác để quản lý dễ hơn thì bác chỉ em với ạ
 
Thì không tô màu nữa; Thay vì vậy, bạn thêm 1 cột nữa & đánh dấu chéo vô cho những người trả tiền rồi
Sau đó xài SUMIF() là xong ngay!
Tô màu có vẻ đẹp đó, nhưng không hiệu quả lắm đâu!
 
Mình lang thang trên Internet thấy tây nó viết cái Hàm sau chủ thớt coi có ứng dụng được gì ko nha
Mã:
Function SumCellsByColor(rData As Range, cellRefColor As Range)
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim sumRes
 
    Application.Volatile
    sumRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Interior.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Interior.Color Then
            sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
        End If
    Next cellCurrent
 
    SumCellsByColor = sumRes
End Function
sum-cells-by-color.png
 
Web KT

Bài viết mới nhất

Back
Top Bottom