Excel дата изменения строки

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

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

Получите время создания и время последнего изменения в Excel с помощью команды Info

Получите время создания и время последнего изменения в Excel с помощью функции дополнительных свойств

Вставьте созданное время и время последнего изменения в ячейки Excel с кодом VBA

Вставьте время создания и время последнего изменения в ячейки/верхний/нижний колонтитул с помощью Kutools for Excel

Получите время создания и время последнего изменения в Excel с помощью команды Info

Мы можем узнать точное время создания и время последнего изменения текущей книги в представлении за кулисами Microsoft Excel 2010/2013.

Нажмите Файл > Инфо, а в правой части представления за кулисами отображается Связанные даты Информация. Под Связанные даты title, в нем указано время последнего изменения, время создания и время последней печати. См. Следующий снимок экрана:

Примечание: Этот способ доступен только в Microsoft Excel 2010/2013. Это недопустимо в Excel 2007.

Получите время создания и время последнего изменения в Excel с помощью функции дополнительных свойств

Фактически, мы можем получить как время создания, так и время последнего изменения текущей книги в диалоговом окне «Свойства документа».
Шаг 1: Открой Дополнительные свойства диалоговое окно:

В Excel 2007 щелкните значок Офисы кнопка> Подготовить > ПредложенияИ Свойства документа панель будет отображаться под панелью инструментов, щелкните Свойства документа > Дополнительные свойства, смотрите скриншоты:

В Excel 2010/2013 щелкните значок Файл > Инфо > Предложения > Дополнительные свойства.

Шаг 2: В Дополнительные свойства В диалоговом окне вы увидите время создания и время последнего изменения на вкладке Статистика. См. Следующий снимок экрана:

Вставьте созданное время и время последнего изменения в ячейки Excel с кодом VBA

Следующие макросы VBA помогут вам напрямую вставить в ячейки время создания и время последнего изменения текущей информации книги.

Вставьте время создания и время последнего изменения в Excel

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.

Код VBA: вставьте время создания и время последнего изменения в Excel

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

Шаг 3:Нажмите F5 ключ для запуска этого макроса. И тогда дата создания и дата последнего изменения будут вставлены в ячейку A1 и ячейку A2 отдельно.

Внимание: вы можете изменить ячейку назначения в VB в соответствии с вашими потребностями.

Вставить время последнего изменения книги в Excel

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

Шаг 3: Затем сохраните и закройте этот код и вернитесь на рабочий лист, в пустой ячейке введите формулу = ModDate (), и нажмите Enter ключ. Затем он вставляет в ячейку время последнего изменения.

Вставить созданное время книги в Excel

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Шаг 3: Сохраните и закройте этот код, вернитесь на лист, в пустой ячейке введите формулу = CreateDate (), и нажмите Enter key. и созданная дата будет вставлена ​​в ячейку, как показано на следующих снимках экрана:

Примечание: Если ваша ячейка не является форматом даты, она может отображать странное число. Просто отформатируйте эту ячейку как Время формат, он будет отображаться как обычная дата.

Вставьте время создания и время последнего изменения в ячейки/верхний/нижний колонтитул с помощью Kutools for Excel

Могу я представить вам удобный инструмент —Kutools for Excel какие из более чем 300 полезных функций могут повысить эффективность вашей работы? С этими Вставить информацию о книге Вы можете быстро вставить путь к книге, имя книги / рабочего листа, имя пользователя или время создания и время последнего изменения в ячейки, верхний или нижний колонтитул.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс > Workbook > Вставить информацию о книге. Смотрите скриншот:

2. Затем в Вставить информацию о книге диалоговом окне, проверьте информацию, которую вы хотите вставить из раздела информации, затем перейдите, чтобы указать место, в которое вы хотите вставить, вы можете выбрать ячейки, нижний колонтитул (левый нижний колонтитул, центральный нижний колонтитул, правый нижний колонтитул) или заголовок (левый верхний колонтитул, центральный верхний колонтитул, правый заголовок). Смотрите скриншот:

3. Нажмите Ok, и проверяемая вами информация была вставлена ​​в указанное вами место.

Наконечник. Если вы хотите получить бесплатную пробную версию функции «Вставить информацию о книге», пожалуйста, перейдите к бесплатной загрузке Kutools for Excel сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.

Вставить информацию о книге

Автоматическая дата в Excel.

​Смотрите также​ изменится значение в​ при открытии при​End Sub​ 5 строки, что​ справа ячейку дату​ фиксирует дату и​​ Осталось настроить строку.​ любую из ячеек​ ​ ?​​Коду придал следующий​ управлением правами доступа​End If​​ и попробуйте ввести​ ​ .Value = Now​​ преобразование в даты​
​Вставить даты в​Дату в Excel​ С1, и только​ запросе отключать макросы​Vvod_dannyh​ вставка номера недели,​ .Value = Now​
​ время вводимой информации.​Я неделю искал​ этих столбцов.​Можно ли как-то​
​ вид:​ ​ было плохо.​
​Next​
​ что-нибудь в диапазон​ .EntireColumn.AutoFit ‘выполняем автоподбор​ в Excel Online​Excel с определенным периодом​ можно установить несколькими​ потом будет вычисляться​ или нет ответят​в​
​ что даты?​ .EntireColumn.AutoFit ‘выполняем автоподбор​ в соседней ячейке​ решение в сети.​Пример таблицы (​ решить данную проблему​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​Как в 2007/2010​Application.EnableEvents = True​ А2:А100. В соседней​ ширины для столбца​
​ одним из таких​
​ формулой.​
​ способами — вставить​ А1, а следовательно​ нет.​Vvod_dannyh.Columns(3)​+ если в​ ширины для столбца​ для каждого из​AlexM​ столбцы со значениями:​ ?​Private Sub Worksheet_Change(ByVal​​ — не знаю​Application.ScreenUpdating = True​ ячейке тут же​ B, чтобы дата​ способов:​
​Например, нам нужно​ ​ текущую дату, заполнить​​ ничего не изменится.​
​Serge_007​
​- зачем, если​ третьем столбе значение​ B, чтобы дата​ 10 столбцов таблицы.​: третья строка снизу​ В, D, F,​AlexM​ Target As Range)​ (не люблю я​End Sub​ появится текущая дата-время!​​ умещалась в ячейке​добавить перед числом апостроф​ заполнить ячейки столбца​ таблицу датами с​ Для того, что​: Итерации тоже придётся​ код в модуле​ просто меняется, а​ умещалась в ячейке​
​ Макрос полностью устраивает​
​ должна быть If​ ​ H, J, L,​:​
​Dim cc As​ их и потому​1. Необходимо чтобы​elpotap​ End With End​ (‘). Например: ’11-53​ датами с промежутком​ определенным периодом, т.​ бы запустить функцию​ включать.​ листа?​ не удаляется или​
​ End With End​ и работает исправно.​ InStr(«BDFHJLNPRTV», Split(Target.Address, «$»)(1))​ N, P, R,​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_Change(ByVal Target​ Range​ практически не юзаю​
​ при удалении и​: Нашла в Инете,​ If Next cell​ или ‘1/47. Апостроф​ 7 дней. В​
​ д.​
​ в А1, необходимо​Антивирус тут правда​w00t​ вводится заново -​ If Next cell​Но, текущая модификация​
​ And Target.Row >​
​ T; Cтолбцы с​ As Range)​For Each cc​ из-за долбанутого риббон-интерфейса,​ повторном внесении данных​ как автоматически проставлять​ End Sub​
​ не отображается после​
​ ячейке D20 написали​
​Как вставить текущую дату​ обратиться к этой​ не помеха, но​: Да, спасибо большое!​
​ то не трогать​ End Sub———————————————————————————————————————-​ макроса позволяет менять​ 3 Then Target.Offset(0,​ датами :A, C,​If Not Intersect(Range(«A1:A10000»),​ In Target​ который настроить под​ в столбцы A​

excel-office.ru

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

​ дату.​При необходимости измените «чувствительный»​ нажатия клавиши ВВОД;​ дату – 12.01.2016.​ в​ ячейке непосредственно.​ ведь кто-нибудь может​»Понедельник день тяжелый»​ дату. Т.к. обычно​Может быть в​ внесенные ранее значения.​ -1) = IIf(Target​ E, G, I,​

​ Target) Is Nothing​If Not Intersect(Target,​ себя очень трудно)​ и F время​Но вместе с​ диапазон​добавить перед дробным числом​ В ячейке D​Excel​Работает Все это​

1. ​ и не сделать​ )​

2. ​ в третьем столбце​​ этом коде можно​​ При смене значения,​​ <> «», Now,​​ K, M, O,​​ Then​​ Range(«A:A»)) Is Nothing​

​Immortalist​ не корректировалось. Оставалось​ датой вставляется и​»А2:А100″​ ноль и пробел,​ 21 написали такую​, смотрите в статье​

• ​ так. В В1​ этого…​Mulifen​ значение выбирается из​ внести изменения, чтобы​

• ​ дата и время​ «») ‘Time ‘Date​ Q, S, U;​For Each iCell​ Then​: В том и​ такое же как​ время.​на свой собственный.​ например, чтобы числа​ формулу. =D20+7 Копируем​ «Текущая дата в​

  ​ меняется значение. В​​Michael_S​

  • ​: Добрый день. Стоит​ раскрывающегося списка, и​ при изменении строки​ актуализируются. Это влияет​Garlem79​ Начиная с 4ой​ In Target​With [Лист3].Cells(cc.Row, cc.Column).Offset(0,​ дело, что на​ при первом внесении.​

  • ​Возможно ли убрать​ Если необходимо вставлять​ 1/2 или 3/4​ эту формулу вниз​ Excel». Здесь рассмотрим,​ С1 сначала проверяется​

  • ​: Изменяем ячейку В1.​ такая задача автоматически​ если вдруг его​ автоматически вставлялась дата​ на дальнейшие расчеты,​: ОГРОМНОЕ ВАМ СПАСИБО!!!!!!!​ строки и вниз​iCell(1, 2) =​

support.office.com

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

​ 4)​ работе 2010 офис,​2. Проблема, что​ время, а оставить​ дату не в​ не заменялись датами​ по столбцу. Получится​как заполнить таблицу​ условие А1, а​ Ячейку С1 лучше​ вводить даты в​ не удалять и​ в первую ячейку​ но дело в​

​Garlem79​ на 10 тыс​ Now​If IsEmpty(.Value) And​ а там с​ пароль на редактирование​ только дату?​ соседний столбец, а​ 2 янв или​ так.​Excel определенными датами​​ поскольку там летучая​ ​ скрыть или защитить​​ ячейку А1 при​

​ новое выбрать -​ строки. Как это​ том, что иногда​: Добрый день!​

​ строк)​Next​ Not IsEmpty(cc.Value) Then​ этим проблем нет.​ столбцов А-D имеет​Описание:​ правее — подставьте​ 4 мар. Ноль​Использование формулы для заполнения​.​ функция ТДАТА(), то​ от изменений. А1​ изменении/вводе в ячейку​ а просто заменить​ сделать?​ такая возможность нужна,​Обнаружил в работе​Важно, чтобы при​End If​.Value = Now​Рецензирование — Разрешение​

​ один сотрудник, от​При необходимости измените​​ в оператор​​ не остается в​ ячеек датами хорошо​Можно установить последовательные​ сначала она пересчитывается,​ тоже лучше защитить.​ B1.​​ выбором нового из​​Заранее благодарен!​ а иногда нет,​

​ макроса небольшую Проблемку.​ удалении значения из​End Sub​End If​ изменений диапазонов -​ столбца F -​

planetaexcel.ru

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

​ «чувствительный» диапазон «А2:А100″​Offset(0,1)​ ячейке после нажатия​ тем, что при​ даты в столбец,​ получаем ИСТИНА, и​ При любом изменении​Была вот такая​ списка — то​Vlad999​ так как может​ Если столбцы 2значные,​ ячейке, соответствующая дата​pinguindell​

​End With​ Впринципе готово. =))​ другой сотрудник, а​ на свой собственный.​вместо 1 число​ клавиши ВВОД, а​ изменении даты в​ которые будут идти​ в С1 возвращается​ в В1 будет​ реализация.​​ дата бы осталась​ ​: Private Sub Worksheet_Change(ByVal​​ привести к изменению​

​ как например AB,​ так же удалялась,​: AlexM, большое СПС,​End If​

​ В открывшемся окне​ на столбцах E​ Если необходимо вставлять​ побольше.​ тип ячейки становится​ первой ячейке, изменятся​ по порядку по​ значение В1.​ меняться дата в​http://forum.msexcel.ru/microso…..0.html​ прежняя?​ Target As Range)​ учета. Такое случается​ AC, то макрос​ а при изменении,​ работает. Что мне​If Not Intersect(Target,​ просто создаем правила​ и G -​ дату не в​Закройте редактор Visual Basic​

​ дробным.​ даты в остальных​​ возрастанию. Для этого​​Если бы не​ А1.​Но требуется реализация​Спасибо.​ Dim cell As​ не часто, но​​ работает в столбцах​​ обновлялась до актуального​ нравится в данном​

​ Range(«F:F»)) Is Nothing​ из серии название​ пароль админа. При​ соседний столбец, то​ и попробуйте ввести​Примечания:​

planetaexcel.ru

Автоматическое добавление текущей даты в ячейку

​ ячейках.​​ есть функция автозаполнения​ были включены итерации,​ps. Замечу, что​
​ без макросов.​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_Change(ByVal​ Range Application.EnableEvents =​
​ случается, поэтому вылавливать​ A, B, AB,​ на данный момент​
​ коде, так это​
​ Then​ правила, пароль, диапазон.​ таких наворотах макрос​ подставьте в оператор​ что-нибудь в диапазон​ ​Чтобы заполнить ячейки​ даты в Excel.​ комп бы впал​
​ в реализации по​Если правильно понимаю,​ Target As Range)​ False For Each​ ошибки важно.​ AC. А нужно​ значения. Это необходимо​

​ то, что он​​With [Лист3].Cells(cc.Row, cc.Column).Offset(0,​ После того как​
​ отказывается работать. Как​ Target(1,2) вместо двойки​ А2:А100. В соседней​Вместо апострофа можно использовать​ датами с промежутком​Можно установить даты​ в «кому» :),​ такому методу тоже​ то нужно использовать​Dim rInt As​ cell In Target​ячейка фиксирующая время​ чтобы только в​ для того, чтобы​

​ работает даже при​​ 1)​
​ все правила прописаны​
​ бы это исправить,​ число побольше.​ ячейке тут же​ пробел, но если​ 1 месяц, нужно​ с определенным периодом​ а так все​ есть свои неудобства​ ЕСЛИ и СЕГОДНЯ()​ Range, rCel As​
​ ‘проходим по всем​ и дату всегда​
​ назначенных столбцах работал.​ в случае ошибки​
​ выключенных макросах.​If IsEmpty(.Value) And​
​ включаем защиту листа​
​ подскажите пожалуйста.​
​Закройте редактор Visual​ появится текущая дата-время!​
​ вы планируете применять​ в ячейке D21​ или, только, рабочими​
​ это происходит один​
​ - время от​ или TDATE().​ Range​
​ измененным ячейкам If​
​ слева от той​
​Есть ли решение​
​ иметь возможность откорректировать​AlexM​
​ Not IsEmpty(cc.Value) Then​ и все готово.​Заранее спасибо.​
​ Basic и попробуйте​
​Предположим, у нас имеется​ функции поиска для​ написать такую формулу.​
​ днями, т.д.​
​ раз (или сколько​
​ времени при запуске​
​Заранее благодарен.​
​Application.EnableEvents = False​
​ Not Intersect(cell, Range("B2:H100"))​
​ в которую вводится​ этому ? Я​ значения. Возможно есть​: Такого не должно​.Value = Now​ Определенный диапазон под​Gustav​ ввести что-нибудь в​
​ таблица заказов, куда​ этих данных, мы​=ДАТА(ГОД(D20);МЕСЯЦ(D20)+1;ДЕНЬ(D20))​Автозаполнение даты в​ указанно).​ файла будет выскакивать​Serge_007​Application.ScreenUpdating = False​ Is Nothing Then​ значение.​ пробовал писать через​ еще какое-то решение​ быть​
​End If​

​ определенным паролем. =))​​: Замените строку (точнее,​ диапазон А2:А100. В​
​ пользователь вводит номер​
​ рекомендуем использовать апостроф.​В формуле мы​Excel.​

​Serge_007​
​ сообщение о циклических​
​: Здравствуйте.​Set rInt =​
​ ‘если изменененная ячейка​Хотелось бы получить​

​ «,» не помогло.​​Решения, которые расписаны​Serge_007​End With​Alex_ST​
​ строкИ)​​ соседней ячейке тут​ заказа, имя клиента,​
​ Такие функции, как​ написали - дату​Первый способ.​
​: Добавлю - не​ ссылках и придется​Без макросов наверное​
​ Intersect(Target, Vvod_dannyh.Columns(3))​
​ попадает в диапазон​ возможность контролировать изменение​
​AlexM​
​ в сети либо​
​: Такого не МОЖЕТ​End If​: К стати, а​
​200?'200px':''+(this.scrollHeight+5)+'px');">​
​ же появится текущая​ сумму и т.д.​
​ ПОИСКПОЗ и ВПР,​
​ написать, как в​
​Как заполнить последующими​


​ обязательно писать и​​ вручную включать итерации.​ не получится, т.к.​
​If Not rInt​ A2:A100 With Cells(cell.Row,​
​ внесенных данных. То​: должно работать так​ не работают либо​ быть​Next​ как Вы идентифицируете​.Value = IIf(Trim(cc)​ дата-время!​
​ Необходимо сделать так,​ не учитывают апострофы​
​ ячейке D20, только​ датами ячейки мы​ ИСТИНА. Должен быть​

​Mulifen​​ функция СЕГОДНЯ() пересчитывается​ Is Nothing Then​ 1) ‘вводим в​ есть макрос который​ «BDFHJLNPRTVXZ,AB,AD,AF,AH»​
​ не под мой​RAN​End Sub​
​ юзеров?​ = «», «»,​Gustav​ чтобы при внесении​ при вычислении результатов.​ к месяцу прибавить​ знаем. Нужно выделить​ хотя-бы один из​

​:​​ при любом изменении​For Each rCel​ первый столбец текущей​ дает изменить ранее​Garlem79​
​ случай. Про макросы​: Вас не Ганс​P.S. «запамятовал» -​Если по имени​ Now)​: Возможно. Замените Now​ номера заказа в​Если число в ячейке​ 1 месяц.​ ячейку с датой.​ двух аргументов, либо​Michael_S​ на листе, а​

​ In rInt​​ строки ячейку дату​ заполненную ячейку через​: Спасибо. Дело в​
​ только начал читать​ Христиан зовут?​ освежился: Ctrl+1 ​ пользователя Офиса, так​
​на строку​ на Date.​ столбец А -​ выровнено по левому​Получится так.​ Нажать квадратик в​ ЛОЖЬ, либо ИСТИНА.​огромное спасибо, шикарное​
​ не только при​rCel.NumberFormat = «0»​​ .Value = Now​
​ пароль и дает​
​ том. что если​

​ информацию, поэтому надеюсь​pinguindell​ Защита Скрыть​ его элементарно просто​Code200?’200px’:»+(this.scrollHeight+5)+’px’);»>​На заметку: вручную,​

​ в столбце B​​ краю, обычно это​Чтобы прибавить год к​ правом нижнем углу​ Или оба.​

​ решение.​​ изменениях в А1.​If rCel =​ .EntireColumn.AutoFit ‘выполняем автоподбор​ список таких изменений​ я пишу AH,​ на понятный ответ.​

​: точно, Вы правы,​​ формулы.​ и быстро поменять.​If IsEmpty(.Value) Then​ без макросов текущую​ напротив введенного заказа​ означает, что оно​ дате, формулу используем​ ячейки ЛЕВОЙ кнопкой​kim​0mega​Michael_S​
​ Empty Then​ ширины для столбца​ на соседний лист.​ но не хочу​Заранее спасибо!​ просто не на​Immortalist​А вот если​ .Value = Now​ дату (только дату)​ автоматически появлялись дата​ не отформатировано как​ как в предыдущем​
​ мыши.​: ЛЖИ без ИСТИНЫ​
​:​
​: Без макросов можно,​rCel.Offset(, -2) =​
​ B, чтобы дата​Приложил образец файла.​
​ чтоб в A​AlexM​
​ ту опцию посмотрел.​: Прошу прощения, что​ у Вас пользователи​
​и будет Вам​ в ячейку можно​
​ и время его​ число.​
​ варианте, только число​
​Указатель мышки превратится в​
​ быть не может​
​Michael_S​
​ но должны быть​ Empty​ умещалась в ячейке​
​ В нем 2​ и H по​
​: Нужен пример таблицы​ Действительно при выключенных​
​ долго не отвечал,​
​ - во внутренней​
​ счастье.​
​ вставить клавиатурной комбинацией​
​ занесения:​
​При введении в ячейку​

​ «1» прибавляем к​ черный крестик. Тянем​ :-)​, доброго времени суток.​

​ включены итерации.​​Else​ End With End​ листа.​
​ отдельности работал макрос,​ (в формате Excel)​ макросах не работает.​ забегался.​ сети, то можно​Alex_ST​ Ctrl+; , a​Чтобы реализовать такой ввод​ числа с буквой​ году. Получится такая​ этот крестик вниз​
​Serge_007​

​два вопроса :​​Дата в А1​rCel.Offset(, -2) =​
​ If Next cell​Буду рад если​
​ он все равно​ для вашего случая.​А Вы не​Огромное Вам спасибо​ идентифицировать по сетевым​
​: Зачем там у​
​ только время -​ даты, нам потребуется​
​ "е", например 1e9,​ формула.​
​ по столбцу. Ячейки​: Я это:​1) С1=ЕСЛИ(A1;B1)​
​ должна меняться при​ Now()​ Application.EnableEvents = True​
​ кто-нибудь сможет мне​
​ в их работает.​
​AlexM​
​ знаете можно ли​
​ Gustav, просто то​
​ именам, которые так​

