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.


LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...