К примеру прописал пользовательскую функцию CountCellsByColor в ячейке B10, при сохранении через надстройку PLEX Сохранить как файлы с преобразованием в значения пользовательскую функцию пропускает и выдает в ячейке #ИМЯ?. А интегрированная функция CountByCellColor в ячейке В9 преобразуется нормально. В чем ошибка написания мной функции? Эти две функции привел как пример т.к. остальные прописанные функции так же не преобразуются значения.
| Код |
|---|
Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long
Dim indRefColor As Long
Dim cellCurrent As Range
Dim cntRes As Long
Application.Volatile cntRes = 0
indRefColor = cellRefColor.Cells(1, 1).Interior.Color
For Each cellCurrent In rData
If indRefColor = cellCurrent.Interior.Color Then cntRes = cntRes + 1
Next cellCurrent
CountCellsByColor = cntRes
End Function
|
