工作表闪烁

Question

我是VBA的新手，所以我试图创建一个宏按钮，该按钮可以将粘贴数据从一个工作表复制到另一个工作表，但是我认为我的代码有缺陷，因为只要我运行代码，工作表就会闪烁

由于我是VBA新手，所以尝试了一个简单的代码

Worksheets("Survey Form").Range("C9").Copy
Worksheets("Database").Activate
Cells(Rows.Count, 1).End(xlUp).Select
ActiveCell.Offset(1).Select
ActiveCell.PasteSpecial xlPasteValues
Worksheets("Survey Form").Activate
Application.CutCopyMode = False

我希望代码平稳运行而不会闪烁

Answer 1

除了评论中建议的内容外，您还应该尝试以下操作：

Sub something()

Application.ScreenUpdating = False
'
'
'the rest of your code here
'
'
Application.ScreenUpdating = True

End Sub

这实际上应该使您的代码更流畅，更快速地运行。