vba - 在excel vba的文本框中显示不断变化的变量

Question

我想在 excel vba 中创建一个文本框，它将显示变化变量的值，直到达到最终值。这是我写的代码

**For i= 0 to CWPRES_MAX step 0.1  
  CW_PRESSURE.value = i (CW_PRESSURE is the name of my text box)         
  Application.Wait Now + TimeValue("00:00:01")
  Next**

我希望变量 i 以 0.1 的步长计数到值 CWPRES_MAX，并且在每一步中，该值都将显示在文本框中 (CW_PRESSURE)。但是在运行时，程序正在执行整个延迟并最终在文本框中显示“i”的最终值，即 CWPRES_MAX。

我该怎么做？

Answer 1

谷歌活动

  For i= 0 to CWPRES_MAX step 0.1  

  DoEvents

  CW_PRESSURE.value = i (CW_PRESSURE is the name of my text box)         
  Application.Wait Now + TimeValue("00:00:01")

  Next