none
Hora na célula do Excel via código? RRS feed

  • Pergunta

  • Preciso inserir, via código, na célula A1 a hora do sistema no formato 13:38:22.

    Na célula B1, preciso inserir a saudação a seguir:

    If hora < 12 Then
    
    Sheets(1).Cells(1, 2) = "Bom Dia!"
    
    ElseIf hora < 18 Then
    
    Sheets(1).Cells(1, 2) = "Boa Tarde!"
    
    Else
    
    Sheets(1).Cells(1, 2) = "Boa Noite!"
    
    End If


    quarta-feira, 18 de dezembro de 2013 13:50

Respostas

  • Boa noite Anderson.

    Basta usar algo do tipo:

    Sub Horario() HoraA = Format(Now, "hh:mm:ss") Hora = Hour(HoraA) Range("A1").Value = HoraA

    'Seu código (...) End Sub


    Entendeu?


    Filipe Magno

    quinta-feira, 19 de dezembro de 2013 00:20