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 de quem precisa aprender Macros Microsoft Excel VBA.

'Site...: http://www.microsoftexcel.com.br
'E_mail.: [email protected]   Excel planilha vba wkf contse total ocorrencia intervalo horas
'......................................'

Option Explicit

Public Sub contar_ocorrencia_horas_intervalos()
Dim wks As Worksheet
Dim vContador As Long

Set wks = ActiveSheet
limpar
'mensagem estática para o tempo de 9 às 10 horas:
MsgBox "De : [ 9 ] até [10] : " & (WorksheetFunction.CountIf(wks.Columns(2), ">=09:00:00") - _
WorksheetFunction.CountIf(wks.Columns(2), ">=10:00:00")) & " Ocorrencias"

'Com um loop de 24 horas.
'cada hora a contagem de ocorrências na coluna B e para fazer o teste
'mude o horario mas preservando o formato

For vContador = 0 To 23
wks.Cells(vContador + 2, 4) = "De : [ " & vContador & " ] até [" & vContador + 1 & " ]"

wks.Cells(vContador + 2, 5) = _
(WorksheetFunction.CountIf(wks.Columns(2), ">=" & vContador & ":00:00") - _
WorksheetFunction.CountIf(wks.Columns(2), ">=" & vContador + 1 & ":00:00"))
wks.Cells(vContador + 2, 6).Value = "Ocorrencias"

Next vContador

Set wks = Nothing
End Sub

Sub limpar()
[D2:F25].ClearContents
End Sub

Sub ver_shapes()
Saber1.Shapes("sb").Visible = True
End Sub

Sub oc()
Saber1.Shapes("sb").Visible = False
End Sub

Sub visualizar_modulo_vbe()
Dim resposta As String
resposta = MsgBox("Deseja visualizar as macros no módulo VBE", vbYesNo, "Saberexcel - o site das macros")
If resposta = 6 Then
Application.Goto reference:="contar_ocorrencia_horas_intervalos"
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 Saberexcel

Escola SaberExcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções

Esse procedimento do Microsoft Excel VBA(Visual Basic Application) retorna um objeto Label(Rótulo) uma saduação dependendo do Horario atual:
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.

Private Sub UserForm_Initialize()
On Error Resume Next
lbAGORA.Caption = "Escola Saberexcel VBA Estudos - [Agora:... " & Format(Now(), "dddd - dd-mmm-yyyy hh:mm:ss") & " ]"

Select Case Time
Case Is < TimeValue("12:00:00"): Me.lbSAUDACAOHORA.Caption = "Bom Dia Amigo, " & Application.UserName & "!" _
& vbCrLf & "Desejo-lhe todo bem!"
Case Is >= TimeValue("19:00:00"): Me.lbSAUDACAOHORA.Caption = "Boa Noite, Amigo " & Application.UserName & "!" _
& vbCrLf & "Desejo-lhe todo bem!"
Case Else: Me.lbSAUDACAOHORA.Caption = "Boa Tarde, Amigo " & Application.UserName & "!" & "" _
& vbCrLf & "Seja Bem vindo, Bons Estudos!!!!"
End Select

End Sub

Private Sub lbSAUDACAOHORA_Click()
Unload Me
End Sub

Private Sub UserForm_Click()
Unload Me
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.