如何避免End语句造成的“执行错误”提示

clement

我的目的是彻底终止程序，释放占用的内存。 1.新建工程 2.添加窗体，名称为UserForm1
代码为
Private Sub UserForm_Terminate()
End
End Sub 3.添加模块
Public Sub ShowUserForm1()
UserForm1.Show
End Sub 4.新建一LSP文件
内容为
(defun c:ShowUserForm1 (/ oldecho)
(setq oldecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "-VBARun" "ShowUserForm1")
(setvar "cmdecho" oldecho)
(princ)
) 5.加载上面的LSP文件 6.在命令行键入“ShowUserForm1”，窗体出现 7.关闭窗体后，命令行提示“执行错误” 如果按Alt+F8选择ShowUserForm1执行，或者在UserForm1的代码窗口上按F5运行的话，命令行都不会有这个提示。看来这与从自定义命令调用该宏有关，请教问如何能避免命令行提示“执行错误”。

clement

已经解决了 不用在UserForm_Terminate的时候End，而是在LSP文件中完成 取消2中的代码 Private Sub UserForm_Terminate()
End
End Sub 并将4改成 (defun c:ShowUserForm1 (/ oldecho)
(setq oldecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "-VBARun" "ShowUserForm1")
(command "VBASTMT" "End")
(setvar "cmdecho" oldecho)
(princ)
)

weihedao

同问!

pmq

Private Sub UserForm_Terminate()
  me.Hide

  set UserForm1=NOthing
End Sub