Sao hàm CoutByColor của mình ko tự động update (1 người xem)

[hieunhan1]

Các anh xem dùm em với. Em xin cảm ơn mấy anh trước. !!!

 

[ndu96081631]

Các anh xem dùm em với. Em xin cảm ơn mấy anh trước. !!!

Đương nhiên là vậy rồi... vì Excel không xem sự kiện thay đổi màu sắc là 1 sự kiện change
Bạn có thể sửa lại đôi chút, ở đầu code, thay vì là:
Application.Calculation = xlAutomatic (đoạn này chả có tác dụng gì)
Bạn hãy sửa lại thành:
Application.Volatile
Khi ấy, nếu có sự kiện thay đổi màu sắc nào đó, bạn bấm F9 sẽ thấy hàm cập nhật ngay
Ngoài ra tôi nghĩ bạn nên rút gọn lại hàm, theo tôi chỉ cần thế này là đủ:

Function CountByColor(InputRange As Range, ColorRange As Range) As Long
  Dim cl As Range
  Application.Volatile
  For Each cl In InputRange
    If cl.Value <> "" And cl.Font.ColorIndex = ColorRange(1, 1).Font.ColorIndex Then
      CountByColor = CountByColor + 1
    End If
  Next cl
End Function

 

[hieunhan1]

Minh hiểu rồi, cảm ơn mấy anh nha!!!!!

 

[thuongtrq]

ham này hay quá ta nhưng sử dụng làm sao vậy các bác.

From NDU:
Trời... Bạn không biết sử dụng sao lại biết... hay?