Home Excel - Dicas Microsoft Excel VBA Excel VBA - Datas Excel planilha vba funcao data calcula dias trabalho

Excel planilha vba funcao data calcula dias trabalho

E-mail Imprimir PDF

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

Essa macro e Função personalizada do Aplicativo Microsoft Excel VBA(Visual Basic Application), verifica e retorna o total de dias úteis entre um intervalo de duas datas, dias úteis de trabalho. Baixe o exemplo de planilha para melhor visualizar os macros e a função personalizada, para esse cálculo de datas úteis sem os sábados e domingos através do VBA.

'Este módulo irá Dias Calcular atividade úteis entre duas datas dadas em formato abaixo.
'ColA            Col B             ColC
'DataIncial    DataFinal     Resultado nas (Celulas em branco)


Sub Calcular_dias_atividade()
[A1:B12].Select
 Dim vCelulas As Range
     For Each vCelulas In Selection.Cells
         If IsDate(vCelulas.Value) And IsDate(vCelulas.Offset(0, 1).Value) And IsEmpty(vCelulas.Offset(0, 2)) Then
            vCelulas.Offset(0, 2).Value = Dias_de_trabalho(vCelulas.Value, vCelulas.Offset(0, 1).Value)
         End If
     Next
 [D1].Select
 End Sub

Function Dias_de_trabalho
(ByVal vDataInicial As Long, ByVal vDataFinal As Long) As Long
     ' Retorna a contagem de dias entre vDataInicial - vDataFinal menos sábados e domingos
     Dim vDia As Long, vContador As Long
     For vDia = vDataInicial To vDataFinal
         If Weekday(vDia, vbMonday) < 6 Then
             vContador = vContador + 1
         End If
     Next vDia
     Dias_de_trabalho = vContador
 End Function

'
macros abaixo foram feitas para ajudar no teste de planilha. 

Sub limpar_teste()
[C2:C15].ClearContents
[D1].Select
End Sub

Sub visualizar_macros_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 ' 6 é igual a vbyes
    Application.Goto reference:="Dias_de_trabalho"
 Else
    Saber1.Shapes("sb").Visible = True
 End If

End Sub

Sub oct()
Saber1.Shapes("sb").Visible = False
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 e função personalizada acima
Excel planilha vba funcao data calcula dias trabalho (73.24 KB)



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Última atualização em Sáb, 13 de Agosto de 2011 17:34  

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_counterHoje4814
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25015
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês43203
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466032
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