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