°õ¦æµ{¦¡®ÉÅýProgressBar Åã¥Ü¶i«×

bear0925900003

½Ð±Ð¦U¦ì®v¥S
§Ú¦³½T©w1  ½T©w2  ½T©w3  ½T©w4  ½T©w5  ½T©w6 µ¥6­Ó°Æµ{¦¡
§Ú¥t¥~³]¤@­Ó«ö¶s¡A«ö¤U«á·|¤@¦¸°õ¦æ6­Ó°Æµ{¦¡¡A·Q½Ð±Ð¦p¦ó°õ¦æ6­Ó°Æµ{¦¡¦P®ÉÅýProgressBarÅã¥Ü¶i«×?

bear0925900003

¦^´_ 2# Scott090


    ½Ð°Ý®v¥S§Ú¸Õ¤F¨S°Ê§@­C¡A¯à½Ð±Ð«ç»ò¥Î¶Ü?
¬O©ñ¦bProgressBar¸Ì­±ÁÙ¬O°õ¦æªº«ö¶s¸Ì­±?

bear0925900003

¦^´_ 4# Scott090

½Ð°Ý®v¥S¤U¤èªºµ{¦¡¤¤¡A§Úªº°Æµ{¦¡¸Ó¥[¦b­þ¸Ì©O?½Ð½ç±Ð

    #001  Private Sub CommandButton1_Click()
#002      Dim i As Integer
#003      UserForm1.Show 0
#004      With UserForm1.ProgressBar1
#005          .Min = 1
#006          .Max = 10000
#007          .Scrolling = 0
#008          For i = 1 To 10000
#009              Cells(i, 1) = i
#010              .Value = i
#011              UserForm1.Caption = "¥¿¦b运¦æ,¤w§¹¦¨" & i / 100 & "%,请µy­Ô!"
#012          Next
#013      End With
#014      Unload UserForm1
#015      Columns(1).ClearContents
#016  End Sub

bear0925900003

¦^´_ 6# Scott090


    ®v¥S§A´£¨Ñªº½d¨Ò¡A·|¥ý±NÀx¦s®æAÄæ¶ñ¤J¼Æ¦r³Ì«á¦A§R°£¡A§Ú»Ý­nÀx¦s®æ¤£¶ñ¤J¥ô¦ó¼Æ¦r¥u°õ¦æ§Úªº½T»{1~6ªº°Æµ{¦¡¡A¸Ó¦p¦ó­×§ï¡A½Ð½ç±Ð¡A·P®¦

bear0925900003

¦^´_ 8# Scott090


    §Ú¦¨¥\¸Ñ¨M¤F¡A·PÁ±zªº¨ó§U