Здравствуйте, помогите с пользовательской функцией, не работает автоматическое вычисление. Заранее благодарен!
Вот моя функция:
Вот моя функция:
Код |
---|
Function CountCcolor(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 End If Next datax End Function |