°õ¦æµ{¦¡®ÉÅý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

¦^´_ 8# Scott090


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

Scott090

¦^´_ 7# bear0925900003


    ¸ÕµÛ¦b cells(i,1)=1 ªº¦a¤è¸ÕµÛ©ñ¤J ­n°õ¦æªºµ{¦¡½X¸m´«±¼ Cells(i,1)=1
¥H¤Uªº¦a¤è½Ð¦A°Ñ¦Ò¡G
http://forum.twbts.com/viewthrea ... ht=%B6i%AB%D7%B1%F8

¤]³\§âÀɮפW¶Ç¡A¥i¥H¸û¨ãÅ骺¤¬¬Û¬ã¨s¤@¤U

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®¦

Scott090

¦^´_ 5# bear0925900003


    ³o¬O¦P¤@ºô¯¸¤U¸üªº¦¨«~¡Aµ{¦¡´N©ñ¦bVBAªº½s¿è°Ï¤º
133-1 ¨Ï¥Î¶i«×±ø±±¥óProgressBar.rar (12.33 KB)

¤U¸ü¦¸¼Æ: 39

2015-6-11 20:55

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

Scott090

¦^´_ 3# bear0925900003

³o¬OÅã¥Ü StatusBar°T®§¡A¦bExcel¥ª¤U¨¤¡G
Sub test()
      Application.DisplaystatusBar = True
      Application.statusBar = " ´ú¸Õ ......."
      Application.DisplayStatusBar = False
End sub
¤@¨B¨B¤â°Ê´ú¸Õ

°²¦p¤@©w­n ProgressBar¡A½Ð°Ñ¦Ò¤U¦Cºô§}¡A¦ý½Ð½T»{§AªºUSERFORM­n¯à¦³ ProgressBar ±±¥ó¡G   
http://club.excelhome.net/forum.php?mod=viewthread&tid=395683&authorid=167149&page=25

bear0925900003

¦^´_ 2# Scott090


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

Scott090

¦^´_ 1# bear0925900003


    ³o­Ó¬O¤£¬O§A·Q­nªº¡G
Application.DisplayStatusBar = True
Application.StatusBar = "½T©w¤@ ..."