Hỗ trợ sửa lỗi giúp hàm đếm và tính tổng bằng màu sắc

[dinhduy]

Em sưu tầm hàm đếm và tính tổng bằng màu sắc - CA ĐÊM (được viết bằng VBA, đính kèm File ở bên dưới). Kết quả thì cho ra đúng nhưng có 1 điểm khi thay đổi gì (thêm hoặc bớt màu cần tính) thì công thức không thay đổi kết quả theo mà cần phải nhấn F9 mới chạy được. Rất mong mọi người xem giúp, có cách nào khắc phục được tình trạng trên không ạ. Em cám ơn rất nhiều !

 

[Maika8008]

Em sưu tầm hàm đếm và tính tổng bằng màu sắc - CA ĐÊM (được viết bằng VBA, đính kèm File ở bên dưới). Kết quả thì cho ra đúng nhưng có 1 điểm khi thay đổi gì (thêm hoặc bớt màu cần tính) thì công thức không thay đổi kết quả theo mà cần phải nhấn F9 mới chạy được. Rất mong mọi người xem giúp, có cách nào khắc phục được tình trạng trên không ạ. Em cám ơn rất nhiều !

Đây là 1 cách: dùng sự kiện Worksheet_Change cho vùng thay đổi màu của bạn

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range(Vùng thay đổi màu)) Is Nothing Then
    Call Hàm đếm màu của bạn
  End If
End Sub