Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Быстрый ввод даты и времени без разделителей
 
Добрый день. Ознакомилась с приемом быстрого ввода даты и времени без разделителей http://www.planetaexcel.ru/techniques/6/51/#7468. Помогите отредактировать макрос так, чтоб он выставлял время (без даты) в определенных строках. Например E11:AI11, E12:AI12, E15:AI15, E16:AI16 и т.д.
 
Код
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
 
Спасибо! Работает. ;)
Страницы: 1
Читают тему (гостей: 1)