Saberexcel o site das macros
Os procedimento do Aplicativo Microsoft Excel VBA, emite uma mensagem splash enquanto um contador é executado, envia a mensagem, após a execução do rotina em dois segundos, fecha a mensagem gerada pelo userform
INSIRA O CÓDIGO ABAIXO NA FOLHA DE CÓDIGO DO USERFORM
Option Explicit
Dim p, s
Private Sub UserForm_Activate()
DoEvents
Call saber '
Label1.Caption = "Trabalho Terminado..................."
Label1.ForeColor = vbBlue
Beep
p = 2: s = Timer: Do While Timer < s + p: DoEvents: Loop
Unload UserForm1
End Sub
EM UM MÓDULO COMUM INSIRA O CÓDIGO ABAIXO
Essa macro vai inseir um contador enquanto o splashcreen (userform) exibe determinada mensagem, e fecha após dois segundos
do termino da execução da rotina.
Sub saber()
Dim Cell As Range
[A1] = 1
Do Until [A1] > 5000
For Each Cell In Range("A1")
Cell.Value = Cell.Value + 1
Next Cell
Loop
[A1].Select
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 contendo as macros acima
Excel planilha vba msgbox splash screen userform fecha apos execucao rotina (20.3 kB)
