Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, insere uma barra de progessão com porcentagem na barra de Status.


Sub BarraDeProgressaoStatusbar()
Dim R As Integer
Dim MT As Double

For R = 1 To 180

MT = Timer

Do
Loop While Timer - MT < 0.05

Application.StatusBar = "Progresso....: " & R & " de 180: " & _
Format(R / 100, "P e r c e n t e n t u a l") & " --- " & "Comprimento -Saberexcel "
DoEvents

Next R

Application.StatusBar = False

End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planilha da macro acima
 Excel planilha vba barra de progressao insere na barra de status (241.79 kB)