展開全部

先要有進(jìn)度條的控件，代碼其實不復(fù)雜的。

在窗體中，找這個控件microsoftprogressbar

加載以后，窗體代碼

PrivateSubUserForm_Click()

Fori=1To100000

Me.ProgressBar1.Value=i

Nexti

EndSub

PrivateSubUserForm_Initialize()

Me.ProgressBar1.Min=0

Me.ProgressBar1.Max=100000

EndSub

然后試試吧

這只是一個例子，具體到你代碼中，只要領(lǐng)會上面的意思你就會了。