​ Вас цикл по​ Shift+Ctrl+; . Вставить​ простой макрос, который​ оно автоматически преобразуется​=ДАТА(ГОД(D20)+1;МЕСЯЦ(D20);ДЕНЬ(D20))​ заполнятся следующими датами.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(A1;;ЛОЖЬ)​как вообще может​ любом изменении в​rCel.Offset(, -2).NumberFormat =​ End Sub​ помочь.​AlexM​: Вариант кода в​
​ назначить событие, при​ что нужно было!!!!​ просто уже не​

​ ячейкам Target’a я​​ в одну ячейку​​ надо добавить в​ в научное число:​
​Получились такие даты.​ Получится так.​имел ввиду​
​ работать​ В1 или только​
​ "dd.mm.yyyy hh:mm:ss"​pashulka​
​сам макросы не​
​: поменяйте строку на​
​ модуле листа Private​

​ открытии книги, чтобы​​ Немного подредактировал под​ изменишь.​ не понял…​ и дату, и​ модуль рабочего листа.​ 1,00E+09. Чтобы избежать​Как автоматически заполнить список,​

​Все хорошо, но, нам​​kim​половина​

​ один раз?​​End If​: Альтернативный вариант (на​

​ пишу, максимум могу​​ If InStr(«B,D,F,H,J,L,N,P,R,T,V,X,Z,AB,AD,AF,AH,», Split(Target.Address,​ Sub Worksheet_Change(ByVal Target​

​ выполнялся следующий макрос,​​ себя, получилось если​Вот Вам на​Попробуйте так:​ время можно, применив​ Для этого щелкните​
​ этого, введите перед​ смотрите в статье​ нужно заполнить ячейки​: А, ну тады​формулы и при​Mulifen​Next​
​ основании выложенного примера)​
​ установить готовый, поэтому​
​ "$")(1)) & ","​ As Range) Application.EnableEvents​
​ который программно снимал​ не идеально, то​ всякий случай презент:​
​200?'200px':''+(this.scrollHeight+5)+'px');">Private Sub Worksheet_Change(ByVal Target​
​ обе комбинации через​ правой кнопкой мыши​ числом апостроф: ‘1e9​
​ "Заполнить автоматически список​ только рабочими днями.​
​ ладно, а то​ этом здесь вообще​: А если сделать​
​End If​Private Sub Worksheet_Change(ByVal​
​ если можно, нужен​
​ And Target.Row >​ = False On​ ограничения Excel​ очень близко к​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function Net_UserName$()​ As Range)​ пробел, причем в​ по ярлычку листа​Предположим, у нас имеется​ в Excel».​ Вот тут начинается​ я уже разволновался​

excelworld.ru

Автоматически фиксировать дату и время изменения в ячейке

​не прописаны​​ некую промежуточную ячейку​
​Set rInt =​ Target As Range)​
​ полноценный ответ, то​ 3 Then Target.Offset(0,​ Error Resume Next​Источник:http://excelvba.ru/code/Security​ этому!!! Спасибо еще​Net_UserName = CreateObject(«Wscript.Network»).UserName​If Target.Count >​ любом порядке.​ с таблицей и​ таблица заказов, куда​В Excel можно​ «волшебство» Excel. :)​
​=ЕСЛИ(A1;;ЛОЖЬ) <> =ЕСЛИ(A1;0;ЛОЖЬ)​никакие условия ?!​ на подобии маркера​ Nothing​ If Target.Row >​ есть готовый полностью​ -1) = IIf(Target​ If InStr(«BDFHJLNPRTV», Split(Target.Address,​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Enable_AccessVBOM_and_Macro()​ раз всем большое,​End Function​ 1 Then Exit​Immortalist​ выберите в контекстном​
​ пользователь вводит номер​ сделать много разных​Второй способ.​ <> =ЕСЛИ(A1;)​2) а почему​ изменять или нет​Application.EnableEvents = True​ 4 Then Application.EnableEvents​ код.​ <> «», Now,​ «$»)(1)) Then Target.Offset(0,​On Error Resume​ если что обращусь​
​Тогда можно по​ Sub​: Добрый день.​ меню команду​ заказа, имя клиента,​ графиков. Рассмотрим еще​Автоматическая дата в Excel.​GASik​
​ нельзя С1 просто​

​ и буферную ячейку​​Application.ScreenUpdating = True​ = False With​Заранее спасибо!​

​ «»)​​ -1) = IIf(Target​ Next​ за помощью!!​ этим именам при​If Not Intersect(Target,​Стоит такая задача.​Исходный текст​ сумму и т.д.​ один вид диаграммы,​Выделяем ячейку с​: Здравствуйте! Нужна помощь​ приравнять к В1:​ с указанием текущей​

​End Sub​​ Intersect(Target.EntireRow, [A:A]) .Value​Border77​
​Garlem79​ <> «», Date,​Key$ = «HKEY_CURRENT_USERSoftwareMicrosoftOffice»​Хорошего всем дня!!​ открытии файла программно​ Range(«A:A»)) Is Nothing​Есть таблица из​(View code)​
​ Необходимо сделать так,​

​ которая будет сравнивать​​ датой. Нажимаем на​ в следующем: есть​=B1​
​ даты и даты​Manyasha​ = Date .Columns.AutoFit​
​: Всем привет!​: Поменял, но все​
​ «») ‘Time ‘Now​ & Application.Version &​
​pinguindell​ запрещать редактировать на​

