Быстрый ввод даты и времени без разделителей

Пользователь

Сообщений: 34 Регистрация: 04.11.2015

24.02.2017 10:23:20

Добрый день. Ознакомилась с приемом быстрого ввода даты и времени без разделителей http://www.planetaexcel.ru/techniques/6/51/#7468. Помогите отредактировать макрос так, чтоб он выставлял время (без даты) в определенных строках. Например E11:AI11, E12:AI12, E15:AI15, E16:AI16 и т.д.

Прикрепленные файлы

Пример.xls (41 КБ)

Karataev

Пользователь

Сообщений: 2309 Регистрация: 23.10.2014

24.02.2017 10:46:58

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If ((Target.Row - 11) Mod 4 <> 0) And ((Target.Row - 12) Mod 4 <> 0) Then Exit Sub
    If Intersect(Target, Columns("E:AI")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Format(Target.Value, "00:00")
    Application.EnableEvents = True
End Sub

skymilk Пользователь Сообщений: 34 Регистрация: 04.11.2015	#3 24.02.2017 11:38:11 Спасибо! Работает.