Автоматический Ввод статического времени

Старая форма входа

Страница 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)

Ответить

китин

Дата: Вторник, 07.06.2022, 14:51 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 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

Ответить

yurii

Дата: Вторник, 07.06.2022, 14:57 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

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

Ответить

Nic70y

Дата: Вторник, 07.06.2022, 15:00 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 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]