如何在程序运行时，显示进度？

liqs_sh@126.com

求助！
如：我在程序运行期间关闭了屏幕显示，程序结束前打开屏幕显示。在程序运行期间，屏幕显示等待沙漏。由于程序运行时间长，容易给使用者造成死机的假象。
要求在程序运行期间，能有像安装程序类似的进度条显示。如“统计正在进行，请耐心等待”的提示，最好还能显示具体的进度。等统计程序结束后自动消失。
EXECL VBA里怎样实现？

jeffy023

在工作表中添加一个命令按钮，双击后写入下面的代码。

#001  Private Sub CommandButton1_Click()

#002      Dim i As Integer

#003      UserForm1.Show 0

#004      With UserForm1.ProgressBar1

#005          .Min = 1

#006          .Max = 10000

#007          .Scrolling = 0

#008          For i = 1 To 10000

#009              Cells(i, 1) = i

#010              .Value = i

#011              UserForm1.Caption = "正在运行,已完成" & i / 100 & "%,请稍候!"

#012          Next

#013      End With

#014      Unload UserForm1

#015      Columns(1).ClearContents

#016  End Sub

代码解析：

工作表中命令按钮的单击事件，在给工作表A1到A10000单元格赋值的同时使用进度条显示其运行速度。

第3行代码，使用Show方法显示进度条控件所在的窗体，并且设置为无模式显示。

第5、6行代码，设置进度条控件的最小值和最大值，应与第8行代码中的循环计数器的start参数和End参数相一致。

第7行代码，设置进度条控件显示为有间隔的。如果将Scrolling属性设置为1则显示为无间隔的。

第9行代码，在单元格中进行无意义的填充数据以演示进度条。在实际应用中可以将进度条嵌入到程序的循环中。

第11行代码，在窗体的标题栏中显示已完成的百分比。

第14行代码，使用Unload 语句卸载窗体。

Unload 语句从内存中删除一个对象，语法如下：

Unload object

参数object参数是必需的，一个有效的对象。

第15行代码，清空A列填充的数据。

点击命令窗口执行后效果如下：

bestmit

恩，学习了，谢谢！

liqs_sh@126.com

谢谢提供代码！
我可能没说清楚，程序运行的时间主要取决程序内两个for.....next循环，这两个循环的最大值是根据行数和列数统计出来的，这个行数和列数经常是变化的，程序会自动判断。
所以统计进度条的分子和分母无法事先知道。
如果进度条程序嵌入这个程序，或这个程序嵌入进度程序，执行的效率就会低。
最好进度条程序能根据时间进行进度前进。

renahu

jeffy023 发表于 2012-11-27 15:29
在工作表中添加一个命令按钮，双击后写入下面的代码。#001  Private Sub CommandButton1_Click()[/backcolo ...

这是往一万个单元格填数，如果是对一个没有具体数字的事情进行处理，如数据查询，提取。。这分母怎么定？

yanjk120

来一个超级简单的，
假如“执行中”窗体名为：sst
   ......
   sst.show vbModeless
   .........
    Unload datahandle sst
   ...............
这样就能够实现了。。

楚航

谢谢，学习