Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA tính tổng các số theo màu sắc.

Tình huống:

Bạn đã cho hai mười hai người vay tiền. Một số người đã trả lại nó (màu đen) và một số vẫn nợ bạn (màu đỏ). Bạn muốn biết bạn vẫn nhận được bao nhiêu tiền.

Sum by Color in Excel VBA

  1. Đầu tiên, chúng ta khai báo hai biến kiểu Integer. Một có tên là Nhận và một có tên là i. Chúng ta khởi tạo biến toReceive với giá trị 0.

Dim toReceive As Integer, i As

Integer

toReceive = 0
  1. Thứ hai, chúng ta bắt đầu một vòng lặp For Next.

For i = 1 To 12
  1. Bây giờ chúng ta kiểm tra từng số và chỉ khi màu của số là đỏ, chúng ta mới thêm số đó vào Nhận.

If Cells(i, 1).Font.Color = vbRed Then

toReceive = toReceive + Cells(i, 1).Value

End If
  1. Đừng quên đóng vòng lặp.

Next i
  1. Cuối cùng, chúng tôi hiển thị số tiền vẫn nhận được. Chúng tôi sử dụng toán tử & để nối (nối) hai chuỗi. Mặc dù toReceive không phải là một chuỗi nhưng nó hoạt động ở đây.

MsgBox "Still to receive " & toReceive & " dollars"
  1. Đặt macro của bạn vào một nút lệnh và kiểm tra nó.

Kết quả:

Sum by Color Result