[已解决][求助] 如何停止刷屏

diymywork

想停止刷屏
但是：Application.ScreenUpdating = False；Application.ScreenUpdating = True不管用呢？

Sub 复试公式()
   Dim i As Integer
    Application.ScreenUpdating = False
    For i = 36 To 376 Step 17
    ActiveWindow.SmallScroll Down:=3
    Rows("19:19").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=18
    Range("A" & i).Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-9
    Next i
    Application.CutCopyMode = False
   Application.ScreenUpdating = True
End Sub
请高手看看，问题出在哪了？

最佳答案

月排行榜 / 总排行榜

zjdh

2012-3-27 13:25

1. Sub 复制公式()
   
2.    Dim i As Integer
   
3.     Application.ScreenUpdating = False
   
4.     For i = 36 To 376 Step 17
   
5.     Rows("19:19").Copy Range("A" & i)
   
6.     Next i
   
7.    Application.ScreenUpdating = True
   
8. End Sub

复制代码

跳转到最佳答案楼层

zjdh

1. Sub 复制公式()
   
2.    Dim i As Integer
   
3.     Application.ScreenUpdating = False
   
4.     For i = 36 To 376 Step 17
   
5.     Rows("19:19").Copy Range("A" & i)
   
6.     Next i
   
7.    Application.ScreenUpdating = True
   
8. End Sub

复制代码

diymywork

zjdh 发表于 2012-3-27 13:25

谢谢，好多了
现在是不滚屏了，但是为什么在运行程序的过程中屏幕会抖动呢？

zjdh

diymywork 发表于 2012-3-27 13:31
谢谢，好多了
现在是不滚屏了，但是为什么在运行程序的过程中屏幕会抖动呢？

没有啊，我这是纹丝不动，可能是你引用的文件路径太长了。
='C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\Rar$DI07.928\ps管理人员名单\[数据整理-新问题2.xls]定编'!B3

diymywork

zjdh 发表于 2012-3-27 13:40
没有啊，我这是纹丝不动，可能是你引用的文件路径太长了。
='C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\Rar$D ...

哦，这个样子，谢谢啦。