[已解决]谢谢mxg825 老师，进度条为何没有反应？

lhj323323

Private Sub CommandButton1_Click() '窗体的“运行”按纽     
res = MsgBox("请确认是否将文本文件数据导入到数据库中？", vbYesNo, "导入确认")
    If res = vbYes Then  '2
    CommandButton7.Caption = "取 消" '原[退出]按纽变为[取消]按纽
    Label1.Caption = "系统正在加载数据文件，请稍后 ...."
    Label1.Visible = True
      On Error GoTo errbad
'=========进度条=========================
    ProgressBar1.Min = 0
    ProgressBar1.Max = w
    Label14.Caption = "0%"
    ProgressBar1.Value = h
    Label14.Caption = Round(h / w, 2) * 100 & "%"
    DoEvents
      h = h + 1
'========运行程序======
。。。。。。。。。。

========程序运行结束======
      
If Label14.Caption = "100%" Then
   Rows("1:1").AutoFilter
   Label1.Caption = "文本数据加载成功！"
   MsgBox "系统已经成功提取并导入数据！", vbOKOnly, "系统响应"
Else
  Label1.Caption = "文本数据加载失败！"
  MsgBox "原始文本数据中包含有异常结束符，请替换所有异常字符后重新执行操作！", vbOKOnly, "系统响应"
End If
  
Label1.Visible = False
  CommandButton7.Caption = "退 出"
  Unload UserForm1
  Exit Sub
errbad:
  MsgBox "数据导入失败或终止，若为非人为终止请检查数据文本的准确性！", vbOKOnly + vbCritical, "系统响应"
  
  Unload UserForm1
Else
End If
End Sub

最佳答案

月排行榜 / 总排行榜

mxg825

2011-6-4 15:46

1. Sub 进度条()
   
2. Dim W%, h%
   
3. '进度条初始化#####
   
4.     W = 100
   
5.     ProgressBar1.Min = 0
   
6.     ProgressBar1.Max = W
   
7.     Label14.Caption = "0%"
   
8. '##############
   
9.     '假设以下是你的程序过程 一个循环********
   
10.     For h = 1 To W
    
11.         ProgressBar1.Value = h
    
12.         Label14.Caption = Round(h / W, 2) * 100 & "%"
    
13.     Next h
    
14.     '***************************
    
15. End Sub

复制代码

跳转到最佳答案楼层

mxg825

进度条w没赋值

lhj323323

回复 mxg825 的帖子

那如何对W赋值呢？

lhj323323

回复 lhj323323 的帖子

向朋友们求助

mxg825

你搜索一下 进度条。。下载个例子看看
或上传你的附件！

lhj323323

回复 mxg825 的帖子

附件在单位里，现在我在家里，无法将附件上传。

mxg825

1. Sub 进度条()
   
2. Dim W%, h%
   
3. '进度条初始化#####
   
4.     W = 100
   
5.     ProgressBar1.Min = 0
   
6.     ProgressBar1.Max = W
   
7.     Label14.Caption = "0%"
   
8. '##############
   
9.     '假设以下是你的程序过程 一个循环********
   
10.     For h = 1 To W
    
11.         ProgressBar1.Value = h
    
12.         Label14.Caption = Round(h / W, 2) * 100 & "%"
    
13.     Next h
    
14.     '***************************
    
15. End Sub

复制代码

lhj323323

回复 mxg825 的帖子

谢谢mxg825 老师

•     For h = 1 To W
•         ProgressBar1.Value = h
•         Label14.Caption = Round(h / W, 2) * 100 & "%"
•     Next h
  这四句是放在我的程序循环中？还是循环前？还是循环后？
  

mxg825

程序循环中，W 可设为你的程序循环 就最大次数值，H当前次数
只加这两句
        ProgressBar1.Value = h
        Label14.Caption = Round(h / W, 2) * 100 & "%"

lhj323323

回复 mxg825 的帖子

谢谢老师指点。