execl宏导致内容一直闪个不停,下面是宏代码怎样改才不会闪又不影响其 ...
发布网友
发布时间：2024-09-29 02:32
共1个回答
热心网友
时间：9分钟前
可能的原因：
1. 你在一些地方错误的调用了acop过程，如Worksheet_Activate等，导致acop被循环调用。
2. Workbooks("1006（潘）.xls").Sheets("StartUp").Copy before:=Worksheets(1)，看起来你期望复制出来的工作表名为StartUp，但不幸的是Excel不允许同一工作簿中出现重名的工作表。所以复制的结果是产生了许多类似Startup (2)，Startup (3)的工作表，而这些在ActiveWorkbook.Sheets(1).Name <> "StartUp" 中会返回TRUE。
修改的建议如下：
1. 把
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
改为
If InStr(ActiveWorkbook.Sheets(1).Name, "StartUp") = 0 Then
2. 在End If前加上
Application.ScreenUpdating = True
