Saberexcel - o site das Macros
Esse procedimento do Aplicativo Microsoft Excel VBA, retorna uma mensagem de saudação dependendo do horário do computador, BOA MADRUGADA, BOM DIA, BOA TARDE E BOA NOITE. Neste exemplo usei para fins didáticos a saida da mensagem em uma Label(rótulo), no caption do Frame1(Quadro, Modura) e também na célula(C27), esses dados serão inseridos na ocorrencia do Evento Initialize do Objeto Userform.

Private Sub UserForm_Activate()

Dim vSaudacaoHora As Integer
vSaudacaoHora = Hour(Now)

Select Case vSaudacaoHora
Case 1 To 5
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno no Label
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno no Frame1
[C27].Value = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno na célula(B27)
Case 6 To 11
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
[C27].Value = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
Case 12 To 17
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
[C27].Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
Case 18 To 24
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
[C27].Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
End Select

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA



Baixe o exemplo de planilha com o procedimento acima


Publicidade:

Compre com garantia, segurança e preços baixos na maior loja do país.

Saberexcel - O site das Macros
Esse Evento do Aplicativo Microsoft Excel VBA, insere a hora atual da modificação de uma determinada célula em uma determinada range, essa range é delimitada no próprio procedimento no Evento Change na folha de código da folha de planilha.
Essa planilha faz parte das planilhas inteligentes dos Módulos COMO FAZER - Programação Microsoft Excel VBA - Saberexcel


Private Sub Worksheet_Change(ByVal Lugar As Range)
Dim limite_maximo_linha As Integer
limite_maximo_linha = 30 ' altere aqui para limitar a última linha
' faz nada se mais de uma célula modificada ou se deu delete
If Lugar.Cells.Count > 3 Or IsEmpty(Lugar) Then Exit Sub

If Lugar.Column = 3 And Lugar.Row >= 2 And Lugar.Row <= limite_maximo_linha Then
' a condição(SE) IF confirma a modificação das células nos intervalos [C2:C30]
'
' desativa eventos antes de um arquivo ser modificado com digitacao de forma que o evento Change não ocorre.
Application.EnableEvents = False
' descloca duas células à direita (propriedade OffSet() para inserção da hora na linha correspondente
Lugar.Offset(0, 2).Value = Now() 'ou Time() para horas apenas
' ativa novamente o evento Change (digitar na planilha)
Application.EnableEvents = True
End If
End Sub



Aprenda tudo sobre o Aplicativo Aplicativo Microsoft Excel VBA com Saberexcel

Compre com segurança, garantia e ótimos preços nas lojas SubMarino

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA , retorna uma mensagem de saudação ao usuário, se menor que 12horas, retorna Bom dia, se form menor ou igual a 18:00, Boa Tarde, senão Boa Noite, você poderá acrescentar mais uma opção para Boa Madrugada, usando a Função Elseif.


Sub Saudacao_hora()
Application.ScreenUpdating = True
HoraAtual = Hour(Now())
msgBoasVindas = Range("variavelboasvindas")
If HoraAtual < 12 Then
sbd = "um BOM DIA!"
ElseIf HoraAtual <= 18 Then
sbd = "uma BOA TARDE"
Else
sbd = "uma BOA NOITE"
End If
Beep
MsgBox "Desejamos todo bem, tenha " & sbd & "." & Chr$(10) & Chr$(10) & msgBoasVindas, _
vbOKOnly + vbInformation, "Bem vindo ao programa - Saberexcel "
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, pergunta se voce deseja ou não inserir uma planilha
personalizada com o nome formatado com data e hora atual

Sub Adicionar_planilha_com_dia_hora()

Dim Resposta As VbMsgBoxResult
Dim sht As Worksheet
Resposta = MsgBox("Deseja inserir nova planilha com o nome da data e hora atual?" _
, vbQuestion + vbYesNoCancel)
If Resposta = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-dd-mmm-yyyy_hhmmss")
ElseIf Resposta = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Planilha inserida com sucessso!! [ " & ActiveSheet.Name & "]", vbInformation, "http://www.saberexcel.com"
End Sub

Aplicativo Microsoft Excel VBA --(SaberExcel)--

Saberexcel - o Site das Macros

Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere a hora atual na barra de status e acrescenta um texto, macro verifica o país, nesse caso usamos o idioma norueguês(47) e o português-Br, se não for a Noruega, mensagem em português,
e retorna a mensagem na StatusBar

Option Explicit

Const vDataHoraCelula As String = "B9"
Const vTexto As String = "Site...: [ http://www.saberexcel.com - O site das Macros ] "
Dim OK As Boolean

Sub Iniciar_hora_atual()
Range(vDataHoraCelula).NumberFormat = "dd.mm.yyyy hh:mm:ss"
OK = True
Hora_atual
End Sub

Sub Hora_atual()
Dim vStatusBarMensagemTexto As String
If Application.International(xlCountrySetting) = 47 Then 'se estiver na Noruega,
vStatusBarMensagemTexto = "Gjeldende dato og tid: "
Else
vStatusBarMensagemTexto = "Data atual e horário : " 'Português_Br
End If

If OK Then

Range(vDataHoraCelula).Formula = Now
Application.StatusBar = vStatusBarMensagemTexto & Format(Now, "d.m.yyyy hh:mm:ss ") & vTexto
Application.OnTime Now + TimeValue("00:00:01"), "Hora_atual", , True

Else

Range(vDataHoraCelula).Formula = ""
Application.StatusBar = False
End If
End Sub

Sub parar_relogio()
Range(vDataHoraCelula).NumberFormat = "dd.mm.yyyy hh:mm:ss"
OK = False
Hora_atual
End Sub



Aplicativo Microsoft Excel VBA(Visual Basic Application) --- (-(-( SaberExcel )-)-)---




Baixe o exemplo de planilha contendo as macros acima