Excel vba进度条无法正常工作

Question

我尝试按照简单的vba进度条教程，但它的工作方式不合适。

这是tutorial link

我不明白第4步＆amp; 5，对于进度条的目标，进度代码也没有意义，或者我错了吗？

我的目标是在我的代码中设置一些引用，在条形图中添加进度。 - 如何添加这些参考？以及如何使进度条看到它。

提前致谢！

Answer 1

默认情况下，MS进度条不可用。通过添加对Common Controls的引用，可以使进度条可用。这就是步骤4和5的作用。

首先，删除PROGRESS部分中的代码，以For M ...开头，以Unload Me结束。你希望这个部分在你的代码中运行，这是一个让它在这个事件中运行的愚蠢的教程。所以删除它。

接下来，userform具有ShowModal属性。必须将此属性设置为False。显示非模态意味着您的代码将在用户表单可见时继续运行。

大概你的代码中有两个循环。在这些循环中，您需要设置进度条的值。在循环之前，调用ShowForm过程。在循环内部，设置像

这样的值

Userform1.Progress1 = M
Userform1.Progress2 = N

在循环之后，杀死用户表单。

Unload Userform1

本教程在Activate事件中有两个循环，仅用于演示目的。但是您希望代码中的循环能够驱动进度条的值。没有看到你的代码就很难更具体。

Answer 2

在教程中，在 AddReference过程中添加 Microsoft Windows公共控件的引用在运行时。所以你必须让它运行（执行这个程序），以便添加引用。

然后添加用户表单并转到VIEW =＆gt;工具箱。右键单击工具框并选择“其他控件”。在“可用控件”列表中搜索<​​strong> Microsoft ProgressBar Control ，然后选中复选框。

现在工具栏上会显示进度条图标，您可以将其拖到用户表单中。