excel - Excel 因 afterupdate 宏的错误而崩溃

Question

我是 excel vba 的新手，基本上只是使用它来创建一个报告生成器，我通过用户窗体输入数据并生成一个报告。

我在工作簿中有两个用户窗体。

一切正常，直到我从第二个用户窗体中的文本框的更新后宏中得到这个“需要错误 424 对象”，当我单击停止按钮时，excel 崩溃了。

• 我将宏更改为在文本框退出时触发，错误时不会崩溃。
• 我将带有 afterupdate 宏的文本框复制到一个新的用户表单中，错误时没有崩溃。
• 我将文本框复制到第一个用户窗体，错误 excel 崩溃。
• 我将正在使用的用户表单插入到新工作簿中，出现错误 excel 崩溃。

所以在我看来，我原来的两个用户表单存在一些问题..

任何关于可能是什么原因的想法将不胜感激，同时我将创建两个新的用户表单并将原始用户表单复制到其中。

编辑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 宏中发生的任何错误

标签： excelvbacrashuserform