[已解决]工作表事件删除问题

chen1237777

大侠们 我在用工作表改变事件的时候 删除多单元格 或者多行 老是出错 有没有补救的方法 附件已上传 求帮助 （修改sheet3的单元格的时候出错）

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-24 22:19

chen1237777 发表于 2013-12-24 15:37
我就是想让一次删除或者清空多单元格内容时 不触发工作表事件

事件代码里先判断吧。
if target.count>1 then exit sub

跳转到最佳答案楼层

hwc2ycy

    arr1 = Range("a1:a" & t).Value
    For x = 2 To UBound(arr1)
你这里，arr1不是数组。
也就是说T=1。

hwc2ycy

那两句改成这样

1.     arr1 = Range("a1:a" & t).Value
   
2.     If IsArray(arr1) Then
   
3.         For x = 2 To UBound(arr1)
   
4.             Sheets("sheet2").Range("c" & d(arr1(x, 1))).Value = 1
   
5.         Next x
   
6.     End If
   

复制代码

chen1237777

hwc2ycy 发表于 2013-12-24 08:44
那两句改成这样

帮主 我已意识到 t=1的情况 这个问题好解决 问题是 比如我在b列输入多行数据 现在进行多单元格删除 就出错了 怎么解决

hwc2ycy

那你就遍历TARGET嘛。
如果是一次删除多个，TARGET就是一个区域。
debug.print target.address,target.count

hwc2ycy

那你就遍历TARGET嘛。
如果是一次删除多个，TARGET就是一个区域。
debug.print target.address,target.count

chen1237777

hwc2ycy 发表于 2013-12-24 11:40
那你就遍历TARGET嘛。
如果是一次删除多个，TARGET就是一个区域。
debug.print target.address,target.co ...

我就是想让一次删除或者清空多单元格内容时 不触发工作表事件

chen1237777

chen1237777 发表于 2013-12-24 15:37
我就是想让一次删除或者清空多单元格内容时 不触发工作表事件

代码怎么写

hwc2ycy

chen1237777 发表于 2013-12-24 15:37
我就是想让一次删除或者清空多单元格内容时 不触发工作表事件

事件代码里先判断吧。
if target.count>1 then exit sub

chen1237777

hwc2ycy 发表于 2013-12-24 22:19
事件代码里先判断吧。
if target.count>1 then exit sub

大侠我还想问个问题 我用工作表选择事件 竟然使右键的复制粘贴不能用了 请问如何解决