Очень важное замечание: если не хотите дополнительной головной боли, никогда не называйте переменные, функции, процедуры зарезервированными именами (IsValue, ColorIndex
...).
UDF (функции пользователя) не предназначены для изменения других ячеек, они, как и формулы листа, возвращают значение в ячейку, из которой вызваны. В данном случае применение UDF ошибочно. Но задача решаема.
В модуль листа пишем процедуру реагирования на событие листа - изменение значения в диапазоне:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rRng As Range
Dim lColor_ As Long
If Not Application.Intersect(Range("A2:A50"), Target) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not IsEmpty(Target.Value) Then
Set rRng = Range("C2:D15")
lColor_ = 48
Call SetClrIndex(rRng, lColor_)
End If
Set rRng = Nothing
Application.EnableEvents = True
End If
End Sub
В общем модуле:
Sub SetClrIndex(rRng As Range, lColor_ As Long)
rRng.Cells(1, 1).Interior.ColorIndex = lColor_
End Sub
При изменении ячейки в диапазоне A2:A50
(только при записи значения - If Not IsEmpty(Target.Value) Then
) передается управление макросу, который отвечает за заливку ячейки указанного диапазона.
Назначение объекта переменной (Set rRng
) и указание цвета (lColor_
) в событийной процедуре неоправдано. Это лишь для примера. Данные можно брать из ячеек, задавать условием, вычислять в поцедуре заливки...