Question

目前正在使用此代码：

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

Autohighlight仅在我手动编辑（或F2然后输入）B9：AE53中的单元格时有效。如果我在订单表中编辑数据，我希望有一些会改变单元格颜色的东西（参考B9：AE53）。

还希望将事件从B1转移到命令按钮。

Answer 1

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

将代码更改为：

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

然后通过开发人员工具栏中的“表单控件”按钮添加一个按钮，并将上面的宏指定给它。这将清理该区域。一旦你明确了问题的第一部分所期望的结果，我就可以帮助解决这个问题。

VBA代码自动加亮修改过的细胞？

1 个答案: