blocks|key|1036319|text|我将结束这一个，并说Modal是胜利者。这两种方法我都试过了，但是你最终还是试图用非模态用户表单来堵塞太多的漏洞。Modal更难，因为它更严格，但它鼓励您将代码拆分成更小的块，这在长期运行中会更好。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1036320|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

I am going to close this one out and say Modal is the winner. I have tried both ways, but you end up trying to close too many loopholes with modeless userforms. Modal is more difficult because it is more strict, but it encourages you to break up your code into smaller chunks which is better in the long run anyway.

blocks|key|2445637|text|还有第三种方法，使用Application.StatusBar。您甚至可以使用U%2B25A0和U%2B25A1字符序列来模拟真正的进度条。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2445638|entityMap^0|A|L|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

There's also a third way, using the <code>Application.StatusBar</code>.
You can even simulate a true progress bar by using a sequence of U+25A0 and U+25A1 characters.

blocks|key|1036365|text|绝对是莫代尔。如果你打算考虑无模式，你应该在单独的进程外线程上运行它，而不是在Excel.exe主线程上。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1036366|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

Definately Modal.
If you are going to consider Modeless, you ought to run it on a seperate out-of-process thread and not on the Excel.exe main thread.

blocks|key|2445806|text|我认为最初的话题是值得回答的，因为这个问题表达得如此之好，以至于谷歌最先找到了它。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2445807|第1节-理论|2445808|要说的第一件事是，在模块之间传递变量并不困难。|2445809|您唯一需要做的就是创建一个单独的模块，并将所有全局变量放在其中。然后你就可以在任何地方以各种形式、表格、模块阅读它们。|2445810|的第二件事是，窗口应该是无模式的。为什么呢？答案是保持代码的移动性的，即|offset|length|style|BOLD|2445811|2445812|执行大多数例程进程的函数不在UserForm模块中，|ordered-list-item|2445813|您可以从任何地方调用带有进度条的窗口，|2445814|例程函数/过程之间的唯一连接是全局变量|2445815|2445816|这是多才多艺的一个很大的优势。|2445817|第2部分-实践|2445818|1)创建一个带有全局变量的模块“声明”：|2445819|Public+StopForce+As+Integer‘此变量将用作用户按下取消按钮的指示器|2445820|Public+PCTDone+As+Single‘这是已经完成的工作的百分比|2445821|Public+CurrentFile+As+String‘我们想要传递给表单的任何其他参数。|2445822|2)创建带有按钮的表单。在按钮的OnClick事件中，应该有一个代码，其中我们引用声明模块中的全局变量StopForce|2445823|+Private+Sub+CommandButton1_Click()

+Declaration.StopForce+=+1
++End+Sub|code-block|syntax|javascript|2445824|3)添加一个更新进度条的过程|2445825|Sub+UpdateProgressBar(PCTDone_in+As+Single)
With+UserForm1
++++'+Update+the+Caption+property+of+the+Frame+control.
++++.FrameProgress.Caption+=+Format(PCTDone_in,+"0%25")
++++'+Widen+the+Label+control.
++++.LabelProgress.Width+=+PCTDone_in+*+_
++++++++(.FrameProgress.Width)
++++'+Display+the+current+file+from+global+variable+++
++++.Label1.Caption+=+Declaration.CurrentFile
End+With
End+Sub|2445826|4)在任何其他模块中，我们必须具有完成例程的函数或过程/子模块：|2445827|+For+i=1+to+All_Files

+Declaration.CurrentFile+=+myFiles+(i)

+FormFnc.UpdateProgressBar+(i+/+.Range("C11").Value)


+DoEvents

+If+Declaration.StopForce+=+1+Then
++++GoTo+3
+End+If

+Next+i|2445828|entityMap^0|0|0|0|0|Y|2|0|0|0|Q|0|0|J|0|0|J|0|0|0|F|0|0|7|0|0|K|0|0|1A|0|0|12|0|0|1A|0|0|1O|0|0|0|E|0|0|0|W|0|0^^$0|@$1|2|3|4|5|6|7|1P|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1Q|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|1R|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|1S|8|@]|9|@]|A|$]]|$1|H|3|I|5|6|7|1T|8|@$J|1U|K|1V|L|M]]|9|@]|A|$]]|$1|N|3|-4|5|6|7|1W|8|@]|9|@]|A|$]]|$1|O|3|P|5|Q|7|1X|8|@$J|1Y|K|1Z|L|M]]|9|@]|A|$]]|$1|R|3|S|5|Q|7|20|8|@$J|21|K|22|L|M]]|9|@]|A|$]]|$1|T|3|U|5|Q|7|23|8|@$J|24|K|25|L|M]]|9|@]|A|$]]|$1|V|3|-4|5|6|7|26|8|@]|9|@]|A|$]]|$1|W|3|X|5|6|7|27|8|@$J|28|K|29|L|M]]|9|@]|A|$]]|$1|Y|3|Z|5|6|7|2A|8|@$J|2B|K|2C|L|M]]|9|@]|A|$]]|$1|10|3|11|5|6|7|2D|8|@$J|2E|K|2F|L|M]]|9|@]|A|$]]|$1|12|3|13|5|6|7|2G|8|@$J|2H|K|2I|L|M]]|9|@]|A|$]]|$1|14|3|15|5|6|7|2J|8|@$J|2K|K|2L|L|M]]|9|@]|A|$]]|$1|16|3|17|5|6|7|2M|8|@$J|2N|K|2O|L|M]]|9|@]|A|$]]|$1|18|3|19|5|6|7|2P|8|@$J|2Q|K|2R|L|M]]|9|@]|A|$]]|$1|1A|3|1B|5|1C|7|2S|8|@]|9|@]|A|$1D|1E]]|$1|1F|3|1G|5|6|7|2T|8|@$J|2U|K|2V|L|M]]|9|@]|A|$]]|$1|1H|3|1I|5|1C|7|2W|8|@]|9|@]|A|$1D|1E]]|$1|1J|3|1K|5|6|7|2X|8|@$J|2Y|K|2Z|L|M]]|9|@]|A|$]]|$1|1L|3|1M|5|1C|7|30|8|@]|9|@]|A|$1D|1E]]|$1|1N|3|-4|5|6|7|31|8|@]|9|@]|A|$]]]|1O|$]]

