Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

Esses macros do Aplicativo MS Excel VBA(Visual Basic Application), emite uma mensagem temporária, conforme os argumentos atribuidos a subrotina
AutoFechaMsgbox, que voce poderá atribuir a sua mensagem um determinado tempo para fechar automaticamente.
Espero que o exemplo lhes sejam útil. Fiquem com Deus, Expedito Marcondes

'- - - - - - - - - - - - - - - - - - -
Private Sub AutoFechaMsgBox(Mensagem As String, Titulo As String, Segundos As Integer)
Set oSHL = CreateObject("WScript.Shell")
oSHL.PopUp Mensagem, Segundos, Titulo, vbOKOnly + vbInformation
End Sub
'- - - - - - - - - - - - - - - - - - -
Sub AutoMessagem()
AutoFechaMsgBox "Clique em OK ou aguarde", "MsgBox fecha automaticamente", 1
AutoFechaMsgBox "Alterar o Cadastro de Clientes", "Cadastro de Clientes", 2
AutoFechaMsgBox "Aprenda Microsoft Excel VBA" & vbCrLf _
& "Praticando, com os produtos didáticos" & vbCrLf _
& "Escola SaberExcel", "Curso MS Excel VBA Saberexcel", 2
End Sub
'- - - - - - - - - - - - - - - - - - -

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

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
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 - 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

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)