Question

我正在尝试在我的宏中使用case语句我认为这是我实现错误的部分Select Case Reset

我知道我的宏不起作用，因为如果我在实时宏上使用它，屏幕更新正在进行中

赞赏任何见解

谢谢

Sub Test()
goFast False

 Code

goFast True
End Sub

编辑：6/10/14更新代码以反映评论的改进

Sub goFast(Optional what As Boolean = False)
' Set various application properties.
    Select Case what

        Case False
          With Application
               .Calculation = xlCalculationManual
               .ScreenUpdating = False
               .EnableEvents = False
          End With

       Case True
         With Application
              .Calculation = xlCalculationAutomatic
              .ScreenUpdating = True
              .EnableEvents = True
         End With
    End Select
End Sub

Answer 1

会发送评论，但没有代表这样做..你检查过你指的是正确的Sub吗？在您的测试Sub ...看起来你已经goFast而不是GoFast ...区分大小写...

宏来打开和关闭属性不太正常

1 个答案: