這是很簡單的事情，有人居然說不能實現？你新建一個窗體，加一個LABEL1，然後在程式開始時呼叫窗體：UserForm1.Show 0:DoEvents，彈出提示，在程式結束時解除安裝窗體：Unload UserForm1，就搞定了。透過UserForm1.Label1.Caption = "****字串***"語句還可以在過程中根據環境設定不同的提示。上傳了一個附件，大家放心使用，為本人編寫，不存在版權問題。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub test()Dim i&UserForm1.Show 0DoEvents "沒有DoEvents，窗體會空白UserForm1.Label1.Caption = "正在載入資料，請稍等……"DoEventsFor i = 1 To 100 "可以把迴圈替代成具體事務 Sleep 100: DoEventsNextUserForm1.Label1.Caption = "正在進行計算，請稍等……"DoEventsFor i = 1 To 100 Sleep 100: DoEventsNextUnload UserForm1End Sub
這是很簡單的事情，有人居然說不能實現？你新建一個窗體，加一個LABEL1，然後在程式開始時呼叫窗體：UserForm1.Show 0:DoEvents，彈出提示，在程式結束時解除安裝窗體：Unload UserForm1，就搞定了。透過UserForm1.Label1.Caption = "****字串***"語句還可以在過程中根據環境設定不同的提示。上傳了一個附件，大家放心使用，為本人編寫，不存在版權問題。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub test()Dim i&UserForm1.Show 0DoEvents "沒有DoEvents，窗體會空白UserForm1.Label1.Caption = "正在載入資料，請稍等……"DoEventsFor i = 1 To 100 "可以把迴圈替代成具體事務 Sleep 100: DoEventsNextUserForm1.Label1.Caption = "正在進行計算，請稍等……"DoEventsFor i = 1 To 100 Sleep 100: DoEventsNextUnload UserForm1End Sub