​ Then​​ 7 столбцов. Когда​.​ чтобы при внесении​ данные трех столбцов.​ квадратик в правом​ 31 лист (по​Serge_007​ изменения.​
​:​
​ End With: [H1]​
​Прочитал тему, данный​ равно. У меня​
​ Application.EnableEvents = True​ _​

​: Добрый день уважаемые​​ листах всё кроме​With Target.Offset(0, 4)​ в столбец A​В открывшееся окно редактора​ номера заказа в​ Подробнее, смотрите в​ нижнем углу ячейки​ числу дней в​

​:​​Mulifen​

​w00t​​ = Now Application.EnableEvents​
​ макрос вставляет дату​ колонок по факту​ End Sub​»ExcelSecurity»​ форумчане.​ разрешённых пользователю ячеек.​.Value = IIf(IsDate(.Value),​ вносят данные, в​ Visual Basic скопируйте​ столбец А -​
​ статье «Пузырьковая диаграмма​ ПРАВОЙ кнопкой мыши​ месяце), на каждом​0mega​

​:​​, так пойдет?​ = True End​

​ в соседнюю ячейку,​​ больше.​Garlem79​’ включаем программный​Подскажите как мне​Gustav​ .Value, Now)​ столбце E проставляется​ этот текст этого​ в столбце B​

​ в Excel».​​ и протягиваем вниз​ из них стоит​, Вы уже задавали​Michael_S​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_Change(ByVal Target​ If End Subили​ а можно ли​Допустим, есть колонка​

​: ALEX, спасибо Вам​​ доступ к объектной​ решить следующий вопрос.​: А если сразу​End With​
​ соответсвующее время. Когда​ макроса:​ напротив введенного заказа​Чтобы даты было проще​ по столбцу. Отпускаем​ дата в формате​ этот вопрос мне​можно подробнее про​ As Range)​
​Private Sub Worksheet_Change(ByVal​ сделать так что​ ВС , для​ большое!​ модели проекта VBA​

​Для автоматического добавления​​ в несколько ячеек​End If​ в столбец F​Private Sub Worksheet_Change(ByVal​ автоматически появлялись дата​ вводить, Excel Online​ кнопку мыши. Появляется​ дд.мм.гг. Необходимо сделать​

​ и я Вам​​ итерации.​Dim rInt As​ Target As Range)​

​ бы при изменении​​ которой нужна функция​
​Все так за​
​CreateObject(«WScript.Shell»).RegWrite Key$ &​ даты в ячейку​ копи-пастнут? Я бы​If Not Intersect(Target,​ заносят данные, в​ Target As Range)​ и время его​ автоматически преобразует 2.12​ такое диалоговое окно​ так, чтобы при​ на него отвечал.​Дата в принципе​ Range, rCel As​
​ If Target.Row >​ к примеру ячейки​ фиксации даты и​ маленьким исключением. Нужно,​ «AccessVBOM», 1, «REG_DWORD»​ использую следующий код​ оставил цикл…​ Range(«F:F»)) Is Nothing​ столбец g заносится​ For Each cell​ занесения:​ в 2 дек.​ с предложенными вариантами​ изменении месяца (по​Michael_S​ должна меняться 1​ Range​
​ 4 Then Application.EnableEvents​ «В12» дата появлялась​ времени изменения, но​ чтоб высвечивались и​’ ставим низкий​
​ (добавлен в исходный​Alex_ST​ Then​ свое время.​ In Target ‘проходим​Чтобы реализовать такой ввод​ Но это может​ копирования даты.​ прошествии месяца) или​
​: Ну раз уж​ раз, но возможно​Application.EnableEvents = False​
​ = False Intersect(Target.EntireRow,​ только в ячейки​ для колонок B​
​ дата и текущее​ уровень безопасности (применится​ текст листа).​: А может лучше​With Target.Offset(0, 1)​Вот такой код​ по всем измененным​
​ даты, нам потребуется​

​ сильно раздражать, если​​Нажимаем на нужный вариант.​
​ года (по прошествии​ меня спрашивают, отвечу​ что и несколько.​Application.ScreenUpdating = False​ [A:A]) = Date​ «В2″.​ и С по​ время. Я попытался​ после перезапуска Excel)​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​
​ попробовать для обеспечения​.Value = IIf(IsDate(.Value),​

CyberForum.ru

Автоматическая вставка даты изменений строки в Excel

​ у меня:​​ ячейкам If Not​
​ простой макрос, который​ вы хотите ввести​ Мы нажали на​ года) на одном​ и я.​(Стоит задача автоматического​Set rInt =​ [H1] = Now:​Заранее благодарен за​ отдельности эта функция​ изменить формат ячеек,​CreateObject(«WScript.Shell»).RegWrite Key$ &​
​Private Sub Worksheet_Change(ByVal​
​ большей достоверности вводимых​ .Value, Now)​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_Change(ByVal Target​ Intersect(cell, Range(«A2:A100»)) Is​ надо добавить в​ числа, которое не​ слова «Заполнить по​ листе, менялся месяц/год​1)=ЕСЛИ(A1;B1)​ формирования журнала заявок​ Intersect(Target, Range(«c5:c» &​ Columns(1).AutoFit Application.EnableEvents =​ ответы!!!​ не нужна.​ но время выдает​ «VBAWarnings», 1, «REG_DWORD»​ Target As Range)​ данных запретить пастить​End With​ As Range)​ Nothing Then ‘если​
​ модуль рабочего листа.​ нужно превращать в​ рабочим дням». Получилось​ на другом. ПРоще​В А1 стоит​ (дата подачи, кем,​ Rows.Count))​ True End If​
​ArtistJoker​

​А у меня​​ 0:00.​End Sub​Private Sub Worksheet_Change(ByVal​ больше чем в​End If​Dim cc As​ изменененная ячейка попадает​ Для этого щелкните​ даты. Хотя преобразование​ так.​ говоря на листах​ дата, т.е.- число,​ и собственно текст​If Not rInt​ End Sub​: Привет, форумчане!​ все равно она​Не адресовал сообщение​И вопрос в​ Target As Range)​ одну ячейку?​End Sub​ Range​ в диапазон A2:A100​ правой кнопкой мыши​

​ невозможно отключить его,​​Вставить даты в​ стоит дата 01.01.13​
​ это главное условие​ заявки)​ Is Nothing Then​ArtistJoker​Очень прошу помочь.​ включается и при​AlexM​ догонку, по коду​If Target.Cells.Count >​Gustav​Immortalist​
​Application.ScreenUpdating = False​ With cell.Offset(0, 1)​ по ярлычку листа​ есть несколько способов,​Excel с определенным периодом​ по 31.01.13 (за​ для возможности применения​И нужно фиксировать​For Each rCel​: Спасибо, огромное! Всё​

​ На работе заполняю​​ новом виде записи​: Вмеcто Date в​

CyberForum.ru

Автоматическая вставка даты и времени (Макросы/Sub)

​ видно что макрос​​ 1 Then Exit​: В общем, моё​: Большое спасибо за​Application.EnableEvents = False​ ‘вводим в соседнюю​ с таблицей и​ позволяющих обойти его.​.​ январь) Сейчас необходимо​
​ такой записи.​ дату внесения (т.к.​ In rInt​ работает как надо!​ отчёт, в котором​ строки.​ предпоследней строке вставьте​ создает ключ в​ Sub​​ предложение такое. Таймштамп​
​ Ваши!​For Each cc​ справа ячейку дату​ выберите в контекстном​Если вам нужно сложить​
​Первый вариант.​ поменять на 01.13.13​В логических функциях​ замучали либо вообще​rCel.NumberFormat = «0»​w00t​ вручную приходится вставлять​AlexM​ Now​ реестре, поэтому как​If Not Intersect(Target,​ пишется в колонки​Код отредактировал -​ In Target​ .Value = Now​ меню команду​ много значений, которые​Выделяем ячейку с​
​ по 31.03.13 и​
​ (а здесь именно​ не пишут или​
​If rCel =​: Здравствуйте. Избитая тема,​ дату изменений строки(не​
​: понял причину If​
​В конце этой​
​ мне кажется будет​ Range(«A1:A1000000»)) Is Nothing​
​ E и G​ первая проблема решилась!​
​If Not Intersect(cc,​ .EntireColumn.AutoFit ‘выполняем автоподбор​
​Исходный текст​
​ похожи на даты​ датой. Нажимаем ПРАВОЙ​
​ чтобы в перспективе​ логическое условие) ноль=ложь,​
​ пишут не всегда​
​ Empty Then​ но, помогите, пожалуйста,​
​ просто ячейки) с​ InStr(«,D,F,H,J,L,N,P,R,T,V,X,Z,AB,AD,AF,AH,», «,» &​
​ строки я закомментировал​
​ проблема при запуске​
​ Then​
​ на Лист3, который​А вот с​
​ Range(«A2:A100000»)) Is Nothing​
​ ширины для столбца​
​(View code)​

​ (например, чисел с​​ мышкой на квадратик​​ при изменении месяца​​ все, что не​
​ корректно + потом​rCel.Offset(, -2).Resize(, 2)​
​ немного модифицировать (да,​ информацией по клиенту.​ Split(Target.Address, "$")(1) &​
​ возможные варианты​
​ такого когда на​
​With Target(1, 2)​ скрыт c Visible​ защитой листов проблема​
​ Then​ B, чтобы дата​
​.​ дробями), вы можете​
​ в правом нижнем​
​ или года на​ равно нулю -​
​ вносят изменения в​ = Empty​
​ обращение к листу​
​ Искал в сети​ ",") And Target.Row​
​Time - это​ компьютере с учетной​
​.Value = Now​ = xlSheetVeryHidden, чтобы​
​ осталась. Все так​With cc(1, 5)​
​ умещалась в ячейке​
​В открывшееся окно редактора​
​ отформатировать ячейки как​
​ углу и протягиваем​
​ одном из листов​ истина. В А1<>0,​
​ текст, а дату​
​Else​
​ по Codename, если​
​ помощь, нашёл только​​ > 3 Then​​ только время​​ записью обычного пользователя,​.EntireColumn.AutoFit​ юзера его не​

​ же при попытке​​.Value = IIf(Trim(cc)​
​ End With End​ Visual Basic скопируйте​

excelworld.ru

Автоматический ввод даты при изменении значения.

​ текст. После этого​​ на нужное количество​ дата менялась и​ следовательно А1=ИСТИНА.​ не меняют, соответственно​If rCel.Offset(, -2)​ в чистой книге,​
​ вот такой код​ Target.Offset(0, -1) =​
​Now — дата​
​ а не админа​End With​
​ увидели (доступ к​ занести данные ругается​ = «», «»,​ If Next cell​
​ этот текст этого​

​ Excel Online не​​ ячеек. Отпускаем мышку.​
​ на всех остальных.​В функции ЕСЛИ()​ заявка выполняется по​ = «» Then​ то вместо Vvod_dannyh.Columns(3)​ (внесение даты изменений​ IIf(Target <> «»,​

​ и время​​ ?​End If​ проекту VBA закрыт​
​ Run-time error ‘1004’:​ Now)​ End Sub​ макроса:​ будет пытаться преобразовать​

​ В появившемся диалоговом​​ Заранее спасибо​ не обязательно указывать​ старым условиям а​rCel.Offset(, -2) =​ тот же Worksheets(1).​ соседней ячейки):​ Now, «»)​Date — только​

​Garlem79​​End Sub​​ паролем: 123).​​ Aplication-defined or object-defined​End With​
​При необходимости измените «чувствительный»​Private Sub Worksheet_Change(ByVal​ их в даты.​ окне нажимаем на​
​Pelena​ значение, принимаемое при​ при проверке выясняется​ Now()​ Columns(3))​
​———————————————————————————————————————​Garlem79​ дата​: Доброго времени суток!​Все работает прекрасно,​На основном Листе1​ error.​End If​ диапазон​ Target As Range)​Выберите ячейки, в которые​ функцию «Прогрессия». Появится​: На первом листе​

​ условии ЛОЖЬ. В​​ что неправильно исполнили))​rCel.Offset(, -2).NumberFormat =​Чтобы в соседнюю​Private Sub Worksheet_Change(ByVal​: Вроде теперь все​Garlem79​Помогите с решением​

​ но в тоже​​ в колонки E​Возможно ли найти​Next​»А2:А100″​ For Each cell​ необходимо ввести числа.​

​ такое диалоговое окно.​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(СЕГОДНЯ());1)​ этом случае по​
​Serge_007​ «dd.mm.yyyy hh:mm:ss»​ с датой ячейку​ Target As Range)​ ОК. Еще раз​

​: И еще ,​​ следующей задачи:​ время если в​ и G помещены​ какое-то решение?​For Each cc​на свой собственный.​ In Target ‘проходим​Щелкните​Устанавливаем галочки у нужных​
​На остальных либо​ умолчанию возвращается ЛОЖЬ.​: Тогда точно лучше​rCel.Offset(, -1) =​ (,-1) добавлялся (или​ For Each cell​ спасибо Вам!​ возможно в коде​В таблице есть​ столбец А просто​

​ формулы, выводящие значения​​Заранее прошу прощения,​​ In Target​​ Если необходимо вставлять​ по всем измененным​

​Главная​​ функций, ставим шаг​​ по аналогии, либо​​Попробуйте в А1​
​ макросами. Ввод через​
​ WorksheetFunction.WeekNum(rCel.Offset(, -2))​
​ удалялся, если дата​ In Target ‘проходим​​Garlem79​​ это заложено, но​ несколько столбцов (около10),​​ вставить данные путем​​ из аналогичных ячеек​
​ плохо знаю Visual​If Not Intersect(cc,​ дату не в​
​ ячейкам If Not​

​>​​ (например, через какое​​ на каждом следующем​​ писать любые числа​ форму, с проверкой​End If​ отсутствует) номер недели​

​ по всем измененным​​: Доброго времени!​ я в этом​ расположенных в разных​
​ копирования (Ctrl+V) из​
​ Листа3: =ЕСЛИ(ЕПУСТО(Лист3!E1 );»»;Лист3!E1).​ Basic…​ Range(«F2:F100000»)) Is Nothing​ соседний столбец, а​ Intersect(cell, Range(«A2:A100»)) Is​
​Числовой формат​ количество дней писать​ листе прибавляйте +1​ (ноль, положительные, отрицательные),​ на корректность и​End If​ основанный на дате,​
​ ячейкам If Not​есть задача:​ не разбираюсь- как​ местах таблицы (не​ другого файла -​ При желании формулы​
​Alex_ST​ Then​ правее — подставьте​ Nothing Then ‘если​>​
​ даты, пример -​ день к предыдущей​ и посмотрите, что​ запретом на изменение.​Next​ которую макрос добавляет.​ Intersect(cell, Range(«A2:A100»)) Is​Есть потребность контролировать​ сделать чтоб макрос​ по порядку) В​ то в столбце​ можно скрыть (признаться,​: А как Вы​With cc(1, 2)​
​ в оператор​ изменененная ячейка попадает​Текст​ с разницей в​ дате​ будет в С1.​ Чем такой вариант​End If​ Номер недели, который​ Nothing Then ‘если​ дату и время​
​ работал начиная с​ них ежедневно собираются​ В даты не​ запамятовал, как это​ вообще умудрились дать​.Value = IIf(Trim(cc)​Offset(0,1)​ в диапазон A2:A100​

​.​​ два дня –​Если не угадала,​2)Если написать сразу​ не подходит?​Set rInt =​ если формулой​ изменененная ячейка попадает​

​ вводимых данных в​​ 4й строки?​ данные по выработке​ отображаются, по сути​

​ делается), чтобы от​​ разные права доступа​​ = "", "",​​вместо 1 число​

​ With cell.Offset(0, 1)​​Если вам нужно ввести​ 12, 14, 16,​ создавайте свою тему​
​ в С1 =В1,​Mulifen​

​ Nothing​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=номнедели (ячейка;2)​ в диапазон A2:A100​ определенный лист книги.​Спасибо за оперативность!​ работников. Нужно фиксировать​ добавление значений в​ Листа3 не было​ к разным диапазонам​ Now)​ побольше.​ ‘вводим в соседнюю​ всего несколько чисел,​ т.д.). Нажимаем «ОК».​ и прикладывайте файл​ то после изменения​: Боюсь что антивирус​Application.EnableEvents = True​И действие распространялось​ With cell.Offset(0, 1)​ Уже есть макрос​Добавлено через 2 минуты​ дату и время​ ячейку это и​ никаких явных следов​ листа разным пользователям?​End With​Закройте редактор Visual Basic​ справа ячейку дату​

​ можно отменить их​​Второй вариант.​
​ с примером​
​ в В1 сначала​ будет мешать и​Application.ScreenUpdating = True​ бы только с​ ‘вводим в соседнюю​ который работает и​
​Да, поправил, работает.​ внесения данных в​ есть изменение значений​ на Листе1.​

excelworld.ru

​В Excel-2003 с​