Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MsgBox com Saudação
 
Notifications
Clear all

MsgBox com Saudação

 
2024 - VBA & Macros
Post Recente por humberto 13 anos atrás
5 Posts
2 Usuários
0 Reactions
1,367 Visualizações
RSS
 humberto
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

queria saber como que eu faço para inserir uma MSGBox de Saudação quando abrir uma planilha, dependendo do horario ele mostra uma msgbox
com Bom dia , boa Tarde ou Boa Noite.

Coloquei este codigo mais Não Funcionou

dim T as integer

T=now

if T >="4:00 "then
msgbox "bom dia "

elseif T >= "12:00"then
msgbox "boa tarde "

elseif T >= "18:00" then
msgbox "boa noite"

O codigo ficou +- desta forma mais não funciona.

OBRIGADO

ATÉ MAIS

 
Postado : 20/03/2013 8:44 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Faça um teste
http://www.sendspace.com/file/vd2mto

Leia as regras, seu titulo não condiz com a mesma.
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/03/2013 4:44 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Humberto

Outra opção pra você com código igual ao teu;

http://www.sendspace.com/file/rj1tvb

Dê retorno.

Um abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/03/2013 4:57 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

tente assim:

Private Sub Workbook_Open()

Select Case Time$
    
    Case "05:00:00" To "13:29:59"

        MsgBox "Bom dia"

    Case "13:30:00" To "22:00:00"

        MsgBox "Boa tarde"

        
    Case Else
        
        MsgBox "Boa Noite"
    
    End Select


End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/03/2013 6:32 am
 humberto
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

A dica que vc me passou deu certo,
Obrigado pela ajuda
Até a proxima

 
Postado : 21/03/2013 9:00 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico