В А5 и В5 хотелось бы вводить 1234, а не 12:34, лечится форматом ячеек А5 и В5 - "00\:00", но тогда начинается проблема в С5 и D5 (при переходе времени после 00:00) Файл приложила.
В А5 и В5 хотелось бы вводить 1234, а не 12:34, лечится форматом ячеек А5 и В5 - "00\:00", но тогда начинается проблема в С5 и D5 (при переходе времени после 00:00) Файл приложила.kotena
sboy, bmv98rus, большое Вам спасибо, все верно работает)
TimSha, цель была - ввод в А5 и В5 1234 и получать 12:34, и потом с итогом в виде времени в С5 полученым от А5 и В5 продолжать производить расчеты)
sboy, bmv98rus, большое Вам спасибо, все верно работает)
TimSha, цель была - ввод в А5 и В5 1234 и получать 12:34, и потом с итогом в виде времени в С5 полученым от А5 и В5 продолжать производить расчеты)kotena
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Or Target = 0 Then Exit Sub If Not Intersect(Target, Range("A:B")) Is Nothing Then If Target < 0 Or Target > 2400 Then MsgBox "Так низзя": Exit Sub If Right(Target, 2) > 59 Then MsgBox "Так низзя": Exit Sub Application.EnableEvents = False tm = Format(Target.Value, "0000") tm = Left(tm, 2) & ":" & Right(tm, 2) Target = Format(tm, "hh:mm") End If Application.EnableEvents = True End Sub
[/vba]
Макрос тоже помогает. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Or Target = 0 Then Exit Sub If Not Intersect(Target, Range("A:B")) Is Nothing Then If Target < 0 Or Target > 2400 Then MsgBox "Так низзя": Exit Sub If Right(Target, 2) > 59 Then MsgBox "Так низзя": Exit Sub Application.EnableEvents = False tm = Format(Target.Value, "0000") tm = Left(tm, 2) & ":" & Right(tm, 2) Target = Format(tm, "hh:mm") End If Application.EnableEvents = True End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
))))
