Я использую следующий код VBA, установленный на стандартном модуле, для подсчета ячеек с указанным c цветом текста:
Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1
If rng.Font.Color = pRange2.Font.Color Then
CountColour = CountColour + 1
End If
Next
End Function
Вот как я вызываю функцию:
=CountColour(A1:A100;B1)
Раньше он отлично работал в Office 2016. Однако в Office 360 он больше не работает.
Исходя из аналогичных сообщений, здесь, на SO, я уже пытался сделать полная перестройка цепочки зависимостей , и я проверил, есть ли модуль с тем же именем, что и у функции .
Пока ничего не работает. Кто-нибудь может мне помочь разобраться в этом?