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 Bernardes, DataPigTechnologies.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.

bernardess@gmail.com