Como inserir dois pontos entre os números para torná-los no formato de hora automaticamente no Excel?
Ao inserir o formato da hora nas células da planilha, você já se incomodou em digitar os dois pontos todas as vezes? Neste artigo, falarei sobre como inserir dois pontos ao inserir números para torná-los no formato de hora automaticamente no Excel.
Insira dois pontos entre os números para torná-los no formato de hora com fórmulas
Faça automaticamente os números no formato de hora ao inseri-los com o código VBA
Insira dois pontos entre os números para torná-los no formato de hora com fórmulas
Supondo que você tenha uma lista de números, para inserir os dois pontos e torná-los no formato de hora, as seguintes fórmulas podem lhe fazer um favor.
Se os números forem sempre de 3 ou 4 dígitos, você pode usar esta fórmula:
=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0)e, em seguida, arraste a alça de preenchimento para baixo até as células que você deseja que contenham esta fórmula e você obterá o seguinte resultado conforme necessário:
Se os números tiverem 5 ou 6 dígitos, aplique esta fórmula:
=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0e arraste a alça de preenchimento para baixo até as células que você deseja que contenham esta fórmula, e você obterá a sequência numérica conforme mostrado a seguir:
Então você deve formatar os números como formato de hora clicando em Horário do Geral lista suspensa sob o Home page guia, veja a captura de tela:
Faça automaticamente os números no formato de hora ao inseri-los com o código VBA
O código VBA a seguir também pode ajudá-lo a converter automaticamente os números para o formato de hora ao inseri-los, faça o seguinte:
1. Vá para a planilha em que deseja inserir dois pontos nos números automaticamente.
2. Clique com o botão direito na guia da planilha e selecione Ver código a partir do menu de contexto, no pop-out Microsoft Visual Basic para Aplicações janela, copie e cole o código a seguir no espaço em branco Módulo janela, veja a imagem:
Código VBA: faça automaticamente os números no formato de hora:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20160606
Dim xStr As String
Dim xVal As String
On Error GoTo EndMacro
If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
With Target
If Not .HasFormula Then
xVal = .Value
Select Case Len(xVal)
Case 1 ' e.g., 1 = 00:01 AM
xStr = "00:0" & xVal
Case 2 ' e.g., 12 = 00:12 AM
xStr = "00:" & xVal
Case 3 ' e.g., 735 = 7:35 AM
xStr = Left(xVal, 1) & ":" & Right(xVal, 2)
Case 4 ' e.g., 1234 = 12:34
xStr = Left(xVal, 2) & ":" & Right(xVal, 2)
Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
xStr = Left(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Right(xVal, 2)
Case 6 ' e.g., 123456 = 12:34:56
xStr = Left(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Right(xVal, 2)
Case Else
Err.Raise 0
End Select
.Value = TimeValue(xStr)
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "You did not enter a valid time"
Application.EnableEvents = True
End Sub
Nota: No código acima, A1: A20 são as células que você deseja inserir com hora posterior e você pode alterar a referência da célula conforme sua necessidade.
3. E agora, quando você inserir números como 102319 no intervalo de células A1: A20 e, em seguida, pressione Entrar , o número será formatado como formato de hora 10:23:19 AM automaticamente conforme necessário.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!