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

Как вставить двоеточие между числами, чтобы автоматически использовать их в качестве формата времени в Excel?

Когда вы вставляете формат времени в ячейки рабочего листа, вас когда-нибудь раздражало вводить двоеточия каждый раз? В этой статье я расскажу о том, как вставлять двоеточие при вводе чисел, чтобы автоматически использовать их в качестве формата времени в Excel.

Вставьте двоеточие между числами, чтобы сделать их форматом времени с формулами

Автоматически преобразовывать числа в формат времени при вводе их с кодом VBA


стрелка синий правый пузырь Вставьте двоеточие между числами, чтобы сделать их форматом времени с формулами

Предположим, у вас есть список чисел, чтобы вставить двоеточия и сделать их форматом времени, следующие формулы могут оказать вам услугу.

Если числа всегда 3 или 4 цифры, вы можете использовать эту формулу:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), затем перетащите дескриптор заполнения вниз к ячейкам, которые вы хотите содержать эту формулу, и вы получите следующий результат, который вам нужен:

doc вставить двоеточие в числа 1

Если числа состоят из 5 или 6 цифр, примените эту формулу:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0, и перетащите дескриптор заполнения вниз к ячейкам, которые вы хотите содержать эту формулу, и вы получите числовую последовательность, как показано на следующем снимке экрана:

doc вставить двоеточие в числа 2

Затем вы должны отформатировать числа как формат времени, нажав Продолжительность из Общие раскрывающийся список под Главная вкладку, см. снимок экрана:

doc вставить двоеточие в числа 3


стрелка синий правый пузырь Автоматически преобразовывать числа в формат времени при вводе их с кодом VBA

Следующий код VBA также может помочь вам автоматически преобразовать числа в формат времени при их вводе, пожалуйста, сделайте следующее:

1. Перейдите к листу, на котором вы хотите автоматически вставлять двоеточия в числа.

2. Щелкните правой кнопкой мыши вкладку листа и выберите Просмотреть код из контекстного меню во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустое Модули окно, см. снимок экрана:

Код VBA: автоматическое преобразование чисел в формат времени:

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 вставить двоеточие в числа 4

Примечание: В приведенном выше коде A1: A20 - это ячейки, которые вы хотите вставить позже, и вы можете изменить ссылку на ячейку по своему усмотрению.

3. И теперь, когда вы вводите числа, такие как 102319, в диапазоне ячеек A1: A20, а затем нажимаете Enter , число будет автоматически отформатировано в формате времени 10:23:19 по мере необходимости.

doc вставить двоеточие в числа 5


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (6)
Номинальный 4.5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо. Очень хорошо проиллюстрировано.
Этот комментарий был сведен к минимуму модератором на сайте
如果只要時跟分以及24小時制,請問可以怎麼改?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Кира,
你可以嘗試使用下面的vba來實現: (只顯示時和分)

Private Sub Worksheet_Change (ByVal Target As Excel.Range)
Dim xStr как строка
Dim xVal как строка
При ошибке GoTo EndMacro
Если Application.Intersect(Target, Range("A1:A20")) ничего не значит, тогда выйдите из Sub
Если Target.Count > 1, то выйдите из Sub
Если Target.Value = "", то выйдите из подпрограммы
Application.EnableEvents = False
С целью
Если Не .HasFormula Тогда
xVal = .Значение
Выберите вариант Len(xVal)
Случай 1 'например, 1 = 00:01
xStr = "00:0" и xVal
Случай 2 'например, 12 = 00:12
xStr = "00:" & xVal
Случай 3 'например, 735 = 7:35
xStr = Left(xVal, 1) & ":" & Right(xVal, 2)
Случай 4 'например, 1234 = 12:34
xStr = Left(xVal, 2) & ":" & Right(xVal, 2)
Случай 5 'например, 12345 = 1:23:45 НЕ 12:03:45
xStr = Left(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Right(xVal, 2)
Случай 6 'например, 123456 = 12:34:56
xStr = Left(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Right(xVal, 2)
Case Else
Err.Поднять 0
End Select
.Value = Формат (TimeValue (xStr), «Короткое время»)
End If
Конец с
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "Вы ввели неверное время"
Application.EnableEvents = True
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
В более ранней версии Windows я мог изменить разделитель времени двоеточия на другой символ (обычно звездочку), чтобы упростить и ускорить ввод большого количества данных о времени. Есть ли еще способ сделать это или он был «новым и улучшенным» в забвении?
Этот комментарий был сведен к минимуму модератором на сайте
Кто-нибудь знает, как заставить этот макрос работать на листах Google, пожалуйста?
Этот комментарий был сведен к минимуму модератором на сайте
DZIEKUJE ZA WYJAŚNIENIE, CZY KTOŚ MOŻE PODPOWIEDZIEC CZY DA SIE TO PRZEROBIC TAK ŻEBY DZIŁAŁO NA 2 LUB WIECEJ KOLUMNACH? CHODZI O WPROWADZENIE STARTU PRACY W KOLUMNIE CA ZAKONCZENIA W KOLUMNIE D, WYNIK WYSWIETLI SIE W KOLUMNIE E
Номинальный 4.5 из 5
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL