在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

Google DoEvents

  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