Saberexcel - site das macros
Essas declarações e funções do Aplicativo Microsoft Excel VBA, retorna uma mensagem personalizada do Windows Explorer e algumas informações do sistema conforme mostra a mensagem abaixo.


Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" _
(ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As _
String, ByVal hIcon As Long) As Long
Declare Function GetActiveWindow Lib "user32" () As Long


Sub Sobre_Saberexcel_BR()
Dim hwnd As Integer
On Error Resume Next
hwnd = GetActiveWindow()
ShellAbout hwnd, Nm, vbCrLf + Chr(169) + "" & "SaberexcelBR - Excel VBA Estudos®" _
+ vbCrLf, 1
On Error GoTo 0
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

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 o Aplicativo Microsoft Excel VBA - Saberexcel