Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Передача цвета ячеек диапазона в массив
 
Добрый вечер, форумчане!

Третий день бьюсь над задачей, видимо, пора уже сдаться и попросить совета у вас.

Имею в таблице столбец, заполненный цветными ячейками.
Требуется получить численный массив из индексов цветов ячеек выбранного диапазона как результат работы функции. Привязки к диапазону не должно быть, т.е. при инициализации функции в качестве параметра выбирается диапазон, по которому функция будет формировать численный массив из цветовых индексов ячеек (как при нажатии на F9 формируется массив значений выбранных ячеек).

Пробовал такой код (знаю, что ерунда и он неверный):
Код
Function cellColor(targetRange As Range)
    Dim cArr As Variant
    For Each cArr In targetRange
        cArr = targetRange.Interior.ColorIndex
    Next
    cellColor = cArr
End Function
И еще множество его вариантов с переменными для сохранения массива, результатов они не дали, кроме вывода цветового индекса одной выбранной ячейки.

Буду признателен за помощь!
Изменено: johnnyr8891 - 07.12.2015 20:22:30
Страницы: 1
Наверх