Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Barra de progresso
 
Notifications
Clear all

Barra de progresso

 
2024 - VBA & Macros
Post Recente por Charlie-81 12 anos atrás
10 Posts
2 Usuários
0 Reactions
1,883 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigos
Boa tarde

Possuo um barra de progresso que ao clicar no OK ela percorre....
(se não me engano peguei ate aqui mesmo esse exemplo....)

Porem gostaria que ao Chegar a 100% ela fechasse sozinha...

O código que uso é:
Private Sub CommandButton1_Click()

lin = 1

ProgressBar1.Min = 1
ProgressBar1.Max = 10000

Do Until lin = 10000

lin = lin + 1
ProgressBar1.Value = lin
Percent = lin / 10000
StatusBar1.Panels(1) = FormatNumber(Percent, 2) * 100 & "%"

Loop

End Sub

Abraços e obrigado pela ajuda

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/07/2012 2:18 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Um fato estranho, mande seu arquivo COMPACTADO!!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/07/2012 5:13 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue anexo o arquivo....
Só preciso que depois que chegue a 100% ele automaticamente feche...

Abraços

(Como dito, peguei o exemplo daqui mesmo... heheheh)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/08/2012 6:07 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não sei se entendi, mas veja se e isso:
apos a linha onde esta "loop"

acrescente

unload me

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/08/2012 8:10 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Coloque como última linha:

Unload Me

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/08/2012 8:14 am
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
 

Veja se é isso.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 01/08/2012 8:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Opa!!

Foi junto...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/08/2012 8:17 am
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
 

heheheh... aproveitando que muitos estão querendo ajudar, vejam se conseguem me ajudar neste tópico: viewtopic.php?f=23&t=5098

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 01/08/2012 8:21 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito Obrigado... Uso essa barra somente para "chamar atenção".. hhehehehe

Abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/08/2012 8:22 am
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
 

Muito Obrigado... Uso essa barra somente para "chamar atenção".. hhehehehe

Abraços

pois é... meio que reparei. Ela por si só não tem finalidade nenhuma... mas enfim, foi resolvida a questão e isso é o que importa.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 01/08/2012 8:24 am
Forum Jump:
  Tópico Anterior
Próximo Tópico