[Hỏi]-Đếm tổng ô có màu trong dãy (1 người xem)

[johnny nguyen]

Dear all.
Em có file đính kèm, muốn lập công thức để đếm có bao nhiêu ô có màu vàng trong 1 dãy, bác nào biết xin hãy xem file đính kèm và hướng dẫn giúp em. em xin cảm ơn nhiều.

 

[johnny nguyen]

à em xin nói thêm xíu ạ, em ko biết nhiều về Excel nên ko hiểu VBA hay Marco là gì đâu ạ, nếu có dùng đến mong các bác hướng dẫn kỹ thêm tý ạ. em cảm ơn.

 

[SA_DQ]

Hãy tìm với từ khóa "56 sắc cầu vòng" trong diễn đàn

Nếu vẫn chưa thông sẽ có người giúp bạn tiếp
(Đó là nói về Ẽxcel 2003; còn E2007 hình như có thêm tính toán được trên các ô màu)

Chúc tìm hiểu nhiều điều thú vị & hữu ích màu trong Excel!

 

[phan ngoc lan]

ko ai biết à???????????????????????????????????????????help me!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1

Mình viết bằng VBA cho bạn nhớ Enable marco nhé!
Ấn ALt + F11 để xem hàm

 

[johnny nguyen]

Mình viết bằng VBA cho bạn nhớ Enable marco nhé!
Ấn ALt + F11 để xem hàm

Hic bạn viết mà ko hướng dẫn mình sao mình biết đc. với lại cái này fill thêm 1 ô vàng nữa sao nó ko tự động cập nhật thành số 5 nhỉ?

 

[phan ngoc lan]

Hic bạn viết mà ko hướng dẫn mình sao mình biết đc. với lại cái này fill thêm 1 ô vàng nữa sao nó ko tự động cập nhật thành số 5 nhỉ?

Trong VBA mình có ghi chú rồi thi còn nếu công thức ko cập nhật thì bạn phải chọn tính toán tự động Và nhớ Enable Marco nhé! chúc thành công

 

[ndu96081631]

Trong VBA mình có ghi chú rồi thi còn nếu công thức ko cập nhật thì bạn phải chọn tính toán tự động Và nhớ Enable Marco nhé! chúc thành công

Vì các động tác format cell không được xem là 1 sự kiện change nên trong code của bạn phải thêm dòng Application.Volatile vào đầu code thì nó mới cập nhật chứ (khi cần tính toán lại ta bấm F9 để cập nhật kết quả)
Ngoài ra, hàm đếm màu nên viết tổng quát chút, chẳng hạn thế này:
Function CountColor(ByVal SrcRng As Range, ByVal CriteriaColor As Range, ByVal bType As Boolean) As Double
Trong đó:
- SrcRng là vùng dữ liệu... Nếu có thể được thì viết ở mức cho phép vùng không liên tục
- CriteriaColor là màu điều kiện (để so sánh)
- bType cho phép chọn đếm theo màu nền hay màu font
vân vân... Đại khái thế

 

[phan ngoc lan]

Vì các động tác format cell không được xem là 1 sự kiện change nên trong code của bạn phải thêm dòng Application.Volatile vào đầu code thì nó mới cập nhật chứ (khi cần tính toán lại ta bấm F9 để cập nhật kết quả)
Ngoài ra, hàm đếm màu nên viết tổng quát chút, chẳng hạn thế này:
Function CountColor(ByVal SrcRng As Range, ByVal CriteriaColor As Range, ByVal bType As Boolean) As Double
Trong đó:
- SrcRng là vùng dữ liệu... Nếu có thể được thì viết ở mức cho phép vùng không liên tục
- CriteriaColor là màu điều kiện (để so sánh)
- bType cho phép chọn đếm theo màu nền hay màu font
vân vân... Đại khái thế

Cảm ơn thầy trong phần nầy em cũng chưa sâu lắm

 

[phan ngoc lan]

Mình đã sửa lại rồi bạn xem thử có được không?
Đã xoá file đính kèm