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)

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

Essa macro do Aplicativo Microsoft Excel VBA, que insere cores em diversas áreas contíguas de células na folha de planilha.
Usando uma entrada de dados(InputBox) com argumento Type:=8, que é igual o RefEdit, libera para o usuário selecionar áreas diversas na folha de planilha, neste caso voce poderá pressionar a tela CTRL e selecionar várias áreas para que a macro insira cores nas áreas selecionadas atraves desta inputbox. Espero que a matéria possa lhe ser útil. Fique com Deus, Boa Sorte.
Baixe o exemplo de planilha no final da página.



Sub inputbox_colorindo_area()
Dim vRange As Range
Dim msgTitulo As String

msgTitulo = "Demonstração - Colorindo vários intervalos de células "

On Error Resume Next
Set vRange = Application.InputBox _
(Prompt:="- Escolha o intervalo de células que deseja colorir " & _
"SELECIONANDO-O" & vbCrLf & vbCrLf & "Pode ser em varias áreas " & _
"- Para selecionar, mantenha pressionada a Tecla Ctrl e " & vbCrLf & _
"- Selecione os intervalos desejados tecla ctrl pressionada", _
Title:=msgTitulo, Type:=8)

If Not vRange Is Nothing Then

MsgBox "As área foram selecionadas e vão ser coloridas!:" & vbCrLf & _
vRange.Address, vbExclamation, msgTitulo
'Atribuir uma cor de fundo das células
vRange.Interior.Color = RGB(255, 255, 0) 'amarelo

Else
MsgBox "Você não selecionou uma área !", _
vbOKOnly + vbInformation, msgTitulo & "Saberexcel"
End If

End Sub

Sub limpar_teste()
Cells.ClearFormats: [G1].Select
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

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