VBA窗體模擬顯示進度條
阿新 • • 發佈：2018-12-30
Sub
gogogo()
'*****************************************************************
'此巨集模擬顯示進度條，放在模組中
'窗體UserForm1中有label1,label2.label3.label4
'label1,2,3重疊在一起
'label1為底,label2為進度條,label3顯示百分比,label4顯示文字說明
'長度都為200，高度為15
'底色為灰，進度條深藍，百分比字型顏色黃色
'*****************************************************************
Dim i, j As Integer, k As String
j = 1
UserForm1.Show 0
For i = 1 To 100 Step 0.002
If j > 100 Then j = 1
If j = 1 Then
k = "資料正在處理中" & ">"
ElseIf j Mod 10 = 0 Then
k = k & ">"
End If
UserForm1.Label4.Caption = k
j = j + 1
UserForm1.Label2.Width = i / 100 * 200
UserForm1.Label3.Caption = Format(i, "0") & "%"
DoEvents
Next i
Unload UserForm1
MsgBox "資料處理完畢！程式退出！", 64, "系統提示"
End Sub
'*****************************************************************
'此巨集模擬顯示進度條，放在模組中
'窗體UserForm1中有label1,label2.label3.label4
'label1,2,3重疊在一起
'label1為底,label2為進度條,label3顯示百分比,label4顯示文字說明
'長度都為200，高度為15
'底色為灰，進度條深藍，百分比字型顏色黃色
'*****************************************************************
Dim i, j As Integer, k As String
j = 1
UserForm1.Show 0
For i = 1 To 100 Step 0.002
If j > 100 Then j = 1
If j = 1 Then
k = "資料正在處理中" & ">"
ElseIf j Mod 10 = 0 Then
k = k & ">"
End If
UserForm1.Label4.Caption = k
j = j + 1
UserForm1.Label2.Width = i / 100 * 200
UserForm1.Label3.Caption = Format(i, "0") & "%"
DoEvents
Next i
Unload UserForm1
MsgBox "資料處理完畢！程式退出！", 64, "系統提示"
End Sub