Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматический Ввод статического времени - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматический Ввод статического времени (Формулы/Formulas)
Автоматический Ввод статического времени
yurii Дата: Вторник, 07.06.2022, 14:44 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Доброго времени суток я с экселем еще новичок и надеюсь на вашу помощь проблема такая есть таблица где 1 каталонка № по порядку а 13 фактическое время заполнения и на данный момент я пытаюсь формулами вывести так что бы когда заполняешь номер по порядку автоматически записывалось фактическое время самая главная проблема что в время которое получается вывести оно динамическое и постоянно меняется я надеюсь что вы сможете помочь мне воплотить в жизнь этот проект
PS:(полную таблицу скинуть не могу работа не позволяет но надеюсь так понятно будет фаил закрепил )
К сообщению приложен файл: __2.xlsx(11.2 Kb)
 
Ответить
СообщениеДоброго времени суток я с экселем еще новичок и надеюсь на вашу помощь проблема такая есть таблица где 1 каталонка № по порядку а 13 фактическое время заполнения и на данный момент я пытаюсь формулами вывести так что бы когда заполняешь номер по порядку автоматически записывалось фактическое время самая главная проблема что в время которое получается вывести оно динамическое и постоянно меняется я надеюсь что вы сможете помочь мне воплотить в жизнь этот проект
PS:(полную таблицу скинуть не могу работа не позволяет но надеюсь так понятно будет фаил закрепил )

Автор - yurii
Дата добавления - 07.06.2022 в 14:44
китин Дата: Вторник, 07.06.2022, 14:51 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6853
Репутация: 1050 ±
Замечаний: 0% ±

Excel 2007;2010;2016
И вам добра!!! Так надо?
[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]
Формат ячеек в столбце N ВРЕМЯ.
К сообщению приложен файл: yurii.xlsm(17.4 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеИ вам добра!!! Так надо?
[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]
Формат ячеек в столбце N ВРЕМЯ.

Автор - китин
Дата добавления - 07.06.2022 в 14:51
yurii Дата: Вторник, 07.06.2022, 14:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

китин,Спасибо за ответ почти нужна не дата а именно время вплоть до секунды и я делаю это не для себя а коллегам и по этому хотелось бы обойтись без VBA
 
Ответить
Сообщениекитин,Спасибо за ответ почти нужна не дата а именно время вплоть до секунды и я делаю это не для себя а коллегам и по этому хотелось бы обойтись без VBA

Автор - yurii
Дата добавления - 07.06.2022 в 14:57
Nic70y Дата: Вторник, 07.06.2022, 15:00 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 7567
Репутация: 1809 ±
Замечаний: 0% ±

Excel 2010
[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
[/vba]
К сообщению приложен файл: _2.xlsm(17.5 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 07.06.2022, 15:00
 
Ответить
Сообщение[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
[/vba]

Автор - Nic70y
Дата добавления - 07.06.2022 в 15:00
китин Дата: Вторник, 07.06.2022, 15:01 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 6853
Репутация: 1050 ±
Замечаний: 0% ±

Excel 2007;2010;2016
yurii, выше переписал, файл перевложил
Цитата
по этому хотелось бы обойтись без VBA

в вашем случае не получится


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеyurii, выше переписал, файл перевложил
Цитата
по этому хотелось бы обойтись без VBA

в вашем случае не получится

Автор - китин
Дата добавления - 07.06.2022 в 15:01
yurii Дата: Вторник, 07.06.2022, 16:11 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

китин, спасибо огромное помогли с проблемой
 
Ответить
Сообщениекитин, спасибо огромное помогли с проблемой

Автор - yurii
Дата добавления - 07.06.2022 в 16:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматический Ввод статического времени (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!