0

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

这是教程链接

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

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

提前致谢!

4

1 回答 1

1

MS 进度条默认不可用。通过添加对 Common Controls 的引用,您可以使进度条可用。这就是第 4 步和第 5 步所做的。

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

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

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

Userform1.Progress1 = M
Userform1.Progress2 = N

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

Unload Userform1

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

于 2013-03-15T14:54:51.740 回答