手动输入单元格 change 事件不触发，复制黏贴却触发了

EXL杨磊

各位老师，版主你们好          我在用change事件的时候，发现  复制黏贴的时候  change事件会被触发，但是手工输入的时候 却不能触发  这是为什么呀 ？能帮我讲解一下吗？

zax010

没有你说的情况。

代码调整一下更合理：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 Then
        Application.EnableEvents = False
        Call 查询
        Application.EnableEvents = True
    End If
End Sub

EXL杨磊

zax010 发表于 2017-4-22 15:56
没有你说的情况。

代码调整一下更合理：

谢谢指点，但是 我这边的情况确实是这样的呀
C:\Users\Uncle\Desktop

EXL杨磊

zax010 发表于 2017-4-22 15:56
没有你说的情况。

代码调整一下更合理：

老师  您手动输入236试试  我这边确实没能触发change事件  但是复制和粘贴却触发了

LikeStudy

EXL杨磊 发表于 2017-4-24 19:25
老师  您手动输入236试试  我这边确实没能触发change事件  但是复制和粘贴却触发了

并不是没有触发事件，而是模块中的代码写的是选中单元格，而手动输入回车后选中单元格向下移动，若是输入后按Tab为结束动作代码就没问题。

For i = Selection.Row To ir
改为
For i = Cells(Rows.Count, 2).End(xlUp).Row To ir
注意：新的输入行数不能比现有数据的行数小。按你的需要决定是改结束动作还是改代码，暂时想不到能完美兼顾这两种情况办法。

LikeStudy

LikeStudy 发表于 2017-4-24 20:13
并不是没有触发事件，而是模块中的代码写的是选中单元格，而手动输入回车后选中单元格向下移动，若是输入 ...

注意：新的输入行数不能比现有数据的行数小。

EXL杨磊

LikeStudy 发表于 2017-4-24 20:21
注意：新的输入行数不能比现有数据的行数小。

好的，谢谢您。已解决了  我还是选择了用table件结束输入动作