粘贴时要求不触发worksheet_Change

huitianxia

因工作需要，
参照B站发布的一个视频"EXCEL连接数据库（SQL或ACCESS)实现增删改查视频教程简介"（发布者:Access_SQL_VB编程）用VBA建了一个excel连接SQL SERVER数据库的EXCEL文件。
其中为了方便查询、修改、新建，需要在表格先将SQL sever数据库的数据提取到EXCEL的sheet1中，希望修改某个数据，对应数据的首列对应自动出现更改、新增等标识。
查了一下，是可以通过worksheet_Change来实现，但问题是当最初从SQL SEVER中提取数据并粘贴到sheet1时，也是等于修改了SHEET1表格，此时触发了worksheet_Change，导致程序崩溃死机，并直接退出。

因此求助，如何能够粘贴时（sheet1.range("b2").copyfromrecordset rs)时不触发worksheet_Change，但之后修改数据时，能够对应地在A列对应的单元格中自动填写"变更"?

另外视频中导出数据的数据是在SHEET中插入一个表格，而数据是一行行循环增加的，如果SQL的记录集数据多，应该如何一次性扩大插入表格的列和行？

盼有大佬能够解答，谢谢！

剑指E

上下两行将 夹在中间试试

huitianxia

剑指E 发表于 2023-3-20 20:56
上下两行将夹在中间试试

谢谢楼主回复，上面这个方法应该也行，但由于复制数据的次数很多，用这个方法不太适合。
我自己另外想办法解决了，思路是当选定的范围大于1时，不触发
if Target.Cells.Count > 1 then
Application.EnableEvents = False