Note: The other languages of the website are Google-translated. Back to English

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


seta azul bolha direita 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:

doc insira dois pontos nos números 1

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:

doc insira dois pontos nos números 2

Então você deve formatar os números como formato de hora clicando em Horário de Geral lista suspensa sob o Início guia, veja a captura de tela:

doc insira dois pontos nos números 3


seta azul bolha direita 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

doc insira dois pontos nos números 4

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.

doc insira dois pontos nos números 5


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (5)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Obrigada. Muito bem ilustrado.
Este comentário foi feito pelo moderador no site
如果只要時跟分以及24小時制,請問可以怎麼改?
Este comentário foi feito pelo moderador no site
Olá, kyra,
你可以嘗試使用下面的vba來實現: (只顯示時和分)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim xStr As String
Dim xVal como string
Em erro GoTo EndMacro
Se Application.Intersect(Target, Range("A1:A20")) não for nada, então Exit Sub
Se Target.Count > 1, então Exit Sub
Se Target.Value = "" Então Exit Sub
Application.EnableEvents = False
Com alvo
Se Não .HasFormula Então
xVal = .Value
Selecione Case Len(xVal)
Caso 1 ' por exemplo, 1 = 00:01 AM
xStr = "00:0" & xVal
Caso 2 ' por exemplo, 12 = 00:12 AM
xStr = "00:" & xVal
Caso 3 ' por exemplo, 735 = 7:35 AM
xStr = Esquerda(xVal, 1) & ":" & Direita(xVal, 2)
Caso 4 ' por exemplo, 1234 = 12:34
xStr = Esquerda(xVal, 2) & ":" & Direita(xVal, 2)
Caso 5 ' por exemplo, 12345 = 1:23:45 NÃO 12:03:45
xStr = Esquerda(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Direita(xVal, 2)
Caso 6 ' por exemplo, 123456 = 12:34:56
xStr = Esquerda(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Direita(xVal, 2)
Case Else
Err. Aumentar 0
End Select
.Value = Format(TimeValue(xStr), "Tempo curto")
Se acabar
Terminar com
Application.EnableEvents = True
Exit Sub
Fim Macro:
MsgBox "Você não digitou um horário válido"
Application.EnableEvents = True
End Sub
Este comentário foi feito pelo moderador no site
Em uma versão anterior do Windows, consegui alterar o delimitador de tempo de dois pontos para outro caractere (geralmente um asterisco) para tornar mais fácil e rápido inserir muitos dados de tempo. Ainda existe uma maneira de fazer isso ou foi "novo e aprimorado" no esquecimento?
Este comentário foi feito pelo moderador no site
alguém sabe como fazer essa macro rodar no google folhas por favor?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos