MsgBox com Saudação

2024 - VBA & Macros

Post Recente por humberto 12 anos atrás

5 Posts

2 Usuários

0 Reactions

1,263 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

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

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

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