我尝试按照一个简单的 vba 进度条教程进行操作,但它无法正常工作。
这是教程链接
我不明白第 4 步和第 5 步,进度代码对于进度条的目标也没有任何意义,还是我错了?
我的目标是在我的代码中设置一些引用,以在栏中添加进度。- 如何添加这些参考?以及如何让进度条看到它。
提前致谢!
MS 进度条默认不可用。通过添加对 Common Controls 的引用,您可以使进度条可用。这就是第 4 步和第 5 步所做的。
首先,删除 PROGRESS 部分中的代码,以 For M... 开头并以 Unload Me 结尾。你希望这部分在你的代码中运行,让它在这个事件中运行是一种愚蠢的教程。所以删除它。
接下来,用户窗体有一个 ShowModal 属性。此属性必须设置为 False。显示非模态意味着您的代码将在用户窗体可见时继续运行。
大概你的代码中有两个循环。在这些循环中,您需要设置进度条的值。在循环之前,调用 ShowForm 过程。在循环内,设置像
Userform1.Progress1 = M
Userform1.Progress2 = N
在循环之后,杀死用户表单。
Unload Userform1
本教程在 Activate 事件中有两个循环,仅用于演示目的。但是您希望代码中的循环驱动进度条的值。如果没有看到您的代码,很难更具体。