|
 Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA
Esse macro do Aplicativo Microsoft Excel VBA, retorna mensagem data e horas.
Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções.
http://www.microsoftexcel.com.br - http://www.saberexcel.com.br
'-----------------------------------------'
Sub Retorna_data_hora_minuto_segundo()
DataAtual = Month(Date)
NomeMes = MonthName(DataAtual, False)
vMensagem = "Ano atual:[ " & Year(Date) & " ] " & Chr(13)
vMensagem = vMensagem & "Mês atual :[ " & NomeMes & " ] " & Chr(13)
vMensagem = vMensagem & "Hoje é dia :[ " & Day(Date) & " ] " & Chr(13)
vMensagem = vMensagem & Chr(13) & "*-*-*-*-*-*-*-*--*-*-*-*-*" & Chr(13) & Chr(13)
HoraAtual = Hour(Time())
MinutoAtual = Minute(Time())
SegundoAtual = Second(Time())
vMensagem = vMensagem & "Hora atual: " & " [ " & HoraAtual & " ] " & Chr(13)
vMensagem = vMensagem & "Minuto atual: " & " [ " & MinutoAtual & " ] " & Chr(13)
vMensagem = vMensagem & "Segundo atual: " & " [ " & SegundoAtual & " ] " & Chr(13)
vMensagem = vMensagem & Chr(13) & "*-*-*-*-*-*-*-*--*-*-*-*-*" & Chr(13) & Chr(13)
vMensagem = vMensagem & Chr(13) & "Aprenda Microsoft Excel VBA com Saberexcel" & Chr(13) & Chr(13)
MsgBox vMensagem, vbInformation, "Saberexcel - o site das macros"
End Sub
'-----------------------------------------'
'Esse macro retorna uma mensagem de saudação
Sub saudacao_mensagem()
If Time$ > "18:00:00" Then
MsgBox "Boa noite, durma bem", _
vbInformation, "Saberexcel - o Site das Macros"
ElseIf Time$ > "12:00:00" Then
MsgBox "Boa tarde!", _
vbInformation, "Saberexcel - o Site das Macros"
ElseIf Time$ > "00:00:00" Then
MsgBox "Bom dia, com muita alegria!", _
vbInformation, "Saberexcel - o Site das Macros"
End If
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
http://www.micrososftexcel.com.br
'
Exc |