Views

Histats

Vitrine

VBA Excel - Barra de Progresso na Barra de Status - Show a Progress Meter in the Status Bar




Show a Progress Meter in the Status Bar



Olá pessoal!

Complementando o tópico anterior, segue novo Post com opção de utilização da nossa Barra de Status do MS Excel. Chamaremos este exemplo de SHOW A PROGRESS METER IN THE STATUS BAR.

Sim, é bom lembrar que este exemplo de código serve para ampliar a visão sobre como utilizar outras informações úteis na Barra de Status, fica mais um exemplo!

PASSO ÚNICO





Insira o código da função e efetue chamadas a ela.




Sub ShowProgress2()



    ' Author                        Contact                        Place



    ' André Luiz Bernardes          bernardess@gmail.com           http://inanyplace.blogspot.com/



    ' Show a Progress Meter in the Status Bar







    Let Application.DisplayStatusBar = True







    ' 1ª Mensagem



    Let Application.StatusBar = String(5, ChrW(9609)) & "Processando..."







    Application.Wait Now + TimeValue("00:00:02")







    ' 2ª Mensagem



    Let Application.StatusBar = String(10, ChrW(9609)) & "Ainda processando..."







    Application.Wait Now + TimeValue("00:00:02") '-- Replace this line with your own code to do something







    ' 3ª Mensagem



    Let Application.StatusBar = String(15, ChrW(9609)) & "Finalizando..."







    Application.Wait Now + TimeValue("00:00:02") '-- Replace this line with your own code to do something







    Let Application.StatusBar = False



End Sub

References: André Luiz BernardesDataPigTechnologies.com

Tags: Bernardes, iniciantes, MS, Microsoft, Office, VBA, Excel, Status Bar, Barra de Status, Status, information, range, selected



André Luiz Bernardes
A&A® - Work smart, not hard.


✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias