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

ggmmlol · 发表于 2018-5-3 12:45

microyip 发表于 2018-5-3 12:32
这个很好解决啊，你对每个Area进行相加处理就是啦

那你还认为那还是最理想的方法吗？

一把小刀闯天下 · 发表于 2018-5-3 12:52

ggmmlol 发表于 2018-5-3 11:16
这个修改是不成功的，嘿嘿！

是的，没想到用ctrl来增选区域，那只能增加area个数判断了：
If Target.Rows.Count + Target.Columns.Count + Target.Areas.Count > 3 Then Exit Sub

sayhi95 · 发表于 2018-5-3 21:13

2016似乎没这个问题

gumption83 · 发表于 2018-5-21 20:05

留个脚印，收藏下来

boon · 发表于 2019-1-27 19:19

Selection.Rows.Count = 1 And Selection.Columns.Count = 1 可以完美解决该问题

boon · 发表于 2019-1-27 19:21

01.If Target.Count > 1 Then Exit Sub 改成01.If Target.CountLarge > 1 Then Exit Sub 也能解决

boon · 发表于 2019-1-27 19:43

楼主的方法独辟蹊径也是好办法

aoe1981 · 发表于 2020-1-14 21:55

本帖讨论的内容帮到我了，谢谢各位。

blackttea1 · 发表于 2020-3-26 13:36

留个脚印，收藏下来

网海遨游 · 发表于 2020-3-26 14:42

留个脚印，收藏。
If Target.Address Like "*[:,]*" Then Exit Sub

		自动登录	找回密码
密码			免费注册

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