Excel planilha vba funcao data calcula dias trabalho

Sex, 27 de Maio de 2011 19:45 Expedito Marcondes
Imprimir

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

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