Ошибка времени выполнения 424 Требуемый объект – VBA Start Stop
У меня есть кнопка «Время старта», чтобы отслеживать, сколько я трачу на задачи на работе. Он работал нормально до сегодняшнего утра, и я получаю сообщение об ошибке во время выполнения 424. Код ниже. Любая помощь, которую вы можете дать, будет очень признательна!
Option Explicit Private Sub btnStart_Click() ActiveSheet.Unprotect Cells(Rows.Count, 5).End(xlUp).Offset(1) = Date Cells(Rows.Count, 6).End(xlUp).Offset(1) = Now Cells(Rows.Count, 7).End(xlUp).NumberFormat = "hh:mm" Cells(Rows.Count, 8).End(xlUp).Offset(1) = Environ("username") Me.btnStart.Enabled = False Me.btnStop.Enabled = True End Sub Private Sub btnStop_Click() ActiveSheet.Unprotect Cells(Rows.Count, 7).End(xlUp).Offset(1) = Now Cells(Rows.Count, 7).End(xlUp).NumberFormat = "hh:mm" Me.btnStart.Enabled = True Me.btnStop.Enabled = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub Public RunWhen As Double Public Const cRunIntervalSeconds = 10 ' 10 seconds Public Const cRunWhat = "The_Sub" ' the name of the procedure to run Sub StartTimer() RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds) Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True End Sub Sub The_Sub() [a1] = Now ' Call StartTimer to schedule the procedure again StartTimer End Sub
- Ошибка 2042 на десятичных числах application.match vba
- Ошибка времени выполнения «483» «Объект не поддерживает это свойство или метод»
- Именование многих диапазонов переменной длины
- Именованные диапазоны с использованием функции index / Match для возврата значений
- Ошибка выполнения «9» Подзаголовок вне диапазона - Диапазоны копирования
- Ошибка времени выполнения «13» «Несоответствие типа» в случае If Then Statement
- Не удалось установить видимую ошибку свойства при скрытии рамки
- Ошибка при вставке слайда: указанный тип данных недоступен
- Excel создает новый документ Word с использованием шаблона: ошибка во время выполнения 5981. Метод «Добавить» объекта «Документы» не удалось
- Ошибка выполнения 438 при импорте данных в Excel с защищенного веб-сайта с использованием VBA
- Код ошибки VBA. Обязательный объект - тройной флажок, но все еще не работает.
- Ошибка времени выполнения VBA 91. Переменная объекта установки проблемы
- Runtimeerror 1004 при попытке удалить строку в неактивном защищенном листе
Как отмечено в комментариях к вашему вопросу, поскольку ваша кнопка является кнопкой формы, я подозреваю, что назначенный ей макрос не является правильным или недоступным для доступа. Если вы пытаетесь запустить btnStart_Click() из btnStart_Click() управления Form, вам нужно будет удалить Private обозначение из Private Sub btnStart_Click() . То же самое можно btnStop_Click() о btnStop_Click() .
Добрый день, у меня была аналогичная проблема с контролем формы в электронной таблице Excel, которая работала просто отлично в один прекрасный день, а на следующий день она больше не могла «найти» элемент управления и отобразить ту же ошибку.
После выполнения поиска Google за последние 24 часа я обнаружил сообщение, которое указывает на декабрьские обновления безопасности.
Я знаю, что это не очень полезно, но это что-то.
Редактировать / обновить: Работала с моим технологическим гуру ПК, и он смог решить проблему, перерегистрировав две библиотеки DLL и удалив файлы .EXD в профиле пользователя. Файлы .EXD будут восстановлены (и, следовательно, перекомпилированы) в следующий раз, когда откроется Excel.
Вот DLL:
C: \ Windows \ syswow64 \ COMCTL32.OCX
C: \ Windows \ syswow64 \ MSCOMCTL.OCX
Удачи!