Макрос: ввод мм:сс,мс без двоеточий и запятых.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Макрос: ввод мм:сс,мс без двоеточий и запятых. (Макросы/Sub)

Valeron

Дата: Понедельник, 19.03.2018, 21:37 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 64

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте Форумчане!!!
Мне снова потребовался макрос для ввода временного показателя без разделителей.
Тот, что написал krosav4ig, почему-то не работает в этом файле.
Если можете помогите в этой проблеме.
Заранее благодарен!!!

К сообщению приложен файл: 0918962.xlsm (52.0 Kb) · 8074504.xlsm (52.8 Kb)

Ответить

Pelena

Дата: Вторник, 20.03.2018, 11:17 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19603

Репутация: 4660 ±

Замечаний: ±

Excel 365 & Mac Excel

Макроса от krosav4ig в этих файлах не увидела.
Если взять за основу макрос из этой темы, то будет как-то так
[vba]

Код

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Target
        If .NumberFormat = "mm:ss.00" And Int(.Value) = .Value Then
            Application.EnableEvents = False
            .Formula = Format(.Formula / 100, "00:00.00")
            .NumberFormat = "mm:ss.00"
            Application.EnableEvents = True
        End If
    End With
End Sub

[/vba]
И формат ячеек mm:ss,00

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Valeron

Дата: Четверг, 22.03.2018, 20:33 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 64

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте Pelena, !!!
Спасибо за ответ. Макрос загрузил, а вот с форматом почему-то не получается

Так как вы написали mm:ss,00 не подходит.
В формате мм:сс,00, либо соседний столбец не ранжирует, либо в сводном листе
не суммируются результаты.
Помогите пожалуйста разобраться yes

К сообщению приложен файл: 1115460.xlsm (52.0 Kb)

Ответить

Макрос: ввод мм:сс,мс без двоеточий и запятых. (Макросы/Sub)

Страница 1 из 1
1