VBA (Excel), вопрос по типам данных

Akemi · 22 ноя 2007, 16:53

Помогите пожалуйста разобраться, мне необходимо чтоб ячейка в зависимости от появляющегося в ней в результате расчетов значения меняла свой цвет.
Код я написал:

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("E60").Value > 0.3 Then

Range("E60").Select

    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    
    ElseIf Range("E60").Value <= 0.3 Then

    Range("E60").Select
    Selection.Interior.ColorIndex = xlNone
    
    End If

End Sub

Он работает с пустой ячейкой, ввожу туда значение и все нормально меняется, но если в ячейке содержится формула, как в моем случае:

=СУММ(E44:E59)/C63*100

то при компиляции выдается ошибка:

Run-time error '13': Type Mismatch

Что необходимо предпринять?

bi-lya · 22 ноя 2007, 16:59

Может быть лучше использовать условное форматирование?

Akemi · 22 ноя 2007, 17:07

А поподробней, это как?

Akemi · 22 ноя 2007, 17:22

А, все нашел: Формат - Условное форматирование...
Действительно работает. Спасибо.