Đôi lúc chúng ta cần tính tổng theo từng màu một của các ô
cell! Nhưng bạn không biết làm cách nào thì hôm nay mình xin hướng dẫn cách bạn
cách tính tổng theo từng màu nhé!
Ví dụ ta có một bảng excel và chúng ta sẽ tính tổng theo
tưng màu
Bước 1: Các bạn sử dụng VBA bằng cách nhấn tổ hợp phím ALT +
F11, cửa số VBA sẽ hiện ra các bạn chọn Insert chọn Module
Bước 2: các bạn copy
đoạn code để tính tổng theo hàm Tongmau ( bạn có thể đổi thên hàm sao cho dễ nhớ
là được nhé)
Function Tongmau(cellColor As Range, rRange As Range)
Dim tong As Long
Dim mau_sac As Integer
mau_sac = cellColor.Interior.ColorIndex
For Each c In rRange
If c.Interior.ColorIndex = mau_sac Then
tong = WorksheetFunction.SUM(c, tong)
End If
Next c
Tongmau = tong
End Function
Bước 3: Các bạn kích chọn vào Save như trong hình
Tiếp đến VBA hỏi các bạn có đông ý không thì cứ đồng ý thui
nhé ( chọn Yes đó)
Bước 4: Và bây giờ chúng ta bắt đầu tính tổng màu trong các
ô cell như bình thường bằng hàm Tongmau.
Để tính tổng máu thì chúng ta có công thức như sau
=Tongmau(D4;B4;B8)
Các bạn phải chuyển đổi ô địa chỉ về tuyệt đối và nhấn F4 và
công thức sẽ như sau:
=Tongmau(D4;$B$4:$B$8)
Enter và copy công thức thì các bạn sẽ có kết quả như trong
hình
Chỉ một đoạn code nhỏ thui nhưng các bạn có thể tính được tổng
của màu rùi đó, thật đơn giản phải không nào! Chúc các bạn thành công!
EmoticonEmoticon