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

Вход

Регистрация

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

 

= Мир MS Excel/Отображение времени сохранения данных в ячейках - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Отображение времени сохранения данных в ячейках
olya2084 Дата: Вторник, 03.10.2023, 17:05 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: -2 ±
Замечаний: 20% ±

Добрый день! После заполнения данных в столбцах с X по AI в столбце AK присваивается статус "все заполнено". Можно как-то зафиксировать время и дату заполнения, например, в столбце BD? И чтобы эта дата и время не менялись при открытии/закрытии файла? Дата и время должны изменяться только при изменении заполненных данных.
К сообщению приложен файл: kopija_dlja_nachalnika_konstru.xlsm (482.9 Kb)


Сообщение отредактировал olya2084 - Вторник, 03.10.2023, 18:02
 
Ответить
СообщениеДобрый день! После заполнения данных в столбцах с X по AI в столбце AK присваивается статус "все заполнено". Можно как-то зафиксировать время и дату заполнения, например, в столбце BD? И чтобы эта дата и время не менялись при открытии/закрытии файла? Дата и время должны изменяться только при изменении заполненных данных.

Автор - olya2084
Дата добавления - 03.10.2023 в 17:05
DrMini Дата: Вторник, 03.10.2023, 19:12 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1835
Репутация: 261 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Файл загружен с ошибкой.

потом

и финал
К сообщению приложен файл: 7447101.png (30.6 Kb) · 0836413.png (31.9 Kb) · 4731538.png (37.8 Kb)
 
Ответить
СообщениеФайл загружен с ошибкой.

потом

и финал

Автор - DrMini
Дата добавления - 03.10.2023 в 19:12
olya2084 Дата: Вторник, 03.10.2023, 20:22 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: -2 ±
Замечаний: 20% ±

DrMini,


Сообщение отредактировал olya2084 - Вторник, 03.10.2023, 20:30
 
Ответить
СообщениеDrMini,

Автор - olya2084
Дата добавления - 03.10.2023 в 20:22
olya2084 Дата: Вторник, 03.10.2023, 20:29 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: -2 ±
Замечаний: 20% ±

DrMini, попробуйте этот открыть.Вроде бы открывается без проблем.
К сообщению приложен файл: 0641292.xlsx (20.5 Kb)
 
Ответить
СообщениеDrMini, попробуйте этот открыть.Вроде бы открывается без проблем.

Автор - olya2084
Дата добавления - 03.10.2023 в 20:29
DrMini Дата: Вторник, 03.10.2023, 20:51 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1835
Репутация: 261 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Да открывается.
Вот вариант формулой.
Код
=ЕСЛИ(AK6="все заполнено";ЕСЛИ($BD$1="";ТДАТА();$BD$1);"")

но если будут изменения то она изменится.
Лучше всего в этом случае VBA.
В этом не силён.
Думаю до завтра предложат нужный макрос.

Не. Не работает. Только VBA.
К сообщению приложен файл: 8093502.xlsx (21.2 Kb)


Сообщение отредактировал DrMini - Среда, 04.10.2023, 04:57
 
Ответить
СообщениеДа открывается.
Вот вариант формулой.
Код
=ЕСЛИ(AK6="все заполнено";ЕСЛИ($BD$1="";ТДАТА();$BD$1);"")

но если будут изменения то она изменится.
Лучше всего в этом случае VBA.
В этом не силён.
Думаю до завтра предложат нужный макрос.

Не. Не работает. Только VBA.

Автор - DrMini
Дата добавления - 03.10.2023 в 20:51
Nic70y Дата: Среда, 04.10.2023, 08:36 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8972
Репутация: 2356 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    u = UsedRange.Rows.Count
    If Not Intersect(Target, Range("x6:ai" & u)) Is Nothing Then
        a = Target.Row              'строка, в которую вносим данные
        b = Range("ak" & a).Value   'статус
        с = Range("bd" & a).Value   'дата / время
        'если статус = "все заполнено" и дата / время не заполнено, _
        тогда записываем
        If b = "все заполнено" And c = "" Then Range("bd" & a) = Now
        'если внести изменения в строку с уже "все заполнено" и датой / временем _
        и нужно изменить время:
        'If b = "все заполнено" Then Range("bd" & a) = Now
        'но если данные обновятся и при этом остануться прежними - дата изменится
    End If
End Sub
[/vba]
u = UsedRange.Rows.Count работает при условии, что в 1-й строке есть какое-то значение
К сообщению приложен файл: 11.xlsm (27.2 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 04.10.2023, 08:40
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    u = UsedRange.Rows.Count
    If Not Intersect(Target, Range("x6:ai" & u)) Is Nothing Then
        a = Target.Row              'строка, в которую вносим данные
        b = Range("ak" & a).Value   'статус
        с = Range("bd" & a).Value   'дата / время
        'если статус = "все заполнено" и дата / время не заполнено, _
        тогда записываем
        If b = "все заполнено" And c = "" Then Range("bd" & a) = Now
        'если внести изменения в строку с уже "все заполнено" и датой / временем _
        и нужно изменить время:
        'If b = "все заполнено" Then Range("bd" & a) = Now
        'но если данные обновятся и при этом остануться прежними - дата изменится
    End If
End Sub
[/vba]
u = UsedRange.Rows.Count работает при условии, что в 1-й строке есть какое-то значение

Автор - Nic70y
Дата добавления - 04.10.2023 в 08:36
olya2084 Дата: Среда, 04.10.2023, 22:16 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: -2 ±
Замечаний: 20% ±

Nic70y, спасибо! Пока все работает!!!!
 
Ответить
СообщениеNic70y, спасибо! Пока все работает!!!!

Автор - olya2084
Дата добавления - 04.10.2023 в 22:16
olya2084 Дата: Воскресенье, 08.10.2023, 00:08 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: -2 ±
Замечаний: 20% ±

Nic70y, Добрый вечер! Может вас не затруднит подсказать: мне нужно добавить в столбец BZ аналогичное отображение времени при следующем условии: столбец BM заполнен и присвоен статус "все заполнено" в столбце BQ. Попробовала скопировать предыдущий макрос, изменив наименование столбцов- ничего не вышло, выдает ошибку.
К сообщению приложен файл: dlja_tekhnologa_cekha_2.xlsm (32.5 Kb)
 
Ответить
СообщениеNic70y, Добрый вечер! Может вас не затруднит подсказать: мне нужно добавить в столбец BZ аналогичное отображение времени при следующем условии: столбец BM заполнен и присвоен статус "все заполнено" в столбце BQ. Попробовала скопировать предыдущий макрос, изменив наименование столбцов- ничего не вышло, выдает ошибку.

Автор - olya2084
Дата добавления - 08.10.2023 в 00:08
  • Страница 1 из 1
  • 1
Поиск:

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