Здравствуйте!
Подскажите, можно ли написать функцию задания цвета ячейки в VBA, которая бы в качестве аргументов принимала адрес ячейки и код цвета?
При этом она должна работать в качестве формулы на рабочем листе.
Я написал такой вариант:
Но она не работает на рабочем листе в качестве формулы.
Хотя похожая функция определения цвета ячейки, где аргументом выступает адрес ячейки, работает:
Спасибо!
Подскажите, можно ли написать функцию задания цвета ячейки в VBA, которая бы в качестве аргументов принимала адрес ячейки и код цвета?
При этом она должна работать в качестве формулы на рабочем листе.
Я написал такой вариант:
Код |
---|
Public Function AskColor(Cell As Range, Color As Integer) Cell.Interior.ColorIndex = Color End Function |
Хотя похожая функция определения цвета ячейки, где аргументом выступает адрес ячейки, работает:
Код |
---|
Public Function ColorNomInterior(Cell As Range) ColorNomInterior = Cell.Interior.ColorIndex End Function |
Спасибо!