请问 <em>excel</em>的<em>VBA</em>中Do Wh

自己先源做一个进度条，然后套用这段代码，注，增加百进度条一般会降低你的运行速度

UserForm1.Show 0
With UserForm1.ProgressBar1
.Min = 1
.Max = ii
.Scrolling = 0
.Value = i‘’度‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘你的循知环值
UserForm1.Caption = "正在运行,已完成" & Int(i / ii * 100) & "%,请稍候!"
End With
你先调试一下试试看道，不行再联系

你这个进度条是由r来控制的么，如果是那就在r=r+1后插入进度条

首选要加入一个控件，控件是 progressbar比如你在工作表中zd插入了一个这样的专控件，然后设置它的min=0,max=100,当然也可以用代码来设置的。然后在工作表中插入如下代码Sub test()
For i = 1 To 100000000
If i Mod 100 = 0 Then
Me.ProgressBar1.Value = i \ 1000000
End If
Next i
End Sub类似于这样的，就是每次循环时，进属度条得到赋值。