Adicionado em: | 03/12/2010 |
Modificado em: | 03/12/2010 |
Tamanho: | Vazio |
Downloads: | 440 |
Saberexcel - site das macros
Essa macro do Aplicativo Microsoft Excel VBA, retorna o número de ocorrências em determinado intervalo de horas, neste caso específico usamos o intervalo de horas das 9:00 Horas às 10:00 Horas.
''------------------------------------------------'
' Expedito Marcondes '
' Site...: http://www.saberexcel.com
' 'E_mail.: [email protected] '
'------------------------------------------------'
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 o Aplicativo Microsoft Excel VBA com Saberexcel
Baixe o exemplo de planilha contendo as macros acima
Publicidade:
Compre tudo que precisar com garantia, segurança e ótimos preços
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
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