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

Вход

Регистрация

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

 

= Мир MS Excel/Дата в соседнюю ячейку при заполнении таблицы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Дата в соседнюю ячейку при заполнении таблицы (Формулы/Formulas)
Дата в соседнюю ячейку при заполнении таблицы
KIK Дата: Воскресенье, 06.09.2020, 11:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013 / 2016
Подскажите пожалуйста, текущий код вводит дату в ячейку D при заполнении E, как можно сделать, чтобы дата вводилась ещё и в A при заполнении B? Т.е. работало одновременно.

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("E2:E10000")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, -1)         'вводим в соседнюю справа ячейку дату
               .Value = Now
            End With
       End If
    Next cell
End Sub
[/vba]
 
Ответить
СообщениеПодскажите пожалуйста, текущий код вводит дату в ячейку D при заполнении E, как можно сделать, чтобы дата вводилась ещё и в A при заполнении B? Т.е. работало одновременно.

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

Автор - KIK
Дата добавления - 06.09.2020 в 11:36
Nic70y Дата: Понедельник, 07.09.2020, 08:32 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6509
Репутация: 1431 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
, Range("B2:B10000, E2:E10000")
[/vba]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[vba]
Код
, Range("B2:B10000, E2:E10000")
[/vba]

Автор - Nic70y
Дата добавления - 07.09.2020 в 08:32
KIK Дата: Понедельник, 07.09.2020, 17:29 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013 / 2016
Nic70y,
Спасибо большое, я через точку с запятой пробовал по привычке. :D А возможно ли сделать, чтобы после однократного заполнения даты, изменения ячеек B и E не влияло на неё, а то при коррекции, дата будет меняться, а даже откат назад невозможен, можно случайно всё испортить.
 
Ответить
СообщениеNic70y,
Спасибо большое, я через точку с запятой пробовал по привычке. :D А возможно ли сделать, чтобы после однократного заполнения даты, изменения ячеек B и E не влияло на неё, а то при коррекции, дата будет меняться, а даже откат назад невозможен, можно случайно всё испортить.

Автор - KIK
Дата добавления - 07.09.2020 в 17:29
Nic70y Дата: Вторник, 08.09.2020, 08:18 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 6509
Репутация: 1431 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B10000, E2:E10000")) Is Nothing Then
        If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Now
    End If
End Sub
[/vba]
[p.s.]Если нужна дата без времени, то Now меняем на Date[/p.s.]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B10000, E2:E10000")) Is Nothing Then
        If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Now
    End If
End Sub
[/vba]
[p.s.]Если нужна дата без времени, то Now меняем на Date[/p.s.]

Автор - Nic70y
Дата добавления - 08.09.2020 в 08:18
KIK Дата: Вторник, 08.09.2020, 18:23 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013 / 2016
Nic70y,
Спасибо, удивительно просто.
 
Ответить
СообщениеNic70y,
Спасибо, удивительно просто.

Автор - KIK
Дата добавления - 08.09.2020 в 18:23
Extybr Дата: Среда, 23.09.2020, 00:06 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y,
Вечер добрый
Подскажите пожалуйста а как поменять первоначальный код что бы проверял в указанном диапазоне значения ячеек ( допустим если в А2:А100 в ячейке 1 то в соседнюю с датами ставиться текущая дата (сегодняшняя) если нет то дата не меняется.


Сообщение отредактировал Extybr - Среда, 23.09.2020, 00:07
 
Ответить
СообщениеNic70y,
Вечер добрый
Подскажите пожалуйста а как поменять первоначальный код что бы проверял в указанном диапазоне значения ячеек ( допустим если в А2:А100 в ячейке 1 то в соседнюю с датами ставиться текущая дата (сегодняшняя) если нет то дата не меняется.

Автор - Extybr
Дата добавления - 23.09.2020 в 00:06
Nic70y Дата: Среда, 23.09.2020, 14:32 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 6509
Репутация: 1431 ±
Замечаний: 0% ±

ru13;10;03
Extybr,
что бы проверял в указанном диапазоне значения ячеек
это уже совсем другая тема,
создайте новую и немного подробнее опишите проблему.


Яндекс Деньги 41001841029809
 
Ответить
СообщениеExtybr,
что бы проверял в указанном диапазоне значения ячеек
это уже совсем другая тема,
создайте новую и немного подробнее опишите проблему.

Автор - Nic70y
Дата добавления - 23.09.2020 в 14:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Дата в соседнюю ячейку при заполнении таблицы (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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