无模式用户形式导致崩溃

时间:2016-02-23 20:23:27

标签: vba excel-vba userform excel

我最近了解到,更改 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 也会触发。

任何人都知道错误会发生的原因吗?

0 个答案:

没有答案