Planilha Excel VBA Shapes 14 aguarde um momento

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

Planilha Excel VBA Shapes 14 aguarde um momento

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
Saberexcel – Shapes Autoforma alerta com tempo para execução do macro Esse exemplo de planilhas contem um macro que mostra uma imagem com alerta (Mensagem) enquanto o macro esta sendo executado, observe que usei uma rotina para dar um tempo entre uma linha de código e outra.
‘//=========’

Sub sbx_mensagem_alerta()
ActiveSheet.Shapes(“sbxIMAGEM”).Visible = True
Tempo 2#   ‘meio segundo ‘ Tempo 0.5
ActiveSheet.Shapes(“sbxIMAGEM”).TextFrame.Characters.Text = “Aguarde um momento…”
Tempo 4#
For i = 1 To 2000      ‘00000
Cells(9, 5).Value = (5000 – i)
Next i
ActiveSheet.Shapes(“sbxIMAGEM”).TextFrame.Characters.Text = “Pronto, Obrigado!…”
Tempo 3#
ActiveSheet.Shapes(“sbxIMAGEM”).TextFrame.Characters.Text = “Aguarde um momento…”
ActiveSheet.Shapes(“sbxIMAGEM”).Visible = False
End Sub
‘//=========’ TEMPORIZADOR   ex: meio minuto   ‘Tempo 0.5
Sub Tempo(SbTempo)
Dim VelhoTempo As Variant
If SbTempo < 0.01 Or SbTempo > 300 Then SbTempo = 1
VelhoTempo = Timer
Do
DoEvents
Loop Until Timer – VelhoTempo >= SbTempo
End Sub
‘//=========’ Escola Saberexcel VBA Estudos®

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.