Boa tarde,
Meu problema é o seguinte, numa planilha do meu trabalho, ao abri-lá ela exibe uma mensagem de saudação com base no horário, o que eu não estou conseguindo fazer é adicionar botões de opção nesta mensagem, queria colocar apenas dois botões, que não fosse somente o "ok" que ela abre.
com outras palavras, quero que nestas perguntas que ela faz, a pessoa apenas responda por exemplo "sim" ou "não".
quem puder me ajudar com a questão de cima eu já agradeço, mas indo além... que ao apertar sim ou não, abra uma ultima mensagem, somente para deixar mais participativa digamos assim. Segue o código que eu utilizo até então.
Dim dHora As Integer
dHora = Hour(Now)
Select Case dHora
Case Is >= 18
sSaudacao = "Boa Noite"
Case Is <= 9
sSaudacao = "Boa Dia, uma boa hora para um café..."
Case Is <= 10
sSaudacao = "Boa Dia, que tal um chá uma hora destas?."
Case Is <= 11
sSaudacao = "Boa Dia, quase hora do almoço."
Case Is >= 12
sSaudacao = "Boa tarde :)"
Case Is >= 0
sSaudacao = "Bom Dia :)"
End Select
MsgBox sSaudacao & " !! Seja bem vindo novamente. estou pronto para receber novos updates e te ajudar cada vez mais.", vbInformation, "S.E.I.A.- Sitema Excel de Inteligência Artificical"
Obrigado desde já.
Postado : 16/06/2016 2:42 pm