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)':
- .Find () Ошибка времени выполнения '91': переменная объекта или с не заданной переменной блока
- Ошибка времени выполнения VBA 13
- Ошибка времени выполнения 91: переменная объекта или с не заданной переменной блока
- Ошибка времени выполнения «13» «Несоответствие типа» в случае If Then Statement
- Почему я получаю ошибку во время выполнения -2147417848 (80010108) в excel 2013 большую часть времени, когда я запускаю UserForm?
Метод «Значение» объекта «Диапазон» не выполнен
Может ли кто-нибудь объяснить, почему это происходит?
- «Определенная заявка или ошибка с определением объекта» - Возможность запуска сценария на некоторых ПК, но не другие
- VBA Ошибка времени выполнения '1004'
- Ошибка выполнения 9 в цикле
- Ошибка Excel 1004, выделить выделенные ячейки серым, когда да
- Ошибка выполнения 1004: не удалось вставить метод класса рабочей таблицы
- VBA error 1004 выберите метод поля класса рабочего листа
- Ошибка времени выполнения «1004» при вводе формулы
- Ошибка времени выполнения «13»: Тип Несоответствие
Вы создаете бесконечный цикл, изменяя значение внутри события 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