Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Мар

Автоматическая вставка статической даты в Excel

Posted by obzor under VBA

Разрабатываю журнал посещения студентами занятий, и столкнулся с задачей — что бы когда нужные поля были заполнены, в нужное мне поле записывалась текущая дата (что бы было понятно когда преподаватель заполнил журнал).

Сделал так:

=ЕСЛИ(И(K73<>»»;K72<>»»;K18<>»»;K17 <>»»);СЕГОДНЯ();»»)

Проблема в том, что функция СЕГОДНЯ() — динамическая, и каждый раз обновляет дату.

Мне же нужно что бы автоматом подтягивалась текущая дата, записывалась в ячейку и не изменялась каждый день, а изменялась если
1. заполнены нужные поля
2. если какое-то из нужных мне полей было изменено.

AlexM12

У меня так получилось

Код:


Public x
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Range("H17:T18,H72:T73"), Target) Is Nothing Then Exit Sub
    x = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim col As Long: col = Target.Column
    If Target.Count > 1 Then Exit Sub
    If Intersect(Range("H17:T18,H72:T73"), Target) Is Nothing Then Exit Sub
    If Cells(17, col) <> "" And Cells(18, col) <> "" And _
        Cells(72, col) <> "" And Cells(73, col) <> "" And x <> Target.Value Then
        Cells(74, col) = Date
    Else '???
        Cells(74, col) = "" '???
    End If
End Sub