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中是否还有其他类似label的对象可以在VBA中显示信息

2） 如果最初没有创建名为“UserForm1”的用户表单，我可以在运行时直接创建TextBox对象或其他合适的对象吗？因为，如果不调用UserForm1.Show函数，TextBox对象将不会显示

3） 如何在运行时保持UserForm或TextBox的显示状态，而不让用户通过交互来关闭它以继续

---

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

根据注释中的一些附加信息，保存子程序进度信息的最简单方法是使用Excel状态栏。因此，我们在子程序中放入如下内容：

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

其中，

rowNum

是表示当前行的变量（循环变量）。 这一点很重要-您需要在过程结束前调用此行返回标准状态栏行为：

Application.StatusBar = False

---

您的目标是显示进度信息吗？？在谷歌搜索“进度条”，或者在这里搜索，在这里我几乎看不到任何可能性。。。您希望显示哪些信息-仅显示一些带数字的文本？第三个问题通过调用UserForm1.Show（0）Hi，KazJaw解决。很高兴见到你。我只想在文本框或标签中显示运行时完成的行数。好了，卡兹贾夫。我认为进度信息是个好主意。我正在看。非常感谢。很抱歉没有像你期望的那样回答你的问题，但我给你一个我更喜欢的建议。在您的代码中使用

Application.StatusBar=“当前进度-行编号：”&rowNum

在excel应用程序的状态栏中显示运行时的进度。请记住，在子程序结束时，您必须向我们显示这一行

Application.StatusBar=False

。