Как вставить дату в excel автоматически

Дата в эксель автоматически

​Смотрите также​ пользователь вводит номер​ она работает. Хотя​ двумя датами, достаточно​ по всем измененным​ Последовательность будет сформирована.​ Заполнить по месяцам.​​ статье «Как сравнить​Получилась такая формула и​ ​В следующей ячейке​​ полное слово или​Для работы с​ к дате дни,​​ похожи на даты​ ​>​​ «Заполнить автоматически список​
​.​Дату в Excel​ заказа, имя клиента,​ результаты лучше проверять,​ от более позднего​ ячейкам If Not​Если требуется сформировать временную​
​Изменив формат ячеек, содержащих​ два столбца в​ такой результат.​ пишем число месяцев,​
​ просто поставить точку.​ ​ датами, их можно​
​ месяцы, года, посчитать​
​ (например, чисел с​Числовой формат​ в Excel».​Первый вариант.​ можно установить несколькими​ сумму и т.д.​ т.к. возможны огрехи.​ временного периода отнять​
​ Intersect(cell, Range(«A2:A100»)) Is​ последовательность с шагом​ последовательность 01.01.09, 01.02.09,​ Excel на совпадения»​Если изменим цифру дней​ которое будем прибавлять​​ Смотрите пример.​ записать по–разному, для​ стаж, возраст, время​ дробями), вы можете​>​
​В Excel можно​
​Выделяем ячейку с​
​ способами — вставить​ Необходимо сделать так,​Возвращает год как целое​ более ранний.​ Nothing Then ‘если​ 15 минут (09:00,​ 01.03.09, на МММ​ здесь.​ с 11 на​ к дате. В​В ячейке С6 стоит​​ разных формул. И​-​ отформатировать ячейки как​Время​ сделать много разных​
​ датой. Нажимаем ПРАВОЙ​ ​ текущую дату, заполнить​​ чтобы при внесении​
​ число (от 1900​
​​ изменененная ячейка попадает​ 09:15, 09:30, . ),​ (см. статью Пользовательский​Если, для работы​ 25, то получится​ примере – это​ формула, искомая дата.​ формат ячеек с​все это можно​ текст. После этого​​.​ графиков. Рассмотрим еще​ мышкой на квадратик​ таблицу датами с​ номера заказа в​ до 9999), который​Построение значение даты, составляя​ в диапазон A2:A100​ то можно использовать​
​ формат дат) получим​
​ нужно изменить формат​ ​ такая дата.​ ячейка G13.​
​А здесь, вместо​ формулами должен быть​ сделать формулами. Как​ Excel Online не​Дата и время, обновляемые​ один вид диаграммы,​ в правом нижнем​ определенным периодом, т.​ столбец А -​ соответствует заданной дате.​ его из отдельных​ With cell.Offset(0, 1)​
​ формулу =B15+1/24/60*15 (Предполагается,​ последовательность янв, фев,​ даты на текстовый,​Как ввести адрес ячейки​В ячейке Н13​ букв «г.», «мес.»,​ определенный. Все это​
​ посчитать дату выхода​ будет пытаться преобразовать​ при пересчете листа​ которая будет сравнивать​ углу и протягиваем​
​ д.​
​ в столбце B​ В структуре функции​ элементов-чисел.​ ‘вводим в соседнюю​ что последовательность начинается​ мар, . ​
​ то смотрите статью​
​ быстро смотрите в​ будет стоять результат,​ «дн.» просто поставили​ прописано в тексте​ сотрудника из отпуска​ их в даты.​ или открытии книги,​
​ данные трех столбцов.​
​ на нужное количество​
​Как вставить текущую дату​ напротив введенного заказа​ только один аргумент​Синтаксис: год; месяц, день.​
​ справа ячейку дату​ с ячейки​Эту же последовательность можно​ «Преобразовать дату в​ статье «Сложение, вычитание,​ здесь пишем формулу.​ точку.​ –​ или сколько дней​

Вставка текущих даты и времени в ячейку

​Выберите ячейки, в которые​​ считаются динамическими, а​ Подробнее, смотрите в​ ячеек. Отпускаем мышку.​ в​ автоматически появлялись дата​ – дата в​Все аргументы обязательные. Их​ .Value = Now​B15​ ввести используя список​ текст Excel».​ умножение, деление в​ Нажимаем на эту​Если в ячейку В6​обращайте внимание.​ осталось до отпуска,​ необходимо ввести числа.​ не статическими. Чаще​ статье «Пузырьковая диаграмма​ В появившемся диалоговом​Excel​

​ и время его​ числовом формате. Аргумент​ можно задать числами​ .EntireColumn.AutoFit ‘выполняем автоподбор​, формулу нужно ввести​ автозаполения Кнопка Офис/​В Excel можно​ Excel».​ ячейку, делаем её​ поставим​1.​ посчитать возраст, расчитать​Щелкните​

Вставка статических значений даты или времени

​ всего для получения​ в Excel».​ окне нажимаем на​

​, смотрите в статье​ занесения:​ должен быть введен​ или ссылками на​

​ ширины для столбца​

​ в​ Параметры Excel/ Основные/​​ считать не только​​В Excel есть​​ активной. Заходим на​​текущую дату​​Разница дат в Excel​​ дату срока оплаты​​Главная​​ динамической даты или​​Примечание:​​ функцию «Прогрессия». Появится​

​ «Текущая дата в​Чтобы реализовать такой ввод​​ посредством функции ДАТА​​ ячейки с соответствующими​​ B, чтобы дата​​B16​​ Основные параметры работы​​ даты, но и​

Вставка обновляемых значений даты или времени

​ три функции, которые​ закладку «Формулы» в​, то сможем узнать​высчитывается так.​ счета или окончания​>​ времени в ячейке​Мы стараемся как​ такое диалоговое окно.​ Excel». Здесь рассмотрим,​

​ даты, нам потребуется​ или представлять результат​ числовыми данными: для​ умещалась в ячейке​​). Формула вернет результат​​ с Excel/ Изменить​​ время. Как высчитывать​​ выбирают из даты​ раздел «Библиотека функций»​ стаж по сегодняшнее​Столбец А –​ договора, посчитать рабочие​Числовой формат​

​ на листе используются​ ​ можно оперативнее обеспечивать​ ​Устанавливаем галочки у нужных​

​как заполнить таблицу​

​ простой макрос, который​

​ вычисления других формул.​ года – от​

