Доброго времени суток я с экселем еще новичок и надеюсь на вашу помощь проблема такая есть таблица где 1 каталонка № по порядку а 13 фактическое время заполнения и на данный момент я пытаюсь формулами вывести так что бы когда заполняешь номер по порядку автоматически записывалось фактическое время самая главная проблема что в время которое получается вывести оно динамическое и постоянно меняется я надеюсь что вы сможете помочь мне воплотить в жизнь этот проект PS:(полную таблицу скинуть не могу работа не позволяет но надеюсь так понятно будет фаил закрепил )
Доброго времени суток я с экселем еще новичок и надеюсь на вашу помощь проблема такая есть таблица где 1 каталонка № по порядку а 13 фактическое время заполнения и на данный момент я пытаюсь формулами вывести так что бы когда заполняешь номер по порядку автоматически записывалось фактическое время самая главная проблема что в время которое получается вывести оно динамическое и постоянно меняется я надеюсь что вы сможете помочь мне воплотить в жизнь этот проект PS:(полную таблицу скинуть не могу работа не позволяет но надеюсь так понятно будет фаил закрепил )yurii
Private Sub Worksheet_Change(ByVal Target As Range) Dim dat& dat = Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A" & dat)) Is Nothing Then
If Target <> "" And Target.Offset(0, 13) = "" Then Target.Offset(0, 13) = Now End If End Sub
[/vba] Формат ячеек в столбце N ВРЕМЯ.
И вам добра!!! Так надо? [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim dat& dat = Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A" & dat)) Is Nothing Then
If Target <> "" And Target.Offset(0, 13) = "" Then Target.Offset(0, 13) = Now End If End Sub
китин,Спасибо за ответ почти нужна не дата а именно время вплоть до секунды и я делаю это не для себя а коллегам и по этому хотелось бы обойтись без VBA
китин,Спасибо за ответ почти нужна не дата а именно время вплоть до секунды и я делаю это не для себя а коллегам и по этому хотелось бы обойтись без VBAyurii
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a4:a65536")) Is Nothing Then u = Target.Offset(0, 13).Value a = Target.Value If a <> "" And u = "" Then Target.Offset(0, 13) = Format(Time, "h:mm:ss") End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a4:a65536")) Is Nothing Then u = Target.Offset(0, 13).Value a = Target.Value If a <> "" And u = "" Then Target.Offset(0, 13) = Format(Time, "h:mm:ss") End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
