Excel VBA代码自动高亮显示修改的单元格？

当前正在使用此代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$1" Then Range("B9:AE53").Interior.Color = xlNone
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("B9:AE53")) Is Nothing Then
    For Each c In Intersect(Target, Range("B9:AE53"))
        Target.Interior.Color = vbYellow
    Next c
End If
End Sub

仅当我手动编辑（或F2然后输入）B9:AE53中的单元格时，自动高亮显示才起作用。我希望如果我编辑订单表中的数据（参考B9:AE53），可以改变单元格颜色

---

他还希望将事件从B1传输到命令按钮

您可以轻松地更改问题的第二部分，即您希望将单元格颜色重置为零的部分，通过按钮执行

将代码更改为：

Sub CleanUp()
Range("B9:AE53").Interior.Color = xlNone
End Sub

---

然后通过开发者工具栏中的窗体控件按钮添加一个按钮，并将上面的宏指定给它。这将使这个地区变得干净。一旦你为问题的第一部分指定了期望的结果，我可能会对此有所帮助。

这个问题太宽泛了。首先录制一个宏，在其中自动执行您想要执行的任务，然后询问有关生成代码的功能的问题。条件格式？尝试过，但它实际上无法完成我需要它完成的任务：/n您的问题非常广泛，没有足够的信息让我们帮助您。您的

工作表\u更改
代码检查您更改的单元格（
Target
）是否在
B9:AE53
范围内（
如果不相交（Target，range（“B9:AE53”））则为空。如果这不是你想要的，你需要重写这部分。