​ в формате даты.​ списки (введите янв,​ время, читайте в​

​ или только число,​​ и выбираем функцию​​ число. Например, узнать​​ пишем дату начала​​ дни и многие,​​>​ функции.​ вас актуальными справочными​ функций, ставим шаг​Excel определенными датами​ надо добавить в​Пример использования функции ГОД:​ 1900 до 9999;​ If Next cell​Другая формула =ТЕКСТ(B15+1/24/60*15;»чч:мм») вернет​

Отмена автоматической замены чисел датами

​ затем Маркером заполнения​ статье «Как посчитать​ или только месяц,​ «Дата и время».​ стаж работника на​ периода, столбец В​ многие другие действия​Текст​Чтобы вставить текущую дату​ материалами на вашем​ (например, через какое​.​ модуль рабочего листа.​

​Возвращает месяц как целое​ для месяца –​ End Sub​ результат в текстовом​ скопируйте вниз).​ время в Excel»​ или год. Это​Или можно открыть​ предприятии. Каждый день​ – пишем дату​

​ или время, чтобы​​ языке. Эта страница​​ количество дней писать​​Можно установить последовательные​​ Для этого щелкните​​ число (от 1​​ от 1 до​

​При необходимости измените «чувствительный»​ формате.​Ячейки будут содержать не​ тут.​ функции «ГОД», «МЕСЯЦ»,​ мастер функций кнопкой​ стаж будет пересчитываться​

​ окончания периода. В​ временем можно проводить​Если вам нужно ввести​ он является обновляемым,​ переведена автоматически, поэтому​

​ даты, пример -​ даты в столбец,​ правой кнопкой мыши​ до 12) для​ 12; для дня​ диапазон​СОВЕТ:​ даты, как в​Как посчитать возраст,​ «ДЕНЬ».​ «Вставить функцию» (на​ на текущую дату.​

​ столбце А и​​ в Excel.​

​ всего несколько чисел,​ с помощью функции​ ее текст может​ с разницей в​ которые будут идти​ по ярлычку листа​ заданной в числовом​ – от 1​»А2:А100″​О текстовых последовательностях​

​ предыдущем случае, а​ смотрите в статье​Делаем активной ячейку​ закладке «Формулы») и​ Как установить текущую​ В устанавливаем формат​

​Все расчеты с​ можно отменить их​сегодня​ содержать неточности и​ два дня –​ по порядку по​ с таблицей и​ формате даты. Аргумент​

Дата в Excel. Формула.

​ до 31.​на свой собственный.​ вида первый, второй,​ текстовые значения.​ «Как посчитать возраст​​ В19. На закладке​​ выбрать категорию «Дата​ дату смотрите в​ ячейки «Дата». Где​ датами описаны в​ преобразование в даты​и​ грамматические ошибки. Для​ 12, 14, 16,​ возрастанию. Для этого​ выберите в контекстном​ – дата месяца,​Если для аргумента «День»​ Если необходимо вставлять​ . 1), 2),​Аналогичным образом можно сформировать​
​ в Excel».​ «Формулы» в разделе​ и время».​ статье «Текущая дата​ найти эту функцию​ нескольких статьях. Смотрите​ в Excel Online​
​ТДАТА​
​ нас важно, чтобы​ т.д.). Нажимаем «ОК».​ есть функция автозаполнения​ меню команду​ который необходимо отобразить,​ задать большее число​ дату не в​ 3), . можно​ последовательность дней недели​Создадим последовательности дат и​ «Библиотека функций» нажимаем​Теперь выбираем из​​ в Excel».​​ и как установить​ перечень статей в​ одним из таких​, как показано​ эта статья была​Второй вариант.​
​ даты в Excel.​Исходный текст​ в числовом формате.​ (чем количество дней​ соседний столбец, а​ прочитать в статье​
​ пн, вт, ср,​ времен различных видов:​ на функцию «Дата​ списка функцию «ДАТА».​2.​ её, смотрите в​ конце статьи в​ способов:​
​ в таблице ниже.​ вам полезна. Просим​Вставить даты в​Можно установить даты​(View code)​ Даты в текстовом​ в указанном месяце),​ правее — подставьте​ Текстовые последовательности.​
​ . ​ 01.01.09, 01.02.09, 01.03.09,​ и время». В​ Выходит диалоговое окно.​Как прибавить к дате​ статье «Число Excel.​ разделе «Другие статьи​добавить перед числом апостроф​ Просмотреть дополнительные сведения​​ вас уделить пару​
​Excel с определенным периодом​​ с определенным периодом​​.​
​ формате функция обрабатывает​ то лишние дни​ в оператор​О числовых последовательностях​Последовательность кварталов 1 кв.,​ . янв, апр,​ появившемся окне выбираем​ В нем пишем:​ дни в Excel.​ Формат».​ по этой теме».​ (‘). Например: ’11-53​ о том, как​
​ секунд и сообщить,​ формулой.​ или, только, рабочими​В открывшееся окно редактора​ неправильно.​ перейдут на следующий​Offset(0,1)​ вида 1, 2,​
​ 2 кв. можно​ июл, . пн,​ нужную функцию. Например,​
​«Год» — год​Первый способ.​Столбец С –​
​Внимание!​ или ‘1/47. Апостроф​
​ использовать эти функции​
​ помогла ли она​Например, нам нужно​ днями, т.д.​ Visual Basic скопируйте​Примеры использования функции МЕСЯЦ:​ месяц. Например, указав​вместо 1 число​ 3, . 1,​
​ сформировать используя идеи​​ вт, ср, . ​
​ мы выбрали функцию​ нашей даты.​
​В примере прибавим​ будет стоять формула​
​Если формулы не​ не отображается после​
​ сегодня и ТДАТА.​ вам, с помощью​
​ заполнить ячейки столбца​Автозаполнение даты в​ этот текст этого​Возвращает день как целое​ для декабря 32​ побольше.​ 3, 5, 7,​ из статьи Текстовые​ 1 кв., 2​ «ГОД». В появившемся​«Месяц» — пишем​​ 9 месяцев.​ и результат подсчета.​
​ будут работать, проверьте​ нажатия клавиши ВВОД;​Какие​ кнопок внизу страницы.​
​ датами с промежутком​Excel.​​ макроса:​​ число (от 1​ дня, получим в​Закройте редактор Visual Basic​ . I, II,​ последовательности.​ кв. 09:00, 10:00,​ диалоговом окне указали​ месяц нашей даты​В ячейке А13​ Здесь будет записана​ формат дат. Бывает,​
​добавить перед дробным числом​​Чтобы добавить​ Для удобства также​
​ 7 дней. В​
​Первый способ.​Private Sub Worksheet_Change(ByVal​
​ до 31) для​ результате 1 января.​ и попробуйте ввести​ III, IV, . ​
​Используя инструмент Прогрессия, можно​ 11:00, . и​ адрес ячейки с​ числом, ставим плюс​ пишем дату, к​ дата в таком​ при копировании из​ ноль и пробел,​
​Ячейка​ приводим ссылку на​ ячейке D20 написали​Как заполнить последующими​ Target As Range)​ заданной в числовом​​Пример использования функции:​ что-нибудь в диапазон​ можно прочитать в​ создать последовательности только​
​ пр.​​ датой (А19). Нажали​​ и пишем адрес​ которой будем прибавлять​ виде, как мы​ других программ в​ например, чтобы числа​Результат​ оригинал (на английском​ дату – 12.01.2016.​
​ датами ячейки мы​
​ For Each cell​ формате даты. Аргумент​
​Зададим большее количество дней​ А2:А100. В соседней​ статье Числовые последовательности.​ рабочих дней. А​Т.к. каждому значению даты​
​ «ОК». Получилось так.​ ячейки, в которой​ 9 месяцев.​ её пропишем в​ Excel даты вставляются​ 1/2 или 3/4​
​=СЕГОДНЯ()​ языке) .​ В ячейке D​ знаем. Нужно выделить​ In Target ‘проходим​ – дата дня,​ для июня:​ ячейке тут же​Предположим, у нас имеется​ также с шагом​
​ соответствует определенное число​ Смотрите ячейку В19.​ стоит число месяцев,​В ячейке D13​ формуле.​ в текстовом формате.​
​ не заменялись датами​Текущая дата (значения могут​Предположим, что вы хотите​ 21 написали такую​
​ ячейку с датой.​ по всем измененным​
​ который нужно найти,​Примеры использования в качестве​ появится текущая дата-время!​ таблица заказов, куда​ месяц и год.​ (см. статью Как​ Вместо полной даты​ которое нужно прибавить​
​ пишем формулу. Можно​В ячейке А6​
​ Тогда формулы не​
​ 2 янв или​ быть разными)​
​ быстро вводить текущие​ формулу. =D20+7 Копируем​
​ Нажать квадратик в​ ячейкам If Not​ в числовом формате.​ аргументов ссылок на​Для работы с датами​ пользователь вводит номер​Последовательность первых месяцев кварталов​ EXCEL хранит дату​ стоит только год.​ к дате.​ написать формулу в​ пишем первую дату​ считают. Чтобы формулы​ 4 мар. Ноль​=ТДАТА()​ дату и время​ эту формулу вниз​
​ правом нижнем углу​ Intersect(cell, Range(«A2:A100»)) Is​Чтобы вернуть порядковый номер​ ячейки:​ в Excel в​ заказа, имя клиента,​ янв, апр, июл,​ и время), то​
​Другими соответствующими функциями выбрали​
​«День» — пишем​ соседней ячейке, просто,​
​ (начало периода).​ считали, нужно изменить​ не остается в​Текущие дата и время​
​ при записи действий​ по столбцу. Получится​ ячейки ЛЕВОЙ кнопкой​ Nothing Then ‘если​ дня недели для​
​Возвращает разницу между двумя​ разделе с функциями​ сумму и т.д.​ окт, янв, . ​ подходы для формирования​ месяц (ячейка В20)​ день нашей даты.​ в примере, она​
​В ячейке В6​ формат ЗНАЧЕНИЙ на​ ячейке после нажатия​ (значения могут быть​ в журнал или​ так.​ мыши.​ изменененная ячейка попадает​ указанной даты, можно​ датами.​ определена категория «Дата​ Необходимо сделать так,​ можно создать введя​ последовательностей, изложенные в​ и день (ячейка​Получилось так.​ стоит там –​
​ пишем вторую дату​ числовой​ клавиши ВВОД, а​ разными)​ сделать так, чтобы​Использование формулы для заполнения​
​Указатель мышки превратится в​ в диапазон A2:A100​ применить функцию ДЕНЬНЕД:​Аргументы:​ и время». Рассмотрим​ чтобы при внесении​ в две ячейки​ статье Числовые последовательности,​ В21). Формат в​
​Нажимаем «ОК». Получилась такая​ в ячейке D13.​ (конец периода).​-​ тип ячейки становится​Примечание:​ они автоматически выводились​ ячеек датами хорошо​ черный крестик. Тянем​ With cell.Offset(0, 1)​По умолчанию функция считает​начальная дата;​
​ наиболее распространенные функции​ номера заказа в​ первые два элемента​ применимы и для​ этих ячейках можно​ формула. =ДАТА(1979;11+G13;1)​ =ДАТА(ГОД(A13);МЕСЯЦ(A13)+9;ДЕНЬ(A13))​В ячейке С6​это не формат​ дробным.​
​ Результаты, возвращаемые функцией​ в ячейке при​ тем, что при​ этот крестик вниз​ ‘вводим в соседнюю​ воскресенье первым днем​
​конечная дата;​ в этой категории.​ столбец А -​ последовательности (янв, апр),​ дат. Однако, имеются​ установить другой.​Смотрим в таблице​В формуле все​
​ пишем формулу:​ ячейки. Как это​Примечания:​СЕГОДНЯ​

Последовательности дат и времен в MS EXCEL

​ каждом пересчете формул.​ изменении даты в​ по столбцу. Ячейки​ справа ячейку дату​ недели.​код, обозначающий единицы подсчета​Программа Excel «воспринимает» дату​ в столбце B​ затем (предварительно выделив​ и свои особенности.​

​Конечно, можно изменить​ результат.​ три адреса ячейки​=РАЗНДАТ(A6;B6;»y»)&»г.»&РАЗНДАТ(A6;B6;»ym»)&»мес.»&РАЗНДАТ(A6;B6;»md»)&»дн.»​ сделать, читайте в​ ​или​ Вы можете вставить​ первой ячейке, изменятся​ заполнятся следующими датами.​ .Value = Now​

​Для отображения порядкового номера​ (дни, месяцы, годы​ и время как​ напротив введенного заказа​​ их) скопировать вниз​​Последовательность 01.01.09, 01.02.09, 01.03.09​ формат даты в​Такой расчет даты удобен​

​ одинаковые, т.к. дата​Эту формулу пишем​ статье «Преобразовать текст​Вместо апострофа можно использовать​​ТДАТА​​ значения, которые не​ даты в остальных​​ Получится так.​​ .EntireColumn.AutoFit ‘выполняем автоподбор​ недели для указанной​ и др.).​​ обычное число. Электронная​​ автоматически появлялись дата​ маркером заполнения. Ячейки​ (первые дни месяцев)​ ячейке или написать​ тем, что всегда​ записана в одной​ вручную (можно здесь​

​ в дату Excel»​ пробел, но если​, изменяются только при​ будут изменяться, или​ ячейках.​Все хорошо, но, нам​ ширины для столбца​

​ даты применяется функция​Способы измерения интервалов между​ таблица преобразует подобные​ и время его​ будут содержать текстовые​ можно сформировать формулой​ свой формат. Как​ можно изменить цифру​ ячейке. Здесь все​

​ скопировать, заменить адреса​ тут.​ вы планируете применять​ пересчете листа или​

​ же обновлять их.​Чтобы заполнить ячейки​ нужно заполнить ячейки​ B, чтобы дата​

​ НОМНЕДЕЛИ:​ заданными датами:​ данные, приравнивая сутки​ занесения:​ значения. Чтобы ячейки​

​ =ДАТАМЕС(B2;СТРОКА(A1)), в ячейке​ создать свой формат,​ месяца, не меняя​ верно. Получилось.​ ячеек), п.ч. в​

​Для подсчета дат​ функции поиска для​ выполнении макроса, содержащего​Статические значения не изменяются​ датами с промежутком​ только рабочими днями.​ умещалась в ячейке​Дата 24.05.2015 приходится на​для отображения результата в​ к единице. В​Чтобы реализовать такой ввод​ содержали даты, используйте​B2​ смотрите в статье​ формулы. Например, фирма​Таким же образом можно​​ русскоязычной версии Microsoft​​ нужно сделать таблицу​ этих данных, мы​​ ее. Постоянного обновления​​ при пересчете или​

​ 1 месяц, нужно​ Вот тут начинается​ End With End​ 22 неделю в​ днях – «d»;​​ результате значение времени​​ даты, нам потребуется​ формулу =ДАТАМЕС($G$16;(СТРОКА(A2)-СТРОКА($A$1))*3) Предполагается,​​должна находиться дата​​ «Как создать пользовательский​ не успевает сделать​​ прибавить года, изменив​​ Excel, она не​ в Excel и​

​ рекомендуем использовать апостроф.​ ячеек, содержащих эти​ открытии листа.​ в ячейке D21​ «волшебство» Excel. :)​ If Next cell​ году. Неделя начинается​в месяцах – «m»;​​ представляет собой долю​​ простой макрос, который​ что последовательность начинается​​ — первый элемент​​ формат в Excel»​ заказ вовремя, сроки​

​ чуть формулу. Смотрите​ видна в перечне​ установить в ней​

​ Такие функции, как​
​ функции, не происходит.​Выделите на листе ячейку,​ написать такую формулу.​Второй способ.​ End Sub​ с воскресенья (по​
​в годах – «y»;​ от единицы. К​ надо добавить в​ с ячейки​ последовательности (01.01.09).​ тут.​ окончания работы продлеваются.​ пример.​

Автоматическая вставка текущей даты в ячейку при вводе данных

​ функций, но работает.​ формулы. Этим мы​ ПОИСКПОЗ и ВПР,​ В качестве значений​ в которую вы​=ДАТА(ГОД(D20);МЕСЯЦ(D20)+1;ДЕНЬ(D20))​Автоматическая дата в Excel.​При необходимости измените «чувствительный»​ умолчанию).​в месяцах без учета​ примеру, 12.00 –​ модуль рабочего листа.​G16​Эту же последовательность можно​

​В Excel есть​ Меняем цифру в​=​Пояснения к формуле​ сейчас и займемся.​ не учитывают апострофы​ даты и времени​ хотите вставить текущую​В формуле мы​Выделяем ячейку с​ диапазон​​В качестве второго аргумента​ ​ лет – «ym»;​​ это 0,5.​

​ Для этого щелкните​, формулу нужно ввести​ сформировать используя правую​ функции, которыми можно​

​ ячейке G 13​ДАТА(ГОД(A13)+2;МЕСЯЦ(A13);ДЕНЬ(A13))​:​Как простыми способами​ при вычислении результатов.​ используются показания системных​ дату или время.​ написали — дату​ датой. Нажимаем на​»А2:А100″​ указана цифра 2.​в днях без учета​Значение даты электронная таблица​ правой кнопкой мыши​ в ячейку​ клавишу мыши. Пусть​ сложить данные из​ и формула расчитывает​Или прибавить сразу всё​РАЗНДАТ – это​ прибавить к дате​

​Если число в ячейке​ часов компьютера.​​Сделайте одно из следующего:​​ написать, как в​ квадратик в правом​на свой собственный.​ Поэтому формула считает,​ месяцев и лет​ преобразует в число,​​ по ярлычку листа​​G17​ в ячейку​

​ таблицы за конкретный​ новую дату. По​ – года, месяцы,​ название функции.​ или вычесть из​ выровнено по левому​

Функции для работы с датами в Excel: примеры использования

​Чтобы даты было проще​Чтобы вставить дату, введите​ ячейке D20, только​ нижнем углу ячейки​ Если необходимо вставлять​ что неделя начинается​ – «md»;​

Как Excel обрабатывает время

​ равное количеству дней​ с таблицей и​ (см. файл примера).​A2​ день, т.д. Этот​ такому принципу можно​ дни. По такой​y – считает​ даты дни, месяци​ краю, обычно это​ вводить, Excel Online​

​ дату (например,​ к месяцу прибавить​ ПРАВОЙ кнопкой мыши​ дату не в​ с понедельника (второй​в днях без учета​ от 1 января​ выберите в контекстном​Временную последовательность 09:00, 10:00,​введено значение 01.01.09.​ способ пригодится при​ прибавлять, отнимать по​

​ формуле можно рассчитать​ года​ или года, смотрите​ означает, что оно​ автоматически преобразует 2.12​2.2​ 1 месяц.​ и протягиваем вниз​

​ соседний столбец, а​

Пример функции ДАТА

​ день недели).​ лет – «yd».​ 1900 года (так​

​ 11:00, . можно​ Выделим ячейку​ проведении анализа в​ отдельности и вместе​ срок службы, срок​ym – считает​ в статье «Работа​ не отформатировано как​ в 2 дек.​) и нажмите​Получится так.​ по столбцу. Отпускаем​

​ правее — подставьте​Скачать примеры функций для​В некоторых версиях Excel​ решили разработчики) до​Исходный текст​ сформировать используя Маркер​A2​ таблице, т.д. Подробнее​ года, месяцы и​ окончания договора, проекта,​

​ с датами в​ число.​

​ Но это может​Главная​Чтобы прибавить год к​

Функция РАЗНДАТ в Excel

​ кнопку мыши. Появляется​ в оператор​

​ работы с датами​

• ​ при использовании последних​
• ​ заданной даты. Например,​
• ​(View code)​ заполнения. Пусть в​. Удерживая правую клавишу​

​ о таком способе,​ дни.​

• ​ отпуска, срок оплаты​md – считает​
• ​ Excel».​
• ​При введении в ячейку​
• ​ сильно раздражать, если​>​
• ​ дате, формулу используем​ такое диалоговое окно​Offset(0,1)​
• ​Для указания текущей даты​ двух аргументов («md»,​

​ при преобразовании даты​.​ ячейку​ мыши, скопируем Маркером​ читайте в статье​Например, прибавим к​ счета, многое другое.​

​Как посчитать разные​ числа с буквой​ вы хотите ввести​Числовой формат​ как в предыдущем​ с предложенными вариантами​

Функция ГОД в Excel

​вместо 1 число​ используется функция СЕГОДНЯ​ «yd») функция может​ 13.04.1987 получается число​В открывшееся окно редактора​A2​ заполнения, значение из​ «Функция «СУММЕСЛИ» в​ дате 1 год,​Второй способ.​«г.», «мес.», «дн.»​ периоды стажа, других​

Функция МЕСЯЦ в Excel: пример

​ числа, которое не​>​ варианте, только число​ копирования даты.​ побольше.​ (не имеет аргументов).​ выдать ошибочное значение.​ 31880. То есть​ Visual Basic скопируйте​введено значение 09:00.​A2​

Примеры функций ДЕНЬ, ДЕНЬНЕД и НОМНЕДЕЛИ в Excel

​ 2 месяца и​Пишем формулу с​ написанные между знаками​ разных дат и,​ оно автоматически преобразуется​ нужно превращать в​Краткий формат даты​ «1» прибавляем к​

​Нажимаем на нужный вариант.​Закройте редактор Visual Basic​ Чтобы отобразить текущее​ Лучше применять альтернативные​

​ от 1.01.1900 прошло​ этот текст этого​ Выделим ячейку​

​в ячейки ниже.​В таблице Excel​ 11 дней. Пишем​ помощью функции «ДАТА».​

​ & — так​ затем, сложить их​ в научное число:​ даты. Хотя преобразование​или​

​ году. Получится такая​ Мы нажали на​ и попробуйте ввести​ время и дату,​ формулы.​ 31 880 дней.​

​ После того, как​ можно сравнить даты​ года, месяцы и​В ячейке А13​ будут подписаны года,​ вместе, чтобы узнать​ 1,00E+09. Чтобы избежать​

Автоматическая вставка текущей даты в ячейку при вводе данных

​ невозможно отключить его,​Длинный формат даты​ формула.​ слова «Заполнить по​ что-нибудь в диапазон​ применяется функция ТДАТА​Примеры действия функции РАЗНДАТ:​Этот принцип лежит в​Private Sub Worksheet_Change(ByVal​. Скопируем Маркером заполнения,​ отпустим правую клавишу​ из разных столбцов​ дни, которые будем​ пишем дату, к​

​ месяца и дни​ общее количество дней,​ этого, введите перед​ есть несколько способов,​.​=ДАТА(ГОД(D20)+1;МЕСЯЦ(D20);ДЕНЬ(D20))​ рабочим дням». Получилось​ А2:А100. В соседней​ ().​В версии Excel 2007​ основе расчетов временных​​ Target As Range)​ ​ значение из​​ мыши, появится контекстное​

​ и выделить разные​ прибавлять, в разных​ которой будем прибавлять.​ в итоговой дате.​

​ др., смотрите в​ числом апостроф: ‘1e9​ позволяющих обойти его.​Чтобы вставить время, введите​Получились такие даты.​ так.​ ячейке тут же​Предположим, у нас имеется​ данной функции нет​ данных. Чтобы найти​ For Each cell​A2​ меню, в котором​ даты. Как это​ ячейках.​ В примере прибавим​ Можно между кавычками​ статье «Как в​Сложить даты в Excel,​Если вам нужно сложить​ его и щелкните​

​Как автоматически заполнить список,​Вставить даты в​​ появится текущая дата-время!​​ таблица заказов, куда​ в справочнике, но​ количество дней между​ In Target ‘проходим​в ячейки ниже.​ нужно выбрать пункт​​ сделать, смотрите в​​Диалоговое окно заполним так.​ 3 месяца.​

​ написать по-разному –​ Excel посчитать стаж».​ вычесть даты, прибавить​ много значений, которые​Главная​ смотрите в статье​

Вставка текущей даты в Excel разными способами

Самый простой и быстрый способ ввести в ячейку текущую дату или время – это нажать комбинацию горячих клавиш CTRL+«;» (текущая дата) и CTRL+SHIFT+«;» (текущее время).

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

Как поставить текущую дату в Excel

Чтобы вставить текущую дату в Excel воспользуйтесь функцией СЕГОДНЯ(). Для этого выберите инструмент «Формулы»-«Дата и время»-«СЕГОДНЯ». Данная функция не имеет аргументов, поэтому вы можете просто ввести в ячейку: «=СЕГОДНЯ()» и нажать ВВОД.

Текущая дата в ячейке:

Если же необходимо чтобы в ячейке автоматически обновлялось значение не только текущей даты, но и времени тогда лучше использовать функцию «=ТДАТА()».

Текущая дата и время в ячейке.

Как установить текущую дату в Excel на колонтитулах

Вставка текущей даты в Excel реализуется несколькими способами:

1. Задав параметры колонтитулов. Преимущество данного способа в том, что текущая дата и время проставляются сразу на все страницы одновременно.
2. Используя функцию СЕГОДНЯ().
3. Используя комбинацию горячих клавиш CTRL+; – для установки текущей даты и CTRL+SHIFT+; – для установки текущего времени. Недостаток – в данном способе не будет автоматически обновляться значение ячейки на текущие показатели, при открытии документа. Но в некоторых случаях данных недостаток является преимуществом.
4. С помощью VBA макросов используя в коде программы функции: Date();Time();Now() .

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

Чтобы сделать текущую дату в Excel и нумерацию страниц с помощью колонтитулов сделайте так:

1. Откройте окно «Параметры страницы» и выберите закладку «Колонтитулы».
2. Нажмите на кнопку создать нижний колонтитул.
3. В появившемся окне щелкните по полю «В центре:». На панели выберите вторую кнопку ««Вставить номер страницы»». Потом выберите первую кнопку «Формат текста» и задайте формат для отображения номеров страниц (например, полужирный шрифт, а размер шрифта 14 пунктов).
4. Для установки текущей даты и времени щелкните по полю «Справа:», а затем щелкните по кнопке «Вставить дату» (при необходимости щелкните на кнопку «Вставить время»). И нажмите ОК на обоих диалоговых окнах. В данных полях можно вводить свой текст.
5. Нажмите на кнопку ОК и обратите на предварительный результат отображения колонтитула. Ниже выпадающего списка «Нижний колонтитул».
6. Для предварительного просмотра колонтитулов перейдите в меню «Вид»-«Разметка страницы». Там же можно их редактировать.

Колонтитулы позволяют нам не только устанавливать даты и нумерации страниц. Так же можно добавить место для подписи ответственного лица за отчет. Например, отредактируем теперь левую нижнюю часть страницы в области колонтитулов:

Таким образом, можно создавать документы с удобным местом для подписей или печатей на каждой странице в полностью автоматическом режиме.

Как автоматически проставить дату в Excel

Работа с временем и датой – важный аспект использования Microsoft Excel. Сегодня вы узнаете, как можно вводить дату разными способами, как определить сегодняшнюю дату с помощью метки времени или же использовать динамически изменяемые значения. Также вы поймете, с помощью каких действий можно заполнить колонку или ряд днями недели.

Существует несколько вариантов, позволяющих добавить даты в Excel. В зависимости от того, какие цели вы преследуете, действия отличаются. А задачи могут быть любыми: указать сегодняшнее число или же добавить к листу дату, которая будет автоматически обновляться и показывать всегда то, что сейчас на данный момент на часах и календаре. Или же вы хотите сделать так, чтобы электронная таблица была автоматически заполнена рабочими днями или ввести случайную дату. Независимо от того, какие цели вы преследуете, вы сегодня узнаете, как их достичь.

Как ввести дату в Excel

Пользователь может ввести дату в электронную таблицу самыми разными методами и в различных форматах. Например, можно записать ее как 1 января 2020, а можно – 1.01.2020. Независимо от того, в каком формате указать дату, программа автоматически определит, что пользователь хочет записать ее. Очень часто программа самостоятельно форматирует значение, исходя из формата, установленного в Windows, но в некоторых случаях возможно форматирование в том виде, котором указал пользователь.

В любом случае, если формат даты пользователя не удовлетворяет, он может его изменить в настройках ячейки. Как же понять, что то значение, которое указал пользователь, Excel определил, как дату? Об этом говорит выравнивание значения по правому краю, а не по левому.

Если Эксель не смог определить введенные данные и присвоить правильный формат, и вы видите, что они не располагаются по правому краю ячейки, то можно попробовать ввести дату в любом другом формате, который близок к стандартному. Чтобы посмотреть, какие доступны на данный момент, они можно перейти в меню «Формат ячейки», которое можно найти в разделе «Число», которое находится на вкладке «Главная».

Если в этом есть надобность, пользователь с легкостью может менять вид представления ячейки, которая записана, как та, которая содержит дату. Для этого можно воспользоваться тем же самым окном «Формат ячеек», которое было описано выше.

Также его можно вызвать с помощью комбинации клавиш Ctrl + 1.

Иногда пользователь сталкивается с ситуацией, когда ячейка отображается в форме большого количества решеток, которые содержатся в ней. Как правило, это говорит о том, что программа просит пользователя увеличить размеры ячеек. Исправить эту проблему очень просто. Достаточно два раза нажать на правую границу того столбца, в котором показывается эта ошибка. После этого ширина ячеек в этой колонке будет определена автоматически, исходя из самой большой длины содержащейся в ней текстовой строки.

Или же можно выставить правильную ширину с помощью перетаскивания правой границы до тех пор, пока ширина ячейки не будет правильной.

Вставка текущей даты и времени

Есть два варианта вставки текущего времени и даты в Эксель: статический и динамический. Первый служит отметкой времени. Второй же вариант позволяет держать всегда актуальную дату и время в ячейке.

Что можно сделать для того, чтобы поставить всегда актуальную метку времени? Для этого надо использовать те же формулы, что и ниже. Они всегда будут показывать актуальную дату и время.

Если надо установить статическое время, то можно воспользоваться специальными инструментами эксель, которые вызываются с помощью горячих клавиш:

1. Ctrl + ; или Ctrl + Shift + 4 – эти горячие клавиши автоматически вставляют в ячейку ту дату, которая актуальна на момент, когда человек нажимает на эти кнопки.
2. Ctrl + Shift + ; или Ctrl+Shift+6 – с их помощью можно записать текущее время.
3. Если же нужно вставить и время, и дату, актуальные на данный момент, необходимо сначала нажать первую комбинацию клавиш, после чего нажать на пробел, и вызвать вторую комбинацию.

Какие конкретно клавиши использовать? Все зависит от раскладки, которая активирована на данный момент. Если сейчас стоит английская раскладка, то используется первая комбинация, если же русская – вторая (то есть, так, которая следует непосредственно за словом «или»).

Следует отметить, что не всегда использование этих горячих клавиш является идеальными. В некоторых случаях срабатывает только одна из описанных выше комбинаций, независимо от того, какой язык выбран. Поэтому лучший способ понять, какую использовать, – проверить.

Как правило, закономерность следующая: все зависит от того, какой язык был установлен на момент открытия файла. Если английский, то даже если поменять раскладку на русскую, ситуация не изменится абсолютно. Если же был установлен русский язык, то даже если сменить ее его на английский, то нужно использовать ту формулу, которая подходит для русского языка.

Как поставить неизменную отметку времени автоматически (формулами)

Для того, чтобы ячейка всегда отображала время, существуют специальные формулы. Но конкретная формула зависит от того, какие задачи преследует пользователь. Так, если достаточно обычной демонстрации времени в таблице, то необходимо использовать функцию ТДАТА(), которая не содержит никаких аргументов. После того, как мы ее вставим в ячейку, меняем ее формат на «Время» описанным выше способом.

Если же потом, основываясь на этих данных вы собираетесь что-то еще делать и использовать получившийся результат в формулах, то лучше тогда использовать сразу две функции: =ТДАТА()-СЕГОДНЯ()

Как итог, количество дней будет равняться нулю. Поэтому в качестве результата, возвращаемого этой формулой, останется только время. Но и здесь нужно также использовать временной формат, чтобы все работало, как часы. Во время использования формул нужно обратить внимание на следующие нюансы:

1. Обновление данных не происходит постоянно. Чтобы дата и время сменились на актуальную, необходимо закрыть окно, предварительно его сохранив, а потом снова его открыть. Также обновление происходит, если включить макрос, который настроен на эту функцию.
2. В качестве источника данных эта функция использует системные часы. Поэтому если они настроены неправильно, формула также будет плохо работать. Следовательно, рекомендуется поставить автоматическое определение даты и времени из интернета.

А теперь представим такую ситуацию. У нас есть таблица с перечнем товаров, расположенных в колонке А. Непосредственно после их отправки заказчику необходимо вводить в специальной ячейке значение «Да». Задача: автоматически зафиксировать время, когда человек написал слово «Да» и при этом защитить его от изменения.

Какие действия можно предпринять, чтобы достичь этой цели? Например, можно попробовать воспользоваться функцией ЕСЛИ, в которой также будет содержаться эта же функция, но с данными, зависящими от значения другой ячейки. Гораздо проще это продемонстрировать на примере. Формула будет выглядеть так: =ЕСЛИ(B2=»Да»; ЕСЛИ(C2=»»;ТДАТА(); C2); «»)

Расшифруем эту формулу.

• B – это колонка, в которой нам надо записывать подтверждение доставки.
• C2 – это та ячейка, в которой будет выводиться отметка времени после того, как мы запишем в ячейку B2 слово «Да».

Описанная выше формула работает следующим образом. Она проверяет, есть ли слово «Да» в ячейке B2. Если да, то выполняется вторая проверка, которая проверяет, является ли ячейка C2 пустой. Если да, то тогда возвращается текущая дата и время. Если же ни одна из описанных выше функций ЕСЛИ содержат иные параметры, то тогда ничего не меняется.

Если же нужно, чтобы критерий был «если содержится хотя бы какое-то значение», то тогда нужно использовать в условии оператор «не равно» <>. В таком случае формула будет выглядеть так: =ЕСЛИ(B2<>»»; ЕСЛИ(C2=»»;ТДАТА(); C2); «»)

Эта формула работает следующим образом: сначала проверяется, есть ли хоть какое-то содержимое в ячейке. Если да, то запускается вторая проверка. Дальше последовательность действий остается той же самой.

Для полноценной работоспособности этой формулы необходимо включить интерактивные вычисления во вкладке «Файл» и в разделе «Параметры – Формулы». При этом нежелательно делать так, чтобы ссылка ячейки осуществлялась на нее же. Работоспособность от этого будет хуже, а вот функциональность – не улучшится.

Как автоматически заполнять даты в Excel

Если вам надо заполнить большую часть таблицы датами, то можно воспользоваться специальной функцией, которая называется автозаполнением. Давайте рассмотрим некоторые частные случаи ее использования.

Предположим, нам надо заполнить перечень дат, каждая из которых больше на один день по сравнению с предыдущей. В таком случае необходимо использовать автозаполнение так, как и с любыми другими значениями. Сначала необходимо указать в ячейке первоначальную дату, а потом с помощью маркера автозаполнения переместить формулу или вниз или вправо в зависимости от того, в какой последовательности расположена информация в таблице конкретно в вашем случае. Маркер автозаполнения – это маленький квадратик, который находится в правом нижнем углу ячейки, перетаскивая который, можно автоматически заполнить огромное количество информации. Программа автоматически определяет то, как правильно заполнять, и в большинстве случаев оказывается правой. На этом скриншоте мы заполнили дни в столбик. Получился следующий результат.

Но на этом возможности автозаполнения не заканчиваются. Можно выполнить его даже применительно к будням, месяцам или годам. Есть целых два способа, как это сделать.

1. Использовать стандартный маркер автозаполнения так, как было описано выше. После того, как программа автоматически закончит все, нужно нажать на значок с параметрами автозаполнения и выбрать подходящий метод.
2. Перетащить маркер автозаполнения с помощью правой кнопки мыши, и когда вы отпустите ее, автоматически появится меню с настройками. Выбираете тот способ, который вам нужен, и радуетесь.

Также можно осуществить автоматическую вставку каждого N дня. Для этого нужно добавить значение к ячейке, щелкнуть правой кнопкой мыши по маркеру автозаполнения, зажать ее и перетащить до того места, в котором должна заканчиваться числовая последовательность. После этого выбираем параметр заполнения «Прогрессия» и выбираем значение шага.

Как поставить текущую дату на колонтитул

Колонтитул – это область документа, которая является как бы универсальной для всей книги. Туда могут быть занесены различные данные: имя человека, который составил документ, день, когда это было сделано. В том числе, поставить актуальную дату. Выполняйте следующую инструкцию:

1. Откройте меню «Вставка», с которого вызовите меню настройки колонтитулов.
2. Добавьте те элементы колонтитулов, которые вам нужны. Это может быть как обычный текст, так и дата, время.

Важное замечание: дата при этом будет статичной. То есть, нет какого-либо автоматизированного способа постоянно обновлять информацию в колонтитулах. Просто нужно с клавиатуры написать те данные, которые актуальны на этот момент.

Поскольку колонтитулы предназначены для вывода сервисной информации, которая не имеет прямого отношения к содержимому документа, то нет смысла там вставлять формулы и прочее. Если нужно воспользоваться формулами, всегда можно записать нужные значения в первой строке (и добавить пустую строку на этом месте, если уже там хранятся какие-то данные) и закрепить ее через вкладку «Вид» или «Окно» в зависимости от используемой версии офисного пакета (первый вариант для тех редакций, которые были выпущены после 2007 года, а второй – для тех, которые были до этого времени).

Таким образом, мы разобрались в разных способах вставить автоматически дату и время в Эксель. Видим, что ничего сложного в этом нет, и даже ребенок может разобраться.

Автоматическая вставка текущей даты в ячейку при вводе данных

Предположим, у нас имеется таблица заказов, куда пользователь вводит номер заказа, имя клиента, сумму и т.д. Необходимо сделать так, чтобы при внесении номера заказа в столбец А — в столбце B напротив введенного заказа автоматически появлялись дата и время его занесения:

Чтобы реализовать такой ввод даты, нам потребуется простой макрос, который надо добавить в модуль рабочего листа. Для этого щелкните правой кнопкой мыши по ярлычку листа с таблицей и выберите в контекстном меню команду Исходный текст (View code).

В открывшееся окно редактора Visual Basic скопируйте этот текст этого макроса:

При необходимости измените "чувствительный" диапазон "А2:А100" на свой собственный. Если необходимо вставлять дату не в соседний столбец, а правее — подставьте в оператор Offset(0,1) вместо 1 число побольше.

Закройте редактор Visual Basic и попробуйте ввести что-нибудь в диапазон А2:А100. В соседней ячейке тут же появится текущая дата-время!

Ссылки по теме

Добрый день, Николай. Подскажите, как в этом макросе:

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

переписать для 2 или нескольких разных столбцов

Добрый день.
А куда именно в макросе приведенном выше нужно вставить Ваш код, чтобы он работал?
Спасибо.
ДЕЙСТВИТЕЛЬНО НЕ ПОНЯТНО. я уже раз 100 пробовал

Напишу, как у меня получилось.

Спасибо огромное, очень помогли
Замечательный сайт!

Доброго времени суток! Благодарю Вас за прекрасный сайт. Очень помог мне во многом . Подскажите, пожалуйста, когда я копирую Ваш текст в редактор Visual Basic, нужно ли потом как то сохранить чтобы заработало? И у меня почему то выделяет слово Sub красным цветом и макрос не работает.

Николай,здравствуйте! Огромное Вам спасибо за вашу работу и Ваш классный сайт, мне очень помогает в работе.
И вот работая над данной темой у себя в программе возник вопрос, не подскажите что нужно сделать чтоб работал макрос. В столбце A работает формула в таблице

а может есть возможность другим способом сделать автоматический ввод времени?

В скайпе я редко доступен. Лучше сюда или в почту. Мой макрос в скаченном примере выдает ошибку? Или ваш макрос написанный по мотивам моего?

Спасибо!
Забыл написать я ее уже стер и все нормально заработало!

Еще раз спасибо!

Добрый день, Николай Павлов.
Спасибо за макрос.
Меня волнует один вопрос: Как сделать так, чтобы только при вводе слова «Исправлено» в ячейку — А3, диапазона A2:A100 выводилась текущая дата и время в соседнюю ячейку — В3.

Можно добавить условие на проверку вхождения слова "Исправлено" в изменяемой ячейке в 4-й строке макроса:

Доброго время суток.

Я имел в виду, что когда я за край таблицы тяну вниз для увеличения ячеек в таблице.

Private Sub Worksheet_Change(ByVal Target As Range)

Добрый день, Николай, подскажите пожалуйста! У меня похожая ситуация. Подсвечивает cell и в модулях везде есть оператор Option Explict .. Но на моем ноутбуке все работает, а у коллеги на том же файле выдает ошибку
пишет Can`t find project or library. не пойму в чем дело.

Проверила у на том ноутбуке библиотеки.. все такие же как и у меня включены

Та же самая проблема, ввожу код

.Value = Now сразу подсвечивается красным. Несмотря на это всё равно закрываю окно с кодом, выходит предупреждающее сообщение о баге. Ввожу в столбец А значение и выбрасывает обратно на код, где желтым выделено
Private Sub Worksheet_Change(ByVal Target As Range)
Николай помогите alt=»:)» width=»» height=»» />
Если для помощи нужно предоставить дополнительный код ошибки или что то в этом роде, скажите от куда его выдернуть alt=»:)» width=»» height=»» />

Николай! непечатаемый символ у вас в коде который вы приводите. При копировании он переносится в наши книги)))

Интересно, что это за символ?

Сам долго ломал голову. в итоге такой код получился

А мне не хотелось добавлять лишний столбец с датой внесения изменений в таблицу, поэтому решил делать через проверку данных. Книга у меня используется многими пользователями на разных компьютерах, поэтому вставил туда еще и наименование компьютера, системное имя пользователя и т.п.

Но мне его не хватает, т.к по задумке в файле есть несколько столбцов для ввода основных данных в последствии из-за которых, появляются дата и время в нужных столбцах. Еще у меня есть опасения, т.к макрос фиксирует любые изменения в файле, даже если я спустя 5 часов выберу из выпадающего списка фамилию того же человека в той же ячейке — время измениться. Из-за чьих-либо кривых рук статистика может измениться, что приведет к неприятным последствиям.

А так же меня весьма привлекла задумка от ( Сергей 05.06.2013 12:50:24) на тему фиксации дата, время, имя компа, имя пользователя. Я Тоже планирую подобным образом использовать файл.

Как мне все это реализовать?

Добрый день, зарегился, можно сказать, только что б спросить, однако ресурс полезен и в дальнейшем пригодится, я думаю, ни раз. Так как познания в Excel, а тем более в макросах, слабоваты.

Собственно вопрос по макросу:
что изменить в нём для того, что бы дата с числом вставлялись в «А» только если «В» имеет какое — то значение (не пуста)? И что б дата с числом автоматически удалялись, если содержание ячейки «В» удалить? И пр этом нужно, что б, однажды добавленная дата, при последующем редактировании ячейки «В» уже не менялась.
Сколько ни пытался понять сам, методом тыка, так и не понял. Я знаю, что подобные вопросы были, но самостоятельно у меня не выходит всё это скомпоновать.
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If Not Intersect(cell, Range(«B2:B1000»;)) Is Nothing Then
With Range(«A» & cell.Row)
.Value = Now
.EntireColumn.AutoFit
End With
End If
Next cell
End Sub

Прошу помощи!
Куда нужно вставить «условие» и какое, для того что бы дата корректировалась, если изменяется не только одна ячейка

Например: начал вводить данные — одна дата, позже изменил статус, и эта дата обновилась.
Спасибо!

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

Доброго времени суток! огромное спасибо за Вашу помощь,
но данный вариант не работает, вместо » ; » нужно «,»
также проблемка с снятием, постановкой на защиту, не работает в том варианте который дан выше.
сам исходник использую, спасибо большое
также хорошая подсказка с вводом имени
в макросах я полный ноль, но с такими шаблонами и подсказками, грех не воспользоваться

а не проще к диапазону ячеек A1:А5 применить форматирование как таблицу, и прописать формулу в ячейку B2 =ЕСЛИ( A2<>0; СЕГОДНЯ(); «» ), протянуть за крестик формулу и применить к этим ячейкам формат-дата, тогда при вставке значения в А6 автоматически будет вставляться текущая дата?

Доброго времени суток, Николай! Большое спасибо за сайт!
Что и куда надо вставить, так что бы:
1) Когда "растягиваешь" то есть увеличиваешь число строк в "таблице", Дата НЕ Заполнялась автоматически в новые и старый ячейки-строки? ( то есть тяну, а он сразу вставляет дату+ еще и старые заменяет.
и 2) что бы дата НЕ вставлялась когда:
а) случайно активировал ячейку
и как сдлать так что бы: 3) Удалил значение удалилась дата

здравствуте, обалденный макрос разобрался настроил под себя,
но ни как не могу задать формат даты, надо чтоб указывал только день и месяц !

Спасибо Николай, так в том то и дело что при выполнение макроса размер ячейки менялся, но разобралься сам удалил и макроса .EntireColumn.AutoFit , и тогда размер остаёться заданным.

Здравствуйте!
Подскажите кто нибудь
Можно ли как то усовершенствовать макрос, чтобы вместе с датой он вставлял в ещё одну соседнюю ячейку порядковые номера?

Столкнулся с проблемой, что ячейка, куда вноситься автоматическая дата, уж очень широка. Она становиться шире самой даты раза в 3.
Постоянно сужаю в ручную, но при каждой работе макроса он опять расширяет.
Так понимаю, что надо мне что-то с автоподбором ширины сделать. Он почему-то определяет ее намного шире, чем надо))

P.S
В общем вставил закрепленный размер ширины ячейки, под свои запросы

Очень рад что попал на Ваш сайт. То что надо. Вам мега респект за умение.

Моя проблема чуток другая. использую excel для учета платежей. расширять таблицу для ввода даты платежей считаю излишней. поэтому вот такой тюненг нужен для вашего макроса:

1. Писать дату не в отдельную ячейку, а в примечание к изменяемой ячейке.
2. Нужна какая то защита от случайного изменения значений платежей. Ну , предположим, перед внесением нового платежа нужно стареть прошлую дату, а иначе восстанавливается предыдущий платеж да еще и в красном цвете. Что то такое. Окошко с предупреждением вообще бы супер было.
3. При вставке в строки 5,6,7 макроса из поста выше (СердЖиГ 06.10.2012 16:54:49) у меня выводится синтаксическая ошибка.

Заранее благодарен. Ввиду полного не знания языка макросов прошу выложить полный макрос))

Продублируйте в коде блок with — end with и все

Здравствуйте, Николай.
Огромное спасибо за макрос, долго искал нечто подобное. Подскажите пожалуйста, что нужно изменить в макросе, чтобы дата и время изменения выводились в одну конкретную ячейку, например в M. Прочитал ветку, ответ на свой вопрос не нашел. Спасибо.

Вопрос который уже пару раз поднимался в этом топике, но до решения не доведен. Николай, беру макрос который Вы предложили для того чтобы он не менял дату если в ячейке уже есть другая дата.

При вставке этого кода .Value = Now сразу подсвечивается красным. Несмотря на это всё равно закрываю окно с кодом, выходит предупреждающее сообщение о баге. Ввожу в столбец А значение и выбрасывает обратно на код, где уже желтым выделено
Private Sub Worksheet_Change(ByVal Target As Range)
Николай помогите alt=»:)» width=»» height=»» />
Если для помощи нужно предоставить дополнительный код ошибки или что то в этом роде, скажите от куда его выдернуть alt=»:)» width=»» height=»» />

Скопируйте это будет работать нормально))

Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If Not Intersect(cell, Range(«A2:A100»)) Is Nothing And _
Target.Offset(0, 1) = «» Then
With Target.Offset(0, 1)
.Value = Now
.EntireColumn.AutoFit
End With
End If
Next cell
End Sub

Доброй ночи, Николай.
вот макрос:

Здравствуйте товарищи !
Нужна помощь!
Спасибо за столь полезную информацию! Но у меня есть вопрос над которым я бьюсь уже больше недели и немогу разрешить. Буду счастлив если кто то сможет мне помочь и разрешить проблему. Попытаюсь описать детально.

Я воспользовался изложеными в форуме макросом и у меня внутри страницы он имеет следующий вид:

Макрос работает прекрасно, помещает дату в колонку "B" и время в колонку "C" при изменении ячеек в колонке "A," но с одним условием: если я изменяю колонку "А" вручную. А если я использую сторонюю программу вносящую изменения в колонку "A", то колонка "B" и "C" остаются без изменения и макрос не срабатывает. (использую программу сканирования штрих кодов Twedge).

Тот же самый эффект вы можете повторить без установки данной программы, достаточно приравнять ячейку в колонке "A" к любой ячейке в колонке "D". После внесения изменений в ячейку колонки "D" изменния автоматически отобразятся в ячейке "A", но при этом указанный выше макрос не сработает и не отобразит время и дату в отведенных для этого ячейках.

Буду искренне благодарен всем кто сможет мне помочь!!

Спасибо Николай !
Вы дали правильное направление. У меня получилось изменить макрос и привязать его для одной ячейки и даже если программа вставляет данные то все работает и появляется.
Вот только я новичок в этом деле и не могли бы вы мне подсказать как задать проверку не для одной ячейки а для всего столбца. Вот мой макрос:

Private Sub Worksheet_Calculate()
Dim target As Range
Set target = Range(«A3»)
If target.Offset(0, 1).Value = «» Then
target.Offset(0, 1) = Date
target.Offset(, 2) = Format(Now, «hh:nn»)
End If
End Sub

если я ставлю range(»A3:A100») то у меня вечно появляется ошибка. я думаю, что возможно у меня проблемма с заданием типов переменых. Заранее спасибо буду очень блогадарен за помощь.

2) При изменении текста в столбце не изменять дату и время (также актуально при изменении таблицы, тут многие спрашивали про такой момент). По этому вопросу писали в 1 комментарии и писал Николай целый код:

Вроде бы все хорошо работает, но есть недостатки:
а) Удаляет дату только при удалении последней строки (если удалить, например, строчку предпоследнюю, то дата сохранится в столбце А);
б) Аналогично изменение даты — если последняя строка — то при изменении данных меняется и дата в ячейке А.

Поэтому интересует, как можно учесть все эти недочеты (чтобы удалять можно было дату+данные по строке с любого места и и менять даже последнюю строку без изменения времени) в данном макросе выше?

Также еще искал, как эти возможности (удаление в ячейке данных и даты к ней + изменение ячейки данных без изменения даты к ней) "приклеить" к этому макросу:

Здесь не получилось ничего добавить, выдает ошибку либо ничего не происходит вообще.

В VBA не силен, но уж больна нравится идея и возможности ее воплощения. Если кто подскажет что и как дописать, буду премного благодарен!

Дарья, просто вместо Now напишите Date — и все будет ОК

подскажите пожалуйста что я делаю не правильно
вот макрос
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If cell <> «» Then
If Not Intersect(cell, Range(«E3:E151,H3:H151,K3:K151,N3:N151,Q3:Q151,T3:T151,W3:W151,Z3:Z151,AC3:AC151,AF3:AF151,AI3:AI151,AL3:AL151,AO3:AO151,AR3:AR151,AU3:AU151,AX3:AX151,BA3:BA151,BD3:BD151,BG3:BG151,BJ3:BJ151,BM3:BM151,BP3:BP151,BS3:BS151,BV3:BV151,BY3:BY151,CB3:CB151,CE3:CE151» ) Is Nothing Then
With cell.Offset(0, 2)
.Value = Now
.EntireColumn.AutoFit
End With
End If
End If
Next cell
End Sub

В строку «If Not Intersect(cell, Range» вставив еще пару столбико выскакивает ошибка, и строка выделяться жёлтым

Прошу помочь и мне. У меня в документе работает два макроса. Один вышеперечисленный, второй вот такой, который выполняется при нажатии кнопки.

Здравствуйте еще раз. Не нашел нужной темы на форуме, вернее нашел, но она в архиве и я не могу туда попасть. Спрошу здесь, если можно.
Вопрос такого плана: дата вставляется в формате dd.mm.yy hh:mm Затем нужно фильтровать данные по нескольким параметрам с помощью макроса. Условие отбора вводится в UserForm, TextBox. Вот фрагмент кода

не работает
Пробовал так

Здравствуйте, Николай!
ОБОЛДЕННЫЙ САЙТ.
Мне очень помогает в роботе. СПАСИБО. ;)8)

У меня один вопрос по поводу макросов вообще.
Я выкладываю свою таблицу(уже с Вашими апгрейдами, макросами) на сервер(общий диск) и его должны на протяжении года заполнять мои сотрудники(с разных ПК). Вопрос: На сколько моему файлу или ПК(каждого сотрудника) грозит опасность если каждому сотруднику на ПК отключить «защиту» от поддержки макросов? (Windows 7).

P.S. Я не силен в Excel, все таблицы самоучно с Ваших уроков.

Наперед благодарен за ответ!

Спасибо за добрые слова, Виктор! Приятно слышать
Насчет вашего вопроса могу сказать, что у меня на всех моих компьютерах всегда была эта защита отключена и за последние 10 лет никаких макровирусов я не встречал. Антивирус-то у вас на компьютере полюбому уже есть, правильно?

в столбце G построчно добавляешь записи, соседняя слева ячейка выпаливает «непустоты» и как только находит значение, в столбце F, рядом, вставляется дата.

Отличный вопрос!
Это было очевидно, что данные будут пересчитываться, но я об этом не задумывался и честно — удивился.
Сейчас попытаюсь найду решение этой проблемы и обязательно отпишусь!

*задумчиво нырнул в гугл*

Добрый день!
Возможно этот вопрос уже звучал, заранее прошу прощение за повтор.
Что необходимо подправить в моем макросе дабы:
1. столбец с датой и временем нельзя было редактировать (т.е. чтоб сотрудник, который заполняет инф., не мог «ручками» изменить время и дату);
2. при удалении информации в строке так же удалялась и дата/время.

Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Target
If Not Intersect(cell, Range(«A3:A1000000»)) Is Nothing Then
With cell.Offset(0, 17)
.Value = Now
.EntireColumn.AutoFit
End With
End If
Next cell
End Sub

Вставил код в у себя в файле

Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Target ‘проходим по всем измененным ячейкам
If Not Intersect(cell, Range(«D2:D100,E2:E100»)) Is Nothing Then ‘если изменененная ячейка попадает в диапазон A2:A100
With cell.Offset(0, 2) ‘вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit ‘выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub

Не работает, выдает ошибку
Run time 1004 Method Range of object Worksheet failed или вообще ничего не происходит

Добрый день.
Макрос действительно очень полезный и удобный.
Большое спасибо.
Только есть несколько моментов, которые никак не могу реализовать:cry:.
Буду очень благодарен за помощь.

Таблица предназначена для двух групп пользователей, которые соответственно редактируют левую и правую часть таблицы отдельно:
первая вносит данные в колонку В, вторая группа в колонку К.
Следовательно, при заполнении пользователем первой группы ячейки колонки B,
появляется текущая дата и время в колонке F, а имя пользователя в колонке I,
далее,
при заполнении пользователем второй группы ячейки колонки K, появляется имя пользователя в колонке L, а дата и время в колонке M.

Никак не могу реализовать эти два условия в этом коде.
Помогите.

Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Target ‘проходим по всем измененным ячейкам
If Not Intersect(cell, Range(«B2:B100,K2:K100»;) Is Nothing Then ‘если изменененная ячейка попадает в диапазон A2:A100
With cell.Offset(0, 4) ‘вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit ‘выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
cell.Offset(0, 7) = Application.UserName
cell.Offset(0, 1) = Application.UserName
End If
Next cell
End Sub

Присоединюсь ко всем — вышеписавшим: сайт спасает просто уйму времени и нервов. Огромное спасибо за помощь.

Зашла сюда с этой темы и хоть это и моветон, но повторюсь, так как из комментов выше так и не поняла, что сделать, что бы дата вставлялась не только при ручном изменении ячейки. Если это невозможно, просто напишите пожалуйста, и думаю, вопросов больше не будет.

У меня ячейка изменяется при помощи копирования или протягивания нумерации.

Спасибо за макрос. Работает.

проблема в следующем : когда файл загружаю onedrive чтобы мой коллега одновременно мог работать над файлом . вообщем не работает он через браузер.

Посоветуйте может как то изменить макрос чтобы работал на onedrive ? или посоветуйте другой способ редактирование екселя нескольким человекам одновременно .

Здравствуйте, Николай!
Спасибо за пример.
Необходимо что бы не только из диапазона A но и из другого диапазона вставлялась дата в колонку B .

Добрый день.
Хочу выразить свою признательность автору за прекрасный интернет-ресурс. Спасибо !

Конечно же, "не просто так" я пишу свой комент и мне "что-то нужно".
Макрос прекрасен и экономит кучу времени и нервов. Но, у меня возник вопрос в моём конкретном случае т.к. я совсем ни чего не понимаю в макросах. Ваш макрос записан в следующем виде.