vba - 圈子无效数据宏

Question

我有一个包含许多相关下拉列表的工作表，如果初始下拉列表被更改，这些下拉列表可能会出现无效数据。我想要一个简单的自动宏，每次检测到指定范围(D8:T800)内的单元格更改时，它都会自动运行“圈出无效数据”命令。

这听起来很简单，但我不知道该怎么做。

问题 - 因为这个宏将在每次修改单元格时运行，这个宏会减慢工作表的速度吗？

编辑:
另外:因为这可能很慢，有没有办法我们可以在选定的范围内运行这个命令？

你的想法谢谢。

Answer 1

尝试这个

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("D8:T800")) Is Nothing Then
        Me.CircleInvalid
    End If
End Sub

请注意 CircleInvalid适用于整个工作表，因此虽然此代码仅在 D8:T800 内的单元格时触发更改，工作表上的所有无效单元格将被圈出