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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение даты в день редактирования данных в ячейке. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение даты в день редактирования данных в ячейке. (Формулы/Formulas)
Изменение даты в день редактирования данных в ячейке.
Chetvertkoff Дата: Понедельник, 19.08.2019, 11:51 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
День добрый, прошу помощи в выполнении такого ТЗ.:
Есть номера по порядку, это номер заказа. Бывает когда надо поменять местами заказы и соответственно дата должна поменяться, то есть отчет выполнения заказа начнется с СЕГОДНЯ. То есть к примеру вчера поставили сначала делать заказ №2 и дата стала 18.08.19, а сегодня выяснили что надо заказ №3 отгрузить быстрее чем №2, меняют в таблице порядок выполнения и дата автоматом стала сегодняшней. Реально ли это сделать формулой? или только VBA?
К сообщению приложен файл: 3211403.xlsx (11.2 Kb)
 
Ответить
СообщениеДень добрый, прошу помощи в выполнении такого ТЗ.:
Есть номера по порядку, это номер заказа. Бывает когда надо поменять местами заказы и соответственно дата должна поменяться, то есть отчет выполнения заказа начнется с СЕГОДНЯ. То есть к примеру вчера поставили сначала делать заказ №2 и дата стала 18.08.19, а сегодня выяснили что надо заказ №3 отгрузить быстрее чем №2, меняют в таблице порядок выполнения и дата автоматом стала сегодняшней. Реально ли это сделать формулой? или только VBA?

Автор - Chetvertkoff
Дата добавления - 19.08.2019 в 11:51
Chetvertkoff Дата: Понедельник, 19.08.2019, 14:33 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
нашел вот такой код в просторах интернета

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
End Sub
[/vba]
но мне надо одну дату в одной ячейке, помогите ,как использовать этот код в моем примере
К сообщению приложен файл: 9177370.xls (32.5 Kb)
 
Ответить
Сообщениенашел вот такой код в просторах интернета

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
End Sub
[/vba]
но мне надо одну дату в одной ячейке, помогите ,как использовать этот код в моем примере

Автор - Chetvertkoff
Дата добавления - 19.08.2019 в 14:33
китин Дата: Понедельник, 19.08.2019, 14:42 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 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 <> "" Then Target.Offset(0, 4) = Date
End If
End Sub
[/vba]


Не судите очень строго:я пытаюсь научиться
ЯД 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 <> "" Then Target.Offset(0, 4) = Date
End If
End Sub
[/vba]

Автор - китин
Дата добавления - 19.08.2019 в 14:42
Chetvertkoff Дата: Понедельник, 19.08.2019, 14:53 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ну осталось только сделать чтоб дата менялась только в одной ячейке. То есть ячейка с датой в которой отображается дата изменения ячеек всего диапазона, а не даты на против каждой строки. Проверяет весь столбец но дату в одну ячейку всегда ставит.
 
Ответить
СообщениеНу осталось только сделать чтоб дата менялась только в одной ячейке. То есть ячейка с датой в которой отображается дата изменения ячеек всего диапазона, а не даты на против каждой строки. Проверяет весь столбец но дату в одну ячейку всегда ставит.

Автор - Chetvertkoff
Дата добавления - 19.08.2019 в 14:53
китин Дата: Понедельник, 19.08.2019, 15:00 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
не понял. макрос меняет дату только в 1 ячейке: в столбце D в той строке, где менялись данные столбца А


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениене понял. макрос меняет дату только в 1 ячейке: в столбце D в той строке, где менялись данные столбца А

Автор - китин
Дата добавления - 19.08.2019 в 15:00
Nic70y Дата: Понедельник, 19.08.2019, 15:02 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
If Target <> "" Then Target.Offset(0, 4) = Date

может так?
[vba]
Код
If Target = 1 Then Target.Offset(0, 4) = Date
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение
If Target <> "" Then Target.Offset(0, 4) = Date

может так?
[vba]
Код
If Target = 1 Then Target.Offset(0, 4) = Date
[/vba]

Автор - Nic70y
Дата добавления - 19.08.2019 в 15:02
Chetvertkoff Дата: Понедельник, 19.08.2019, 15:05 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Есть столбец A1:A10 где я ставлю номера , в какой ставлю - напротив появляется дата, а мне надо в фиксированном месте дата, но меняется она в зависимости от замены номера в любой ячейке заданного диапазона. Самый тупой пример - ЧАСЫ на стене, одни часы на стене!. Поменял значение ячейки - ПОМЕНЯЛОСЬ ВРЕМЯ! Завтра захожу в этот файл, и в другой ячейке меняю номер - НА ЭТИХ ЖЕ ЧАСАХ поменялось время когда я поменял значение в ДРУГОЙ уже ячейке.
 
Ответить
СообщениеЕсть столбец A1:A10 где я ставлю номера , в какой ставлю - напротив появляется дата, а мне надо в фиксированном месте дата, но меняется она в зависимости от замены номера в любой ячейке заданного диапазона. Самый тупой пример - ЧАСЫ на стене, одни часы на стене!. Поменял значение ячейки - ПОМЕНЯЛОСЬ ВРЕМЯ! Завтра захожу в этот файл, и в другой ячейке меняю номер - НА ЭТИХ ЖЕ ЧАСАХ поменялось время когда я поменял значение в ДРУГОЙ уже ячейке.

Автор - Chetvertkoff
Дата добавления - 19.08.2019 в 15:05
китин Дата: Понедельник, 19.08.2019, 15:11 | Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
[vba]
Код
Target.Offset(0, 4)
[/vba]
поменяйте на [vba]
Код
Range("D2")
[/vba]


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение[vba]
Код
Target.Offset(0, 4)
[/vba]
поменяйте на [vba]
Код
Range("D2")
[/vba]

Автор - китин
Дата добавления - 19.08.2019 в 15:11
Chetvertkoff Дата: Понедельник, 19.08.2019, 15:33 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 103
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Все работает))) спасибо большое!!!
 
Ответить
СообщениеВсе работает))) спасибо большое!!!

Автор - Chetvertkoff
Дата добавления - 19.08.2019 в 15:33
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение даты в день редактирования данных в ячейке. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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