进度条

lllllllll

8r7qXHdV.rar (25.46 KB, 下载次数: 112)

2008-2-17 02:05 上传

点击文件名下载附件
进度条

lllllllll

窗体上显示的时间跟进度条其实不能同步 还得想办法解决

lllllllll

这样好些

Private Sub Workbook_Open()
 
  UserForm1.Show
End Sub

Private Sub UserForm_Activate()
  Dim m As Date
  Dim i%
  For i = 1 To 100 Step 100 / 10
    m = Now + TimeValue("0:00:01")
    Application.Wait TimeValue(m)
    ProgressBar1.Value = i
    UserForm1.Caption = "               " & 10 - Mid(i, 1, 1) & "秒后本窗口将自动关闭"
  Next i
 Unload UserForm1
End Sub

清风明月12

谢谢分享，学习一下