原来认为执行完了Private Sub Workbook_Open()事件后就会执行模块中的Sub Auto_Open()程序,可是当在
Private Sub Workbook_Open()事件中打开一个窗体,后怎么就不执行Sub Auto_Open()了?
插入一个模块,把Sub Auto_Open()放在模块里试试。
在Open事件中调用窗体时,控制权转交给窗体,此时Open事件并没有结束,只有当窗体关闭后才会执行下面过程的End Sub,而此后将不会激活Auto_Open,解决方法是改用UserForm1.Show 0调用窗体。
Private Sub Workbook_Open()
MsgBox "Workbook_Open"
UserForm1.Show
End Sub
联系客服