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.
Especialista em Relatórios e Dashboards no Excel e no PowerBI.
- 6 maneiras de usar o preenchimento relâmpago - março 12, 2021
- quatro motivos para voce parar de usar o procv - fevereiro 16, 2021
- Como Criar um Gráfico de Waterfall no Excel - fevereiro 2, 2021
