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 de quem precisa Aprender Lidar Macros Microsoft Excel VBA


Option Explicit

Public Iniciar_Tempo As Variant 'programção do horário
Public Const vIntervaloSegundos = 5 '5 segundos
Public Const vMensagem = "Pequena_Mensagem" 'nome da macro a ser executada

Sub Repetir_Mensagem()
'Programação do horário mantém + 5 segundos
Iniciar_Tempo = TimeValue(Now + TimeSerial(0, 0, vIntervaloSegundos))
Application.OnTime Iniciar_Tempo, vMensagem
End Sub

Sub Parar_mensagem()
On Error Resume Next
Application.OnTime Iniciar_Tempo, vMensagem, , False
End Sub

Sub Pequena_Mensagem()
Dim sbx
'mensagem será gravada na coluna(b) e (D) - intenção didática
[B65000].End(xlUp).Offset(1, 0).Value = Iniciar_Tempo
[B65000].End(xlUp).Offset(0, 2).Value = "Hora de Aprender VBA(Saberexcel)"

sbx = MsgBox("Se escolher 'NÃO', a mensagem continua !" & vbLf _
& "Quer parar a mensagem ?", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"Escola Saberexcel VBA Treinamentos - Horários")

If sbx = 7 Then
'continuar a repetir a mensagem

Repetir_Mensagem
Else
'parar a programação de repetição da mensagem
Parar_mensagem
End If

End Sub

Sub limpar_teste()
Saber1.[b2:d40].ClearContents
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

Saberexcel - o Site das Macros

Estas macros do Aplicativo Microsoft Excel VBA, mostram horas através de um userform, horas continuas
Relógio digital, que funcionará como um Spash
Esses procedimentos junto com a declaração Global (Boolean), insere um relogio digital no rótulo(label)
de determinado Userform(Formulário)

1 objeto Userform1 ............: - Caption "Userform1"
1 objeto Label....................: - Caption "Label1"
1 objeto CommandButton....: - Caption "CommandButton"

'NO MÓDULO COMUM STANDARD INSIRA AS MACROS E VARIAVEL GLOBAL ABAIXO
Global onOff As Boolean

Sub MostrarFormulário()
UserForm1.Show
End Sub

Sub MostrarHoras()
On Error Resume Next
'colocação da data e horas devidamente formatadas
'veja que aqui inserimos as horas no Caption do Userform, Label e Frame1

UserForm1.Caption = "Hoje é dia: [ " & Format(Now, "dddd dd-mm-yyyy") & " ] Agora são: [ " & Format(Now, "hh:mm:ss") & " ] horas"
UserForm1.Label1.Caption = Format(Now, "dddd dd-mm-yyyy hh:mm:ss")
UserForm1.Frame1.Caption = "Hoje é dia: [ " & Format(Now, "dddd dd-mm-yyyy") & " ] Agora são: [ " & Format(Now, "hh:mm:ss") & " ] horas"

'só é executado se o formulário estiver activo
If onOff = True Then
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
Else
Application.OnTime 0, ""
End If

End Sub

'Essa macro usando evento Open que abrirá o formulário na Abertura do Livro
Sub Auto_Open()
On Error Resume Next
UserForm1.Show
End Sub

'NA FOLHA DE CÓDIGO DO USERFORM
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()
onOff = True ' variável declarada como global as boolean
'inicia o ciclo de a cada segundo actualizar as horas no formulário
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
End Sub

'Aqui o Evento Terminate encerra o ciclo de atualização por encerramento do formulário
Private Sub UserForm_Terminate()
onOff = False
End Sub

'Por exemplo se voce quiser abrir um userform chamado Spash
'faça uma macro que abre ativará um form splash e o fecha em 5 segundos.

'Private Sub UserForm_Activate()
'Application.OnTime Now + TimeValue("00:00:05"), "FechaSplash"
'End Sub


Aprenda Microsoft Excel VBA --((SaberExcel ))--