44、高级用户窗体技术：进度指示器与向导创建

高级用户窗体技术：进度指示器与向导创建

1. 创建独立进度指示器

独立进度指示器可用于显示宏的执行进度，而无需通过显示用户窗体来启动。以下是一个示例宏，它会清除工作表并向一系列单元格写入20,000个随机数：

Sub GenerateRandomNumbers()
    '   Inserts random numbers on the active worksheet
    Const RowMax As Long = 500
    Const ColMax As Long = 40
    Dim r As Long, c As Long
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    Cells.Clear
    For r = 1 To RowMax
        For c = 1 To ColMax
            Cells(r, c) = Int(Rnd * 1000)
        Next c
    Next r
End Sub

对这个宏进行一些修改后，用户窗体将显示进度。

1.1 构建独立进度指示器用户窗体

按以下步骤创建用于显示任务进度的用户窗体：
1. 插入一个新的用户窗体，将其 Name 属性更改为 UProgress ，并将 Caption 属性更改为 Progress 。
2. 添加一个