Question

我必须更改我的宏在最后修复的几个默认值，但如果我需要中断宏，则不会重置设置。所以如果代码包含

Application.Calculation = xlCalculationManual

然后我会

Private Sub IfInterrupted()
    Application.Calculation = xlCalculationAutomatic
End Sub

有没有办法做到这一点？

Answer 1

如果你真的真的需要这样做，那么这就是：

body {
  background-color: #022040;
}

#path {
  d: path('M425,225 L475,275 L575,175 L675,275 L775,175 L875,275 L925,225'); 
  stroke: #1EFE64;
  fill: none;
  animation-name: path;
  animation-duration: 5s;
  animation-timing-function: ease-in;
  animation-fill-mode: forwards;
}


@keyframes path {

  0% {
     d: path('M425,225 L475,275');
  }

  25% {
     d: path('M425,225 L475,275 L575,175 L575,175 L575,175 L575,175 L575,175');
  }
  
  50% {
     d: path('M425,225 L475,275 L575,175 L675,275 L675,275 L675,275 L675,275'); 
  }
  
  75% {
     d: path('M425,225 L475,275 L575,175 L675,275 L775,175 L775,175 L775,175'); 
  }
  
  90% {
     d: path('M425,225 L475,275 L575,175 L675,275 L775,175 L875,275 L875,275'); 
  }
  
  100% {
     d: path('M425,225 L475,275 L575,175 L675,275 L775,175 L875,275 L925,225'); 
  }
}

然而，有更好的方法来实现你想要达到的目标。例如，轮询用户输入。

VBA - 宏被中断时运行代码

1 个答案: