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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Изменение даты в ячейке Excel 2016
general2124 Дата: Пятница, 19.08.2022, 17:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Как сделать так, чтобы при изменение данных в ячейке Excel 2016 отображалась и менялась текущая дата в этой же ячейке?
 
Ответить
СообщениеКак сделать так, чтобы при изменение данных в ячейке Excel 2016 отображалась и менялась текущая дата в этой же ячейке?

Автор - general2124
Дата добавления - 19.08.2022 в 17:54
Serge_007 Дата: Пятница, 19.08.2022, 17:58 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Дата должна добавляться к значению изменяемой ячейки?
Если да, то только макросом


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеДата должна добавляться к значению изменяемой ячейки?
Если да, то только макросом

Автор - Serge_007
Дата добавления - 19.08.2022 в 17:58
general2124 Дата: Пятница, 19.08.2022, 20:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Есть текст макроса, но нужно сделать так, чтобы дата отображалась в той же ячейке где и текст[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]


Сообщение отредактировал Serge_007 - Суббота, 20.08.2022, 18:03
 
Ответить
СообщениеЕсть текст макроса, но нужно сделать так, чтобы дата отображалась в той же ячейке где и текст[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]

Автор - general2124
Дата добавления - 19.08.2022 в 20:33
  • Страница 1 из 1
  • 1
Поиск:

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