Я новичок в Excel vba, в основном использую его просто для создания генератора отчетов, в который я вводю данные через пользовательскую форму, и он генерирует отчет.
У меня есть две пользовательские формы в книге.
Все шло нормально, пока я не получил этот "объект ошибки 424" из макроса afterupdate для текстового поля во второй пользовательской форме, и когда я нажал на кнопку остановки, Excel потерпел крах.
- Я изменил макрос, который будет запускаться при выходе из текстового поля, при ошибке без сбоев.
- Я скопировал текстовое поле с макросом afterupdate в новую пользовательскую форму, при ошибке без сбоев.
- Я скопировалтекстовое поле для первой пользовательской формы, при ошибке Excel Excel.
- Я вставил используемую пользовательскую форму в новую рабочую книгу, при ошибке Excel Excel.
Так что мне кажется, что естьнекоторые проблемы с моими исходными двумя пользовательскими формами.
Будем весьма признательны за любые мысли о том, что может быть причиной, в то время как я просто создам две новые пользовательские формы и скопирую оригинальные в t.hem.
Edit 1:
Вот код, вызвавший ошибку:
Private Sub AKA_en_AfterUpdate()
Dim SubNo, SubNoCol As Long
SubNo = AKA.AKA_Subjects.Value 'AKA: second userform name, AKA_Subjects: Combobox with subjects number (1 to 5)
SubNoCol = (AKA.AKA_Subjects.Value * 3) + 3 'Subject no. -> Column no.
ThisWorkbook.Sheets("sheet2").Range("AKA_E" & SubNo).Value = "" 'aka_e (1 to 5) ranges where the data is populated
Dim AKA_en: AKA_en = Split(AKA.AKA_en.Value, vbCrLf) 'AKA_en: textbox
For i = 0 To UBound(AKA_en)
ThisWorkbook.Sheets("sheet2").Cells(i + 31, SubNoCol).Value = WorksheetFunction.Trim(AKA_en(i))
Next
End Sub
, но, пожалуйста, помните, что проблема не в самом коде,это с любой ошибкой, которая происходит в макросе afterupdate только в двух пользовательских формах, которые у меня уже есть