Обновление столбца с использованием кода VBA удаляет Формат столбца

Question

Мой Excel содержит две кнопки. Один называется «Подсветка» для выделения определенных столбцов, другой называется «Пересчитать» для обновления столбца после расчета. Допустим, я нажал кнопку «Выделить», и столбец B подсвечивается желтым цветом. Теперь, когда я нажимаю кнопку «Пересчитать», она удаляет выделение из столбца B и обновляет значение после пересчета.

Sub recalculate_button()
 Dim Value1, Value2 As Integer
 Value1 = 50
 Value2 = 30
 Range("B1:B5000").Value = Value1 + Value2
End Sub

Sub Highlight_button()
 Range("B1:B5000").Interior.Color = vbYellow
End Sub

Я ожидаю обновить столбец B, не удаляя блики. Заранее спасибо.

Answer 1

Дайте этому попытку:

Sub recalculate_button()
    Dim Value1, Value2 As Integer
    Application.ScreenUpdating = False
    Value1 = 50
    Value2 = 30
    Range("B1:B5000").Value = Value1 + Value2
    Application.ScreenUpdating = True
  End Sub

С уважением