Ir para conteúdo
Fórum Script Brasil
  • 0

Somando uma relação de tempo


Rafael P.C

Pergunta

Boa tarde pessoal,

Estou com um dilema me martelando estou tentando fazer um calculo de soma de tempo em VBA mais não estou conseguindo. Por exemplo, na coluna A1 até A19 eu tenho uma relação de tempo em cada célula “Ex. A1 = 00:01:25, A2 = 00:04:25, A3 = 00:02:35” eu gostaria de somar este intervalo . Ágüem pode me ajudar? Abaixo eu fiz um script mais não rolo.

Sub a()
Dim DAT1, DAT2, DATA
    Range("a1").Select
    Do While IsEmpty(ActiveCell.Offset(0, 0)) = False

        DAT1 = ActiveCell
        DAT2 = (DAT2 + DAT1)
        
        ActiveCell.Offset(1, 0).Select
        
        

    Loop
    

    DATA = (DAT2)
    
      
    


MsgBox DATA

End Sub

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Já consegui pessoal segue abaixo o script. O segredo esta em determinar a variável como data.

Sub a()
Dim DAT1, DAT2, DATA
    Range("a1").Select
    Do While IsEmpty(ActiveCell.Offset(0, 0)) = False

        DAT1 = CDate(ActiveCell)
        DAT2 = (CDate(DAT2) + CDate(DAT1))
        
        ActiveCell.Offset(1, 0).Select
        
        

    Loop
    

    DATA = CDate(DAT2)
    
      
    


MsgBox DATA

End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...