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)