VBA:在运行时显示行号已完成

时间:2013-04-15 06:09:18

标签: vba

我无法观察到在运行时完成的行数。因此我在想为什么不出几行代码来显示在运行时完成的行数。

遵循我的实施:

Dim ownCntrl As Control
Set ownCntrl = UserForm1.Controls.Add("Forms.TextBox.1")
With ownCntrl
    .Name = "RowNoTextBox"
    .Value = "test"
    .Width = 150
    .Height = 25
    .Top = 10
    .Left = 10
    .ZOrder (0)
End With
UserForm1.Show

以下是我的疑问:

1)在TextBox对象旁边,Java中是否还有其他像Object这样的标签来显示VBA中的信息?

2)最初没有创建一个名为“UserForm1”的UserForm,我可以在运行时直接创建TextBox对象或其他合适的Object吗?原因是,如果没有调用UserForm1.Show函数,TextBox对象将不会显示

3)如何在运行时显示UserForm或TextBox,而无需用户的交互来关闭它以继续?

我刚刚开始学习VBA。感谢你们的建议。非常感谢。

1 个答案:

答案 0 :(得分:1)

根据评论中的一些其他信息,保留子程序进度信息的最简单方法是使用Excel状态栏。因此,我们在子程序中加入如下内容:

Application.StatusBar = "Current progress- Row No.: " & rowNum 

其中rowNum是表示当前行的变量(循环变量)。 这很重要 - 您需要在程序结束前返回调用此行的标准状态栏行为:

Application.StatusBar = False