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

致谢

使用VBA代码更新列会删除该列的格式

1 个答案: