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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    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
    |