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

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

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando a funcao de planilha [WorksheetFunction.Min()], retorna a menor data em um determinado intervalo de células. As WorksheetFunctions são usadas para retornar valores em a necessidade de inserir Fórmulas.
Mas neste caso fizemos um exemplo que retorna a Wkfuncao e também a função min() em uma fórmula na planilha, mostrando a caixa de dialogo da de ajuda da referida função.


Sub vba_retorna_menor_data_range()
'dimensão da variável
Dim vData As Date
'retorna a data mínima em determinado range atribuido pela variável dData
vData = Application.WorksheetFunction.Min(Worksheets(1).Range("A1:A3"))
[C6].Value = "Wkfunction retorna a menor data na range(A1:A3): [" & vData & "]"
'Exibe a data armazenda pela função de planilha min()
MsgBox "Exibindo a menor data da range(A1:A3): " & Chr(13) & vData, _
vbInformation, "Saberexcel.com - o site das macros"

'checando a seleção de datas para 1904 do sistema
If Application.ThisWorkbook.Date1904 Then
'converter data-base de 1904 a 1900, data-base
vData = DateSerial(Year(vData) + 4, Month(vData), Day(vData) + 1)
'mostra a conversão da data
MsgBox "Data convertida" & Chr(13) & vData
Else
MsgBox "1904 sistema de data não está habilitado", vbInformation, "Mensagem do Sistema"

End If
On Error Resume Next
Worksheets("Plan1").Range("C4").Formula = "=MINA(R[-2]C[-2]:RC[-2])"

[C4].Select

Application.Dialogs(xlDialogFunctionWizard).Show
On Error GoTo 0
[D1].Select
End Sub

Sub limpar_teste()
[C4].ClearContents
[D1].Select
End Sub

Sub ver()
Dim resposta As String
resposta = MsgBox("Deseja visualizar macro no módulo VBE?", vbYesNo + vbInformation, "Saberexcel - o site das macros")

If resposta = vbYes Then
Application.Goto reference:="vba_retorna_menor_data_range"
Else
Plan1.Shapes("sb").Visible = True
End If

End Sub

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

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application) com SaberExcel

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

Essse macro do Aplicativo Microsoft Excel VBA, contendo a Função de Planilha (WorksheetFunction RoundDown e RoundUP), arredondar para cima e para baixo, arredonda determinado número decimal. "ESTA PLANILHA FAZ PARTE DAS 340 Planilhas WorksheetFunctions, Escola Saberexcel VBA - Treinamentos com Macros. Veja em nosso site a relação das Planilhas. Observem o poder das WorksheetFunctions no dia a dia trabalhando com Planilhas Automatizadas. Ler mais : Excel planilha wkf worksheetfunction funções de planilhas retornam valores vba
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'

Sub wkf_arrendondar_numero_argumentos()

X = Application.WorksheetFunction.RoundDown([G9].Value, 1)
Y = Application.WorksheetFunction.RoundUp([G9].Value, 0)
Z = Application.WorksheetFunction.RoundUp([G9].Value, -1)

'vbCrLf - constante usada para combinação de retorno de carro–alimentação de linha (msgbox)
MsgBox "Arredonda valor..:[ " & Format([d], "##,###.##") & " ]" & _
vbCrLf & "Argumento 1.......: [ " & Format(X, "##,##.00") & " ]" & vbCrLf _
& "Argumento 0.......: [ " & Format(Y, "##,##.00") & " ]" & vbCrLf _
& "Argumento-1.......: [ " & Format(Z, "##,##.00") & " ]", vbInformation, _
"Saberexcel - o site das macros"

[E9].Value = "Valor"
[E10].Value = "Argumento 0"
[E11].Value = "Argumento 1"
[E12].Value = "Argumento -1"

[G10].Value = X
[G11].Value = Y
[G12].Value = Z
[G1].Select
End Sub

Sub Limpar_teste()
[a].ClearContents 'celulas renomeadas como 'a'
[d].Select 'celula renomeada como 'd'
End Sub

Pressione Alt + F11 para visualizar os macros

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
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.
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'

Saberexcel - o site das macros microsoft Excel VBA

Esses procedimentos do aplicativo Microsoft Excel VBA ligados ao Evento de planilha WorsheetChange, insere soma de determinada planilha,
selecionada na lista Validação de Dados, esse valor é retornado pelo Evento Change e também, fiz um macro ligado a uma combobox (Ferramentas formulário), o mesmo macro retornando a soma de da coluna(1) de determinada Planilha.
Observe que para que o macro execute as somas fiz uso das poderosas WorksheetFunctions, "Funções de Planilha".
Não deixe de Ver nosso Trabalho com As WorkheetFunctions, são 340 Planilhas Worksheetfunctions exemplos vba para treinamentos.
Excel planilha wkf worksheetfunction funções de planilhas retornam valores vba

NO MODULO DA FOLHA DE PLANILHA (PLAN1) INSERIRA o procedimento com
o Evento Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" And Target.Count = 1 Then

X = Application.WorksheetFunction.Sum(Plan1.Range("A:A"))
b = Application.WorksheetFunction.Sum(Plan2.Range("A:A"))
d = Application.WorksheetFunction.Sum(Plan3.Range("A:A"))
e = Application.WorksheetFunction.Sum(Plan4.Range("A:A"))

If Target.Value = "Plan1" Then
Plan1.[C2].Value = X
ElseIf Target.Value = "Plan2" Then
Plan1.[C2].Value = b
ElseIf Target.Value = "Plan3" Then
Plan1.[C2].Value = d
ElseIf Target.Value = "Plan4" Then
Plan1.[C2].Value = e
End If
[c9].FormulaLocal = _
"=""Soma da Coluna(A) [ "" & C1 & "" ] Total....[ R$ "" &c2 & "" ]"""
[c12].Value = ""
[sbx].Value = ""

End If
End Sub

'- - - - - - - - - - - -
EM UM MÓDULO COMUM..
Usando os mesmos códigos acima fizemos um macro para ligá-lo a um combobox independente, usamos aqui um objeto combobox da barra de Ferramenta formulários.

Sub sbx_inserir_soma_planilhas_combobox()
X = Application.WorksheetFunction.Sum(Plan1.Range("A:A"))
b = Application.WorksheetFunction.Sum(Plan2.Range("A:A"))
d = Application.WorksheetFunction.Sum(Plan3.Range("A:A"))
e = Application.WorksheetFunction.Sum(Plan4.Range("A:A"))

If [alvo].Value = "Plan1" Then 'observque que renomeei uma célula na folha de planilha pelo nome de 'alvo' e outra 'sbx'
[sbx].Value = X
ElseIf [alvo].Value = "Plan2" Then
[sbx].Value = b
ElseIf [alvo].Value = "Plan3" Then
[sbx].Value = d
ElseIf [alvo].Value = "Plan4" Then
[sbx].Value = e
End If
[c12].FormulaLocal = _
"=""Soma da Coluna(A) [ "" & alvo & "" ] Total....[ R$ "" &sbx & "" ]"""
[c9].Value = ""
[C2].Value = ""
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.