Емілі запитує:
Будь ласка, чи можете ви порадити формулярне рішення для підрахунку кількості клітинок, які мають певний колір зворотного зв’язку (тобто ці клітинки містять деякі дані, однак колір є тим, що важливо для їх підрахунку).
Логічно, я вважаю, що це повинно відповідати стандартній формулі, тобто
CountIF(A01:A55,"backgroundcolour=red")Я вважаю, що червоний колір слід ідентифікувати цифрою 3 (відповідно до файлу довідки)
Мені потрібно знати, як кодувати колір фонової комірки, тобто colorfill ?, backgroundcolour ?, interior.color?… ???
Емілі - якби це було так просто. Вам потрібно мати визначену користувачем функцію у VBA. Нижче наведено код функції. Вам потрібно ввести це в новий модуль коду в книзі.
Після введення коду ви можете використовувати цю формулу:
=CountColor(A1:A99,D2)
Де D2 має фоновий формат, який ви хочете порахувати.
Ось код:
Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll In Rng If Cll.Interior.Color = Clr Then CountColor = CountColor + 1 End If Next Cll End Function
