我最近了解到,更改 ShowModal
的 userform
属性允许用户仍然访问工作表,因此我改变了我的真是假。
完成此操作后,当我在表单上单击“确定”时,我会收到 "Application-defined or object-defined error"
。
已更新
sub CallForm()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With myForm
.StartUpPosition = 0
.Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
.Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
.Show
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
end sub
我的用户表单的代码如下:
Private Sub OK_Click()
[myCell] = CDbl(TextBox1)
Unload Me
End Sub
并且在我尝试将文本框输入转储到工作表中时发生错误。在逐步执行代码时,即使我之前将 worksheet_change()
关闭, EnableEvents
也会触发。
任何人都知道错误会发生的原因吗?