Vamos elaborar uma aplicação onde ao abrir a planilha em questão é exibida uma mensagem de “bom dia”, “boa tarde” ou “boa noite”e o nome do usuário conforme o horário do sistema operacional. Abra a janela do VBA teclando Ctrl + F11. No VBA clique em Inserir/Módulo e digite o seguinte código:
Sub mensagens()
Dim MinhaHora
MinhaHora = Hour(Now)
Select Case MinhaHora
Case 1 To 5
MsgBox “Bom Noite” & Application.UserName
Case 6 To 11
MsgBox “Bom Dia ” & Application.UserName
Case 12 To 17
MsgBox “Bom Tarde ” & Application.UserName
Case 18 To 24
MsgBox “Bom Noite ” & Application.UserName
End Select
End Sub
Com o comando Application.UserName é extraido o nome cadastrado no Excel.
Agora na opção “EstaPasta_de_trabalho” (na barra Projeto, bem acima da caixa Propriedades) no evento Workbook_Open digite:
call mensagens
Salve o aquivo e feche-o. Agora abra novamente e confira o resultado.
Boa noite caros
Segue o passo a passo
1.Abra o excel
2.agora use o atalho no teclado Alt+F11
3.Vá em INSERIR e Modulo
4.Agora copie o codigo que estáno site:
Sub mensagens()
Dim MinhaHora
MinhaHora = Hour(Now)
Select Case MinhaHora
Case 1 To 5
MsgBox “Bom Noite” & Application.UserName
Case 6 To 11
MsgBox “Bom Dia ” & Application.UserName
Case 12 To 17
MsgBox “Bom Tarde ” & Application.UserName
Case 18 To 24
MsgBox “Bom Noite ” & Application.UserName
End Select
End Sub
5.Agora na opção “EstaPasta_de_trabalho” (na barra Projeto, bem acima da caixa Propriedades), ao lado na parte em branco digite o codigo conforme figura que está no site:
Private Sub Workbook_Open()
Call mensagens
End Sub
Pronto agora salve o arquivo e abra o excel vai funcionar.
Obs: Na parte da MsgBox “Bom Noite” & Application.UserName , ageite as aspas ela está errado, selecione e coloque as aspas assim:”Bom Noite “, está errada na site, faça isso tantono “Bom dia ” quanto no “Boa tarde “.
Ah deixe um espaço entre o noite e ” (aspas) “Boa Noite “, para separar na hora que dispara a tela vai informar o seguinte dependendo do horario que voce vai abrir se for a tarde vai ficar assim: Boa tarde xxxx, tento o espaço vai separa as saudações do usuario.
Falow gente até a proxima.
Post atualizado!
Não entendi essa formula, onde eu acho o VBA? Se tiver como detalhar… agradeço
Infelismente eu não conseguir aplica sua dica no VBA, pois eu não entendi a ultima faze.
Agora na opção esta pasta de trabalho no evento workbook Open digite:
call mensagens