Как преобразовать часы, минуты и секунды в десятичные часы в Excel?
Если у вас есть список времени в формате десятичных часов, но вы привыкли к привычному формату чч:мм:сс (часы, минуты и секунды), как быть? Следующие методы помогут вам легко преобразовывать значения между часами, минутами, секундами и десятичными часами.
Преобразование часов, минут и секунд в десятичный формат с помощью формулы
Преобразование часов, минут и секунд в десятичный формат одним щелчком 
Преобразование десятичного формата в часы, минуты и секунды с помощью формулы
Преобразование десятичного формата в часы и минуты с помощью VBA
Преобразование часов, минут и секунд в десятичный формат с помощью формулы
Предположим, в столбце A у вас есть список времени в формате часов, минут и секунд. Чтобы преобразовать его в десятичное время, выполните следующие шаги:
1. Выберите пустую ячейку, например B1, и введите в неё формулу =A1*24 (ячейка A1 указывает на ячейку с данными, которые вы хотите преобразовать в десятичное время, при необходимости измените её), затем нажмите клавишу Enter на клавиатуре. См. снимок экрана:
2. Затем перетащите маркер заполнения, чтобы применить формулу ко всему нужному диапазону. См. снимок экрана:
3. Далее отформатируйте ячейки с результатом в столбце B как «Общий»: выделите диапазон, щёлкните правой кнопкой мыши и выберите в контекстном меню пункт Установить формат ячейки. См. снимок экрана:
4. Затем перейдите на вкладку Число в диалоговом окне Установить формат ячейки, выберите категорию Общий в поле Категория: и нажмите кнопку ОК, чтобы закрыть диалоговое окно. См. снимок экрана: 
Результат будет выглядеть следующим образом:
Преобразование часов, минут и секунд в десятичные часы одним щелчком
Если у вас установлено расширение Kutools для Excel в Excel, вы можете воспользоваться утилитой Преобразование времени, чтобы быстро преобразовать формат чч:мм:сс в десятичные часы, минуты или секунды.
После бесплатной установкиKutools для Excel выполните следующие действия:
Выделите ячейки с временем и последовательно нажмите: Kutools > Содержимое > Преобразование времени, затем выберите нужный вариант преобразования. См. снимок экрана: 
Появится диалоговое окно с напоминанием о количестве преобразованных ячеек. Нажмите «ОК», чтобы закрыть его, и всё выделенное время будет преобразовано.
Совет: Если вы хотите сохранить преобразованные десятичные значения в другом месте, нажмите Kutools > Содержимое > Преобразование времени, чтобы открыть диалоговое окно Преобразование времени. В этом окне выберите нужный вам Тип преобразования, установите флажок Сохранить в другом месте, укажите ячейку для вывода результата и нажмите кнопку Ок. Время будет преобразовано и размещено в новом месте. См. снимок экрана:
Преобразование десятичного формата в часы, минуты и секунды с помощью формулы
В обратном порядке: если вы хотите преобразовать десятичное время в формат часов, минут и секунд, выполните следующие действия:
Допустим, ваши данные расположены в столбце A и их нужно преобразовать в формат часов, минут и секунд.
1. Выберите пустую ячейку — в данном случае я выбираю ячейку B1 — и введите в неё формулу =A1/24 (ячейка A1 указывает на ячейку, данные которой вы хотите преобразовать в формат часов, минут и секунд, при необходимости измените её), затем нажмите клавишу Enter на клавиатуре. См. снимок экрана:
2. Повторите шаг 1, чтобы последовательно ввести указанную выше формулу в столбец B. Например, введите =A2/24 в ячейку B2 и нажмите Enter. См. снимок экрана:
3. Затем отформатируйте ячейки в столбце B как чч:мм:сс: выделите диапазон с формулами, щёлкните правой кнопкой мыши и выберите в контекстном меню пункт Установить формат ячейки. См. снимок экрана:
4. Перейдите на вкладку Число в диалоговом окне Установить формат ячейки, выберите категорию Время в поле Категория:, затем в правой части окна выберите тип 13:30:55 в поле Тип и нажмите кнопку ОК, чтобы закрыть диалоговое окно. См. снимок экрана:
Вы увидите, что данные успешно преобразованы.
Преобразование десятичного формата в часы и минуты с помощью VBA
Использование приведённой выше формулы =A1/24 для поочерёдного преобразования времени занимает довольно много времени, но с помощью кода VBA вы можете мгновенно преобразовать весь список десятичного времени в часы и минуты.
1. Удерживая клавишу ALT, нажмите клавишу F11 на клавиатуре, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и скопируйте приведённый ниже код VBA в модуль.
VBA: Преобразование десятичного времени в часы и минуты
Sub ConvertToTime()
'Updateby20140227
Dim Rng As Range
Dim WorkRng As Range
Dim xHours As Variant
Dim xMin As Variant
Dim xValue As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xValue = Rng.Value
xHours = VBA.Split(xValue, ".")(0)
xMin = VBA.Split(xValue, ".")(1) * 60
Rng.Value = xHours & ":" & VBA.Left(xMin, 2)
Next
End Sub
3. Нажмите кнопку Выполнить или клавишу F5, чтобы запустить код VBA. Появится диалоговое окно Kutools for Excel, в котором вам нужно будет выбрать рабочий диапазон. См. снимок экрана:
4. Нажмите кнопку ОК во всплывающем диалоговом окне — данные из «Выберите диапазон» будут преобразованы в формат часов и минут. См. снимок экрана:
Совет: При запуске приведённого выше кода VBA вы потеряете исходные данные, поэтому обязательно скопируйте и сохраните их заранее.
Легко добавляйте дни, годы, месяцы, часы, минуты и секунды к датам в Excel |
Если в ячейке указана дата, и вам нужно добавить дни, годы, месяцы, часы, минуты или секунды, использование формул может быть сложным и трудно запоминающимся. С помощью Kutools для Excel’s Помощник по дате и временивы без усилий добавите Единица времени к дате, рассчитаете разницу между датами или даже определите возраст человека по дате его рождения — всё это без необходимости запоминать сложные формулы. |
Kutools для Excel— расширьте возможности Excel более чем 300 необходимыми инструментами, чтобы работать быстрее и проще, а также используйте функции ИИ для более умной обработки данных и повышения продуктивности.Получить сейчас |
Связанные статьи:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек