Кнопка сброса Excel VBA - значение как число, а не текст

Question

У меня есть электронная таблица, и я хочу вернуть некоторые ячейки обратно в исходное состояние.

Моя кнопка сброса работает с использованием следующего кода .....

Sub Reset_Cells()
    'Updateby Extendoffice 20161008
     Range("D4", "D8").Value = "£0.00"
     Range("D11").Value = "£0.00"
End Sub

Отлично работает, но вставляет 0,00 фунтов стерлингов в виде текста, который воздействует на зависимую ячейку с помощью оператора IF (см. Ниже)

=IF(D4=0,0,IF(D4<=300,35,IF(D4<=500,50,IF(D4<=1000,70,IF(D4<=1500,80,IF(D4<=3000,115,IF(D4<=5000,205,IF(D4<=10000,455,IF(D4<=200000,ROUND(D4/100,2)*5,IF(D4>200000,10000))))))))))

Когда кликают по полям «посмотрите», как они должны, но зависимая ячейка показывает £ 10000 (самый высокий вариант ПЧ) вместо £ 0,00.

У сброшенных (это даже слово ?!) ячеек есть зеленый треугольник в углу, который говорит мне, что ячейка хранится в виде текста.

Как я могу это исправить?

Спасибо

Answer 1

Как насчет:

Sub Reset_Cells()
    With Range("D11,D4,D8")
        .Value = 0
        .NumberFormat = "£#,##0.00"
    End With
End Sub