I think that the initial topic is worth of replying since the question was formulated so nicely that google finds it first.

<h1>Section 1 - Theory</h1>

The first thing to say is that to transfer the variables between the modules is not difficult at all.

The only thing you need to do is to create a separate module and put there all the global variables. Then you will be able to read them everywhere in all forms, sheets, modules.

The second thing is the window should be a MODELESS. Why that? 
The answer is to keep the mobility of the code, i.e. 

<ol>
<li>the function where the most routine process is executed is not to be located in the UserForm module</li>
<li>you can call the window with progress bar from everywhere and </li>
<li>the only connection between the routine function/procedure are the global variables</li>
</ol>

This is a great advantage to be versatile here. 

<h1>Section 2 - Practice</h1>

1) Create a module "Declaration" with the global variables:

Public StopForce As Integer
'this variable will be used as an indicator that the user pressed the cancel button

Public PCTDone As Single
' this is the % of the work that was done already

Public CurrentFile As String
' any other parameter that we want to transfer to the form.

2) Create the form with the button. In OnClick event of the button there should be a code where we refer to the global variable StopForce in Declaration module

<pre><code> Private Sub CommandButton1_Click()

 Declaration.StopForce = 1
 End Sub
</code></pre>

3) Add one procedure where you update the progress bar

<pre><code>Sub UpdateProgressBar(PCTDone_in As Single)
With UserForm1
 ' Update the Caption property of the Frame control.
 .FrameProgress.Caption = Format(PCTDone_in, "0%")
 ' Widen the Label control.
 .LabelProgress.Width = PCTDone_in * _
 (.FrameProgress.Width)
 ' Display the current file from global variable 
 .Label1.Caption = Declaration.CurrentFile
End With
End Sub
</code></pre>

4) in any other module we must have the functions or the procedure/sub where the routine is done:

<pre><code> For i=1 to All_Files

 Declaration.CurrentFile = myFiles (i)

 FormFnc.UpdateProgressBar (i / .Range("C11").Value)


 DoEvents

 If Declaration.StopForce = 1 Then
 GoTo 3
 End If

 Next i
</code></pre>

blocks|key|784998|text|实际上，你有以下属性，根据你的需要来决定你的优劣：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|784999|Type++++++%7C+Impact+on+UI+%7C+Impact+on+caller+execution
----------%7C--------------%7C-----------------------------
Modal+++++%7C+Blocked++++++%7C+Blocked+until+Form+is+closed
Modeless++%7C+Not+blocked++%7C+Continues|code-block|syntax|javascript|785000|如果您想阻止UI并让调用者继续，那么您需要使用Application.OnTime在模式模式下打开表单。|offset|length|style|CODE|785001|entityMap^0|0|0|N|I|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Actually you have following properties, resulting in pros/cons depending on your need:

<pre><code>Type | Impact on UI | Impact on caller execution
----------|--------------|-----------------------------
Modal | Blocked | Blocked until Form is closed
Modeless | Not blocked | Continues
</code></pre>

If you want to block the UI AND let the caller continue, then you need to open the Form in modal mode with <code>Application.OnTime</code>.

Is it better to show ProgressBar UserForms in VBA as modal or modeless? What are the best practices for developing progress indicators in VBA?

Modeless UserForms require the use of <code>Application.Interactive = False</code>, whereas Modal UserForms by their very nature block any interaction with the application until the core procedure has finished, or is cancelled.

If <code>Application.Interactive = False</code> is used, however, the Esc key interrupts code execution, so the use of <code>Application.EnableCancelKey = xlErrorHandler</code> and error handling (<code>Err.Number = 18</code>) is required in both the UserForm and the calling procedure.

Resource intensive calling procedures can also result in <code>CommandButton_Click</code> and <code>UserForm_Activate</code> events misfiring in modeless UserForms.

In general, progress indicators that use modal UserForms seem simpler, because the code that is being executed is fully contained in the UserForm module, and there is less need for passing of variables.

The problem, however, with using modal UserForms for progress indicators is that a separate UserForm module is required for every procedure that needs a progress indicator, because the calling procedure has to be inside the UserForm_Activate procedure.

So, while it is possible to have a single reusable progress indicator in a modeless UserForm, it will be less reliable than executing the code from within multiple modal UserForms.

Which way is better?

Thanks!

Is it better to show ProgressBar UserForms in VBA as modal or modeless?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

EdgeOne AI 安全实战专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

在VBA中将ProgressBar UserForms显示为有模式或无模式哪一个更好？在VBA中开发进度指示器的最佳实践是什么？无模式UserForms需要使用Application.Interactive = False，而模态UserForms的本质是阻止与应用程序的任何交互，直到核心过程完成或被取消。但是，如果使用Application.Interactive = False，Esc键会中断

问在VBA中将ProgressBar UserForms显示为有模式或无模式哪一个更好？
EN

回答 5

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在VBA中将ProgressBar UserForms显示为有模式或无模式哪一个更好？EN

回答 5

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在VBA中将ProgressBar UserForms显示为有模式或无模式哪一个更好？
EN