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

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

Private Sub Worksheet_Change(ByVal Target As Excel.Range) ThisRow = Target.Row If Target.Row > 1 Then Range("K" & ThisRow).Value = Now() End Sub 

Но он продолжает бросать следующую ошибку:

Ошибка времени выполнения '-2147417848 (80010108)':

Метод «Значение» объекта «Диапазон» не выполнен

Может ли кто-нибудь объяснить, почему это происходит?

Вы создаете бесконечный цикл, изменяя значение внутри события Worksheet_Change не отключая сначала события. Когда я делаю что-то подобное, я получаю ряд ошибок из Out of stack space сначала в Method Range failed...

Сделайте это вместо этого:

 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False ThisRow = Target.Row If Target.Row > 1 Then Range("K" & ThisRow).Value = Now() Application.EnableEvents = True End Sub 

Похожие сообщения: MS Excel сбой при запуске кода vba

  • Ошибка выполнения "424: Требуется объект"
  • Адресация OLE-объекта в ppt через excel иногда возвращает ошибку времени выполнения 430
  • Коллеги получают ошибку 5 в Excel-файле с VBA, но тот же файл отлично работает на моем компьютере?
  • «Ошибка времени выполнения 9» при копировании строк с одного листа на другой
  • Авария произошла за пределами виртуальной машины Java в ошибке внутреннего кода при редактировании файлов excel
  • Ошибка времени VBA 1004: Диапазон (""). Код Formula
  • Excel VBA - Назначение свойств ячейки вызывает номер ошибки 1004
  • ошибка атрибута при попытке установить цвет ячейки в xlwt с помощью python
  • «Ошибка времени выполнения« 13 »только при использовании« Заполнить »?
  • Ошибка выполнения «9» при удалении модуля Excel VBA
  • Ошибка при настройке переменной рабочей книги - 2147352565
  • Interesting Posts

    Объединение двух столбцов по элементам в Excel – значения и текст, опуская пустые ячейки (с помощью vba)

    Первая использованная ячейка выше адреса

    Проблема с получением DateAdd, чтобы правильно сформулировать

    OleDbConnection открывает лист как доступный только для чтения в любом открытом окне Excel

    Введите значение ячейки из одного столбца в местоположение, указанное другими ячейками

    Какая структура данных возвращается Pands.read_excel и как я могу ссылаться на столбцы базовых фреймов данных?

    Оптимизация избыточного кода Excel VBA

    Вставить метку столбца в сводную таблицу с помощью Apache POI?

    Вызов веб-службы из VBA с использованием SOAP

    excel vb dropdownlist update

    Формула Excel на основе цвета фона

    Workbooks.Activate не работает на некоторых компьютерах

    Как импортировать один и тот же txt-файл (который обновляется ежедневно) в Excel

    Измените ширину ячейки с помощью Xlwt в Django

    Экспорт и форматирование данных в Excel из C #

    Давайте будем гением компьютера.