Este fórum está sendo desativado

[MarceloAdriano]

Minhas Considerações aos membros desse fórum
Me chamo Marcelo Adriano de Contagem MG
Venho solicitar uma ajuda si possível, pois não sei nada de VBA gostaria de inserir uma msgbox com os seguintes dizeres:
"Sejam Bem Vindos a Planilha Gerencial da Clínica de Psicopedagogia Mente Brilhante" em baixo informando
a data atual, horário e a estação do ano referente. Isto é possível?
Desde já agradeço o ensejo.
Inicio Término
Outono 22/março 21/junho
Inverno 22/junho 22/setembro
Primavera 23/setembro 20/dezembro
Verão 21/dezembro 21/março

[alexandrevba]

Boa noite!!!

Dentro do mósulo de EstaPasta_de_trabalho, insira o código.
Para mais:
http://www.excel-easy.com/vba/events.html

Código: Selecionar todos

Private Sub Workbook_Open() 
    MsgBox ""Sejam Bem Vindos a Planilha Gerencial da Clínica de Psicopedagogia Mente Brilhante" em baixo informando
a data atual, horário e a estação do ano referente. Isto é possível?
Desde já agradeço o ensejo.
Inicio Término
Outono 22/março 21/junho
Inverno 22/junho 22/setembro
Primavera 23/setembro 20/dezembro
Verão 21/dezembro 21/março" 
End Sub 

Como entrar com enter no texto dentro da Msgbox, usando

Código: Selecionar todos

vbNewLine

http://www.excel-easy.com/vba/msgbox.html
Att

[MarceloAdriano]

Olá
Na verdade, gostaria de inserir uma mensagem ao abrir uma planilha, e esta mensagem 'automaticamente' me desse as boas vindas de me desejando um "bom dia" ou" boa tarde" ou uma "boa noite" - dependendo do horário que usuário estiver trabalhando na planilha e além de tudo gostaria que informasse a estação do ano, também "automatizada " variando com a estação vigente: "Verão"brasileiro, ou "Inverno" brasileiro, ou "Outono" brasileiro e ou "Primavera brasileira"...
ficaria assim:
"Bom Dia! Seja bem vindos ao controle Gerencial Mente Brilhantes"!
Data: ____/___/___ - Horário: __:___
"Verão" Brasileiro!"
End
Grato, desde já agradeço aso participantes do grupo.

[alexandrevba]

Boa tarde!!

Veja...

Código: Selecionar todos

Private Sub Workbook_Open()
Dim TimeOfDay As String
If Now - Date < 0.5 Then
    TimeOfDay = "dia "
ElseIf Now - Date < 0.75 Then
    TimeOfDay = "tarde "
Else
    TimeOfDay = "noite "
End If
MsgBox "Bom " & TimeOfDay & Environ("username")
End Sub

Dentro do mósulo de EstaPasta_de_trabalho, insira o código.

Att

[MarceloAdriano]

Olá
Tem como informar a Data e Hora na mensagem?
Grato

[alexandrevba]

Boa noite!!

Acrescente...Hour(Now)

Código: Selecionar todos

MsgBox Hour(Now)

Por favor click na mãozinha!
Att