[技巧]避免Target.Count导致的“溢出”错误

ggmmlol

在编写Worksheet_SelectionChange代码时，为了使代码只在单选一个单元格时才能运行，通常会用到类似这样的代码：

1. If Target.Count > 1 Then Exit Sub

复制代码

这个代码，在xls格式的工作薄中，是可以正常运行，没有一点问题的；
但如果在xlsm格式的工作薄中，很可能就出现如下图所示的“溢出”错误。这是因为，在xlsm等EXCEL2007工作薄中，当全选一个工作表时，Target.Count的值是1048576*16384，也就是2的34次方，而EXCEL自身能常规处理的最大值是2的32次方，由于超出其计算范围而产生“溢出”错误。



那么，如何避免这个错误而同样达到原来的效果呢？
——这里介绍一个很简单的技巧，用下面的这个代码来替代就可以了：

1. If Target.Address Like "*[:,]*" Then Exit Sub

复制代码

原理分析：当选择的单元格的数量不是一个时，那么，一种可能是选择了一个连续的长方形单元格区域，另一种可能是选择了多个不连续的单元格区域。第一种情况下，则所选择的区域的地址中会包含“:”，而第二种情况下，则地址中会包含“,”。所以，只要所选择的单元格区域的地址中了包含“:”、“,”中的任意一个，就可以判定所选区域中的单元格个数是大于1的。

换句话说，“Target.Address Like "*[:,]*"” 是能充分等效于 “Target.Count > 1”的，而Target.Address的值是一个简短的字符串，不会出现超出EXCEL处理范围的情况。所以，这样一个小技巧，就可以解决前述的溢出错误了！

fxl447098457

学习了。新版本也可以使用CountLarge来代替Count。

skyzxh

构思很妙。。。。。。。

一把小刀闯天下

这方法好像也可以：
If CDec(Target.Rows.Count) * Target.Columns.Count > 1 Then Exit Sub

ggmmlol

一把小刀闯天下 发表于 2018-5-3 08:32
这方法好像也可以：
If CDec(Target.Rows.Count) * Target.Columns.Count > 1 Then Exit Sub

是的。只要注意到Target.CounT的“溢出”现象，就可能找到很多种的解决方案。
比如，下面的这句代码也是可以达到效果的：
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Or Target.Areas.Count > 1 Then Exit Sub
2楼所说的 用CountLarge来代替Count，也是可以的。（但这个代码，反过来另存为xls格式的工作薄时，还得修改代码，仍是不能通用。）

所谓的“技巧”，就是在能够完成同一目标的众多方案之中，操作更简便、更通用的那一种。

一把小刀闯天下

ggmmlol 发表于 2018-5-3 09:33
是的。只要注意到Target.CounT的“溢出”现象，就可能找到很多种的解决方案。
比如，下面的这句代码也是 ...

嗯，方法确实不少。我把它改成加试了一下也是可以的：
If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub

ggmmlol

一把小刀闯天下 发表于 2018-5-3 11:08
嗯，方法确实不少。我把它改成加试了一下也是可以的：
If Target.Rows.Count + Target.Columns.Count >  ...

这个修改是不成功的，嘿嘿！

microyip

一把小刀闯天下 发表于 2018-5-3 08:32
这方法好像也可以：
If CDec(Target.Rows.Count) * Target.Columns.Count > 1 Then Exit Sub

这种方法最理想

ggmmlol

microyip 发表于 2018-5-3 11:47
这种方法最理想

4楼和6楼 给出的两种方法，都只解决了只选择一个连续的单元格区域的问题。
而如果用按住Ctrl方式选择了两个不连续的单元格时，这两种方式的判定都是不够充分的。

事实上，包括Target.Row、Target.Column、Target.Count、Target.Rows、Target.Columns，都是默认 以Target.Areas(1)的区域来取相应的属xing值的。

microyip

ggmmlol 发表于 2018-5-3 12:07
4楼和6楼 给出的两种方法，都只解决了只选择一个连续的单元格区域的问题。
而如果用按住Ctrl方式选择了 ...

这个很好解决啊，你对每个Area进行相加处理就是啦