°õ¦æµ{¦¡®ÉÅýProgressBar Åã¥Ü¶i«×
- ©«¤l
- 55
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-7-17
- ³Ì«áµn¿ý
- 2020-12-31
|
°õ¦æµ{¦¡®ÉÅýProgressBar Åã¥Ü¶i«×
½Ð±Ð¦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«×? |
|
§A²q!!
|
|
|
|
|
- ©«¤l
- 55
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-7-17
- ³Ì«áµn¿ý
- 2020-12-31
|
¦^´_ 2# Scott090
½Ð°Ý®v¥S§Ú¸Õ¤F¨S°Ê§@C¡A¯à½Ð±Ð«ç»ò¥Î¶Ü?
¬O©ñ¦bProgressBar¸Ì±ÁÙ¬O°õ¦æªº«ö¶s¸Ì±? |
|
§A²q!!
|
|
|
|
|
- ©«¤l
- 55
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-7-17
- ³Ì«áµn¿ý
- 2020-12-31
|
¦^´_ 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 |
|
§A²q!!
|
|
|
|
|
- ©«¤l
- 55
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-7-17
- ³Ì«áµn¿ý
- 2020-12-31
|
¦^´_ 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®¦ |
|
§A²q!!
|
|
|
|
|
- ©«¤l
- 55
- ¥DÃD
- 17
- ºëµØ
- 0
- ¿n¤À
- 79
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-7-17
- ³Ì«áµn¿ý
- 2020-12-31
|
¦^´_ 8# Scott090
§Ú¦¨¥\¸Ñ¨M¤F¡A·PÁ±zªº¨ó§U |
|
§A²q!!
|
|
|
|
|