Макрос для преобразования многих столбцов в Excel из MS в ЧЧ: ММ: СС

Question

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

Я ищу простой способ преобразовать его в длительность ЧЧ: ММ: СС - конвертируемые столбцы не всегда совпадают, поэтому мне нужнобыть в состоянии выбрать определенные столбцы, а затем сделать преобразование.

Любая помощь очень ценится - я немного поиграл с макросами в Excel, но прошло уже много лет с тех пор, как я программировал, и я не был уверен, как сделать некоторые относительные сопоставления для уравнений.

Спасибо!

Answer 1

1. Выберите непрерывную группу ячеек, содержащую миллисекундные значения в виде длинных целых чисел.
2. Запустите подпроцедуру convertSelection.
3. Выберите другую непрерывную группу ячеек.
4. Переходите к шагу 2.

Не забудьте сначала поместить этот код в лист кодов общедоступного модуля.

    Sub convertSelection()
        With Selection
            .Value = Application.Evaluate(.Address & "/86400000")
            .NumberFormat = "hh:mm:ss.000"
        End With
    End Sub