VBA工作表随多个单元格更改

我有一个命名的范围，我在Worksheet_Change(ByVal Target as Range)监视。 我注意到，如果用户select该范围内的多个单元格，并右键单击 – >清除，程序崩溃。

我有这样的代码：

 If Target <> "" And (.Cells(Target.Row, [GLB_Location_Col].Column) = "" _ Or .Cells(Target.Row, [GLB_LineType_Col].Column) = "") Then .Cells(Target.Row, [GLB_Location_Col].Column).Interior.ColorIndex = 40 'peach .Cells(Target.Row, [GLB_LineType_Col].Column).Interior.ColorIndex = 40 'peach 

我的代码假设一个单元格正在更改，所以我想当一个范围传递给我的.Cell函数之一，它不知道如何处理它，并引发一个不匹配的错误。 有没有办法来防止这种情况发生？

Answer 1

首先确保代码只运行1个单元格。

 If Target.Cells.Count = 1 Then '~~> rest of code here End If 

注意：对于较新版本的Excel（例如XL2007及更高版本），您需要使用CountLarge属性来避免溢出错误。

现在，只testing特定的范围，然后在你的If语句中集成Intersect函数。 就像是：

 If Not Intersect(Target, .Cells(1, [GLB_Location_Col].Column).EntireColumn) Is Nothing _ And .Cells(Target.Row, [GLB_Location_Col].Column) <> "" Then 

所以，它首先检查Target范围是否在整个GLB_Location_Col （我假定一个命名的范围）内，如果范围不是空的。 HTH。