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, а потім натисніть вводити клавіша, номер буде відформатовано як формат часу 10:23:19 AM автоматично, як вам потрібно.

doc вставити двокрапку до цифр 5


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

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

Приватний допоміжний робочий лист_Зміна (за значенням цілі як Excel. Діапазон)
Dim xStr як рядок
Dim xVal як рядок
Помилка GoTo EndMacro
Якщо Application.Intersect(Target, Range("A1:A20")) Нічого, вийдіть із підпорядкування
Якщо Target.Count > 1, то вийдіть із Sub
Якщо Target.Value = "" Вийдіть із Sub
Application.EnableEvents = False
З Target
Якщо ні .HasFormula Then
xVal = .Value
Виберіть Case Len(xVal)
Випадок 1 ', наприклад, 1 = 00:01 ранку
xStr = "00:0" і xVal
Випадок 2 ', наприклад, 12 = 00:12 ранку
xStr = "00:" і xVal
Випадок 3 ', наприклад, 735 = 7:35 ранку
xStr = Ліворуч (xVal, 1) & ":" & Right (xVal, 2)
Випадок 4 ', наприклад, 1234 = 12:34
xStr = Ліворуч (xVal, 2) & ":" & Right (xVal, 2)
Випадок 5 ', наприклад, 12345 = 1:23:45 НЕ 12:03:45
xStr = Ліворуч (xVal, 1) & ":" & Середина (xVal, 2, 2) & ":" & Right (xVal, 2)
Випадок 6 ', наприклад, 123456 = 12:34:56
xStr = Ліворуч (xVal, 2) & ":" & Середина (xVal, 3, 2) & ":" & Right (xVal, 2)
Інший випадок
Помилка. Підвищення 0
End Select
.Value = Формат(TimeValue(xStr), "Короткий час")
End If
Кінець з
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "Ви не ввели дійсний час"
Application.EnableEvents = True
End Sub
Цей коментар був мінімізований модератором на сайті
У попередній версії Windows мені вдалося змінити роздільник часу двокрапки на інший символ (зазвичай зірочку), щоб було легше та швидше вводити велику кількість даних часу. Чи все ще є спосіб зробити це, чи він був «новим і покращеним» у забуття?
Цей коментар був мінімізований модератором на сайті
будь ласка, хтось знає, як запустити цей макрос на таблицях Google?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця