Запуск процедуры и изменение цвета ячейки

[ADV_P]

Добрый день!
Помогите дилетанту.
Установлен Excel 2013.

Вводная:
Маленькая процедура, которая по идее должна менять цвет указанной в качестве параметра ячейки.

Sub Set_CollorCell(Cell As Range)
Application.Volatile

With Cell.Interior
.ColorIndex = 14
.Color = 255
End With
End Sub

Вставляю процедуру в ячейку "=Set_CollorCell(А1)"
1. Excel сразу начинает ругаться и не позволяет даже выйти из ячейки. Если "Sub" меняю на "Function" или переобъявляю процедуру без параметра, то все номально.
2. В отладчике пошагово дохожу до строчки ".ColorIndex = 14" и на ней вылетает.
В тоже время подобная функция (с процедурой та же картина) на считывание значения цвета ячейки отрабатывает нормально.

Прошу помощи!

[IgorGO]

а давайте Вы отвлечетесь от рассказа как и какими способами Вы этого добивались и сосредоточитесь на рассказе, что необходимо получить в итоге, чего Вы добиваетесь?

[ADV_P]

Изменить цвет заданной (переданной через параметр) ячейки.

[Serge_Bliznykov]

UDF имеет целый ряд ограничений - https://support.microsoft.com/ru-ru/kb/170787


вот (автоперевод)

Определяемые пользователем функции, вызываемой классом формулу в ячейке листа нельзя изменить среде Microsoft Excel. Это означает, что такая функция не может выполнять следующее:
Добавить, удалить или отформатировать ячейки электронной таблицы.
Измените значения другой ячейки.
Перемещение, переименование, удаление или добавления листов в книге.
Измените параметры среды, такие как расчет экрана или режим представления.
Добавление имен в книге.
Установка свойств или выполнения большинства методов.
Определяемые пользователем функции предназначен для того, чтобы разрешить пользователю создание пользовательской функции, отсутствующие в функциях, которые поставляются с Microsoft Excel. Функции, включенные в Microsoft Excel нельзя изменить среду. Функции можно выполнять вычисление, которое возвращает значение или текст в ячейку, они вводятся в. Любые изменения окружающей среды должны выполняться с помощью Visual Basic подпрограммы.

[ADV_P]

Честно говоря не совсем понимаю какое отношение UDF имеет к моей проблеме. ((
Как то же можно программно поменять цвет заданной ячейки.

[IgorGO]

Изменить цвет заданной (переданной через параметр) ячейки

вот процедура, которая изменит цвет ячейки переданной ей как параметр

Sub CngColor(rg As Range)
  rg.Interior.Color = rg.Interior.Color - 222222
End Sub

а вот процедура, которая изменит цвет ячейки А5 активного листа, используя процедуру изменения цвета ячейки

Sub Start()
  CngColor [a5]
End Sub

[ADV_P]

Эту процедуру мне нужно вызвать в листе Excel и когда я это делаю, Excel ругается, что имя неизвестно. Если меняю на "Function", то Excel принимает, но вылетает на строке присвоения значения.

[Serge_Bliznykov]

Честно говоря не совсем понимаю какое отношение UDF имеет к моей проблеме. ((

то, что Вы записываете в ячейке : "=Set_CollorCell(А1)"
и есть вызов пользовательской функции (user defined function)
она ничего не может сделать.
Сделайте макрос, повесьте его вызов по какому-то событию (хоть на кнопку, хоть на изменение значения в ячейке A1) и всё будет работать.

Так понятно?

[IgorGO]

Честно говоря не совсем понимаю какое отношение UDF имеет к моей проблеме. ((

Если меняю на "Function", то Excel принимает, но вылетает на строке присвоения значения

вот Вам иллюстрация отношения, которое имеет UDF к Вашей проблеме

так все-таки - чего Вы добиваетесь?

потому что на это:

Изменить цвет заданной (переданной через параметр) ячейки.

я ответил

[ADV_P]

Так понятно.

Хорошо, попробую такой вариант.

Спасибо!