请求大神帮忙看一下“字典法”中的vba代码，不知道哪里处理问题，运行就崩溃。

songzhidong

请求大神帮忙看一下“字典法”中的vba代码，不知道哪里处理问题，运行就崩溃。

chxw68

修改好了，原代码进入死循环了。

蓝桥玄霜

需要加2句代码，加个限制。

ynzsvt

主要是加了 Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True

Application.Caption="QQ:66945797"
Application.Caption="微信:ynzsvt"
这种语句，防止事件引起死循环。
另外，变量不能是字符型，要与字典上的一致，整型。

ykcbf1100

AI写的代码不要太相信，代码本可以更简洁。

ykcbf1100

参与一下。。。

songzhidong

chxw68 发表于 2024-8-25 11:54
修改好了，原代码进入死循环了。

再次感谢大神，回复也太快了，谢谢！

songzhidong

ykcbf1100 发表于 2024-8-25 12:35
参与一下。。。

非常简洁和精彩的代码，但是，如果在第一列直接粘过来多行数据时，就会报错。

ykcbf1100

songzhidong 发表于 2024-8-25 14:22
非常简洁和精彩的代码，但是，如果在第一列直接粘过来多行数据时，就会报错。

工作表事件就是这样的，事件监控A列的值，如果A列的单元格发生变化，才会触发这个工作表事件。如果你想复制数据后查询出其它数据，可以搞个模块，做个按钮就可以了，但是，你原来用的就是工作表事件。