Excel vba进度条不起作用[关闭]

Question

我尝试按照一个简单的 vba 进度条教程进行操作，但它无法正常工作。

这是tutorial link

我不明白第 4 步和第 5 步，进度代码对进度条的目标也没有任何意义，还是我错了？

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

提前致谢！

Answer 1

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

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

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

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

Userform1.Progress1 = M
Userform1.Progress2 = N

循环结束后，杀死用户表单。

Unload Userform1

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