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

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

Macros do Aplicativo Microsoft Excel VBA contendo mensagens simples e com múltiplas escolhas.

msgbox simples
Sub vba_msgbox_exemplo_I()
MsgBox "Aprenda MS Excel VBA", vbInformation, "Saberexcel - o site das macros"
End Sub

msgbox usando a instrução if...then else, com duas escolhas sim e ou nao.
Sub vba_msgbox_exemplo_II()
If MsgBox("Escolha SIM ou NÃO", vbQuestion + vbYesNo) = vbYes Then _
MsgBox "você optou por SIM" Else MsgBox "voce optou por NÃO"
End Sub

msgbox usando a instrução select case, com tres escolhas, sim, nao, cancelar
Sub vba_msgbox_exemplo_III()

Select Case MsgBox("Escolha SIM, NAO OU CANCELAR", vbQuestion + vbYesNoCancel)

Case vbYes: MsgBox "Você optou por SIM", vbInformation, "Saberexcel - o site das macros"
Case vbNo: MsgBox "Voce optou por NÃO", vbCritical, "Saberexcel - o site das macros"
Case Else: MsgBox "Você optou por CANCELAR", vbCritical, "Saberexcel - o site das macros"

End Select

End Sub



Aprenda Microsoft Excel VBA (Saberexcel)

Saberexcel - O Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, emite uma mensagem com espaços iniciais, aqui na macro determinado como (50), observe que funcionará como um Splash Screen. é bem legal.



Sub Splash_Screen_Msg()
Dim WShell As Object
Dim mensagem As String
Application.StatusBar = "Espere apenas dois segundos...."
mensagem = Space(50) & "http://www.saberexcel.com" & Space(50)
Set WShell = CreateObject("WScript.Shell")
r = WShell.Popup(mensagem, 2, Space(35) & "Excel VBA Estudos®", 4096)
Set WShell = Nothing
Application.StatusBar = ""
End Sub




Aprenda tudos sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha no livro, e emite uma determinada mensagem, são sete exemplos de mensagem que o vb emite ao inserir uma nova folha de planilha no livro ativo.

Sub Adiciona_planilha()
Worksheets.Add
MsgBox "Macros finalizada.", vbInformation, "http://www.saberexcel.com"
End Sub

Adiciona uma planilha e mostra o nome da planilha adicionada
Exemplo simples de mensagem com o ícone de infomações (Information icon)
Sub Adiciona_planilha_2()
Worksheets.Add
MsgBox "Uma nova planilha foi adicionada ao livro." _
, vbInformation + vbOKOnly, "Macro finalizada!!"
End Sub

Adiciona uma planilha e mostra o nome da planilha adicionada
Sub Adiciona_planilha_3()
Dim sht As Worksheet
Set sht = Worksheets.Add
MsgBox "A nova planilha foi adicionada." & vbCrLf & _
"O o nome da nova planilha é : " & sht.Name _
, vbInformation + vbOKOnly, "Macro finalizada!"
End Sub

Adiciona uma nova planiha e inica que a planilha foi adicionada
vem com o vb yes/no, se não querer a macro sai da execução
Sub Adiciona_planilha_4()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then Exit Sub
Worksheets.Add
MsgBox "A nova planilha foi adicionada.", vbInformation, "http://www.saberexcel.com"
End Sub

Esta macro usa a mensagem Yes/No, e pergunta se quer inserir uma planilha e se a resposta
foi não informa que não foi adicionada e se sim e informa que [sim ]
Sub Adiciona_planilha_5()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then
MsgBox "Não foi adicionada a worksheet", vbInformation
Else
Worksheets.Add
MsgBox "Uma nova planilha foi inserida no workbook.", vbInformation, "http://www.saberexcel.com"
End If
End Sub

Esta macro usa a mensagem Yes/No/Cancel, e pergunta se quer inserir uma
nova planilha com formata de data e horario, tem a opção de sim, nao ou cancela
Sub Adiciona_planilha_6()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Deseja inserir uma nova planilha ao workbook com formato de dia e hora?" _
, vbQuestion + vbYesNoCancel)
If Response = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhnnss")
ElseIf Response = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Macro finalizada!.........", vbInformation, "http://www.saberexcel.com"
End Sub


Esta macro usa a instrução Case e analisa a msg com yes/no/cancel (caixa de mensagem)
Yes/No/Cancel message box.
Sub Adiciona_planilha_7()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Você deseja inserir a planilha com formato dia e hora?" _
, vbQuestion + vbYesNoCancel)
Select Case Response
Case vbYes
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhmmss")
Case vbNo
Worksheets.Add
Case vbCancel
Exit Sub
End Select
MsgBox "Macro finalizada.....", vbInformation, "http://www.saberexcel.com"
End Sub

Esta macro deleta todas as planilhas exceto a escolhida para não ser deletada
Sub Deleta_Planilhas_Exceto_Desejada()
On Error Resume Next
For Each Nm In Worksheets
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
If Nm.Name <> "PRINCIPAL" Then
Nm.Delete
End If
Next
End Sub

Aprenda Aplicativo Microsoft Excel VBA ---( SaberExcel VBA )--
Sozinho, em casa, com excelente material de estudos (SaberExcel)