Home Excel - Dicas Microsoft Excel VBA Excel VBA - Horas Excel planilha vba wkf contse total ocorrencia intervalo horas

Excel planilha vba wkf contse total ocorrencia intervalo horas

E-mail Imprimir PDF

 Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

'......................................'
'Expedito Marcondes                          '
'Site...:
http://www.microsoftexcel.com.br   '
'E_mail.:
contato@microsoftexcel.com.br      '
'......................................'

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




   Baixe o exemplo de planilha contendo os macros acima
Excel planilha vba wkf contse total ocorrencia intervalo horas (27.82 KB)

 

Última atualização em Ter, 04 de Outubro de 2011 17:22  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje187
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19693
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33422
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10456251
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA