Exibir uma mensagem Aguarde....

[Mestre Kame]

Olá Pessoal,

Estou fazendo um programa no VBA do Excel e algumas funções levam bastante tempo para serem executadas, então eu gostaria de exibir uma mensagem para o usuario indicando que o sw não travou. Essa mensagem pode ser do tipo: processando..., Aguarde... , alguma mensagem que não de a impressão do sw ter travado.

Eu tentei usar uma msgbox, mas o problema é que ela trava a execução do aplicativo, ou seja o sw só volta rodar quando o usuário fecha a mensagem.

Um Abraço,

[Never Surrender]

não é 100% certo

porque eu nunk tentei

mas voce já pensou em chamar um formulario apenas com um label dizendo aguarde?

apos finalizar a aplicação o programa fecharia o formulario tambem

[Mestre Kame]

Eu tentei fazer isso, mas acontece a mesma coisa que o msgbox. O Programa fica travado aguardando o formulário ser fechado.

[kuroi]

mestre kame, é possivel fazer do modo q o never falou.

entretanto, os forms não devem ser chamados como modais pra execucao poder continuar.

o modal significa q o form para a execucao de todo o resto enquanto ele é exibido. o padrão do vba acho q é chamar como modal.

exemplo, se você chama o form apertando F5 do editor do visual basic, ele vai vir como modal e ai não tem jeito mesmo, a ideia do never não vai funcionar. a não ser q tenha como chamar o form de modo não modal a partir do F5, mas desconheco como fazer.

entretanto se você chamar o form a partir do clique de um botao na planilha por exemplo, passe 0 como parametro no show. tipo assim:

UserForm1.Show 0

e passe 0 tb quando for chamar o formulario com a mensagem.

o 0 significa q o formulario não sera mostrado como modal.

Editado Maio 14, 2009 por kuroi

[Mestre Kame]

O VBA não aceitou .Show 0

O help do VBA fala que um formulário é sempre modal.

Acho que não vai ter como exibir a mensagem "Aguarde..." enquanto o programa está rodando. :(

[kuroi]

se você vai do editor do visual basic é sempre modal mesmo.

mas como eu disse antes...

entretanto se você chamar o form a partir do clique de um botao na planilha por exemplo, passe 0 como parametro no show. tipo assim:

UserForm1.Show 0

e passe 0 tb quando for chamar o formulario com a mensagem.

o 0 significa q o formulario não sera mostrado como modal.

[Mauro Okamoto]

Usando um Form (no exemplo chamado de "Aguarde") seria o seguinte:

Sub Teste

Aguarde.Show vbModeless
i = 0
Do While i < 10000
i = i + 1
Loop
Unload Aguarde

End Sub