1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。2、会进入VBA编辑界面！点击工具栏内【插入用户窗体】按钮，在其下拉菜单中，选择【模块】。3、会弹出模块编辑窗口。4、在代码编辑窗口输入以下代码：sub 关闭文件(),Workbooks("963.xls").Close ture,Workbooks("258.xl...

1、首先打开需要编辑的Excel表格，右键单击工作表选择打开“查看代码”。2、然后在弹出来的窗口中点击打开“通用”。选择Terminate 事件。3、然后在弹出来的窗口中点击输入下方的代码，Private Sub UserForm_Terminate()ThisWorkbook.Saved = True Application.Quit End Sub 4、然后运行程序，这样就可以设置关...

1、可以能过窗体的QueryClose事件设置，具体代码如下：Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)ThisWorkbook.Close True End Sub 2、窗体的QueryClose事件可以在点击窗体右上角的关闭按钮时触发。3、ThisWorkbook表示当前代码所在的工作簿。4、Close是关闭的方法。5、 True是...

首先，在VBE（代码编辑器，快捷键Alt+F11）中，点击：插入，用户窗体。在这个窗体（默认名称为UserForm1）中，添加一个button按钮（默认名称为CommandButton1），按钮的caption，设置为“点击进入表格”，双击这个按钮，绑定click事件：Private Sub CommandButton1_Click() UserForm1.hide workbooks("你...

在VBA窗口的UserForm_QueryClose事件中添加代码，就会在窗口关闭时执行。软件版本：Office2013 方法如下：1.在userfomr1窗口的UserForm_QueryClose事件中添加弹出代码：2.这样VBA窗体并关闭时，就会自动出现弹窗：

最顶上加一条 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub Auto_open()Sleep 1000 ' 1000毫秒后再打开UserForm窗体 UserForm.Open End Sub 找到那个窗体的名称（我这里是举例UserForm）Sleep 1000 休眠1000毫秒 自己调整时间 ...

Private Sub CommandButton2_Click()Worksheets(1).Activate Dim a, b As Integer For b = 2 To 225 a = InputBox("输入数据")Sheets(1).Cells(b, 1).Value = a Next b unload.me End Sub

用关闭窗体触发的事件来退出EXCEL即可，代码如下：Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)Application.QuitEnd Sub

答：可以不使用这个事件。比如userform1有个查询按钮，执行按钮后，隐藏userform1窗体，显示userform2窗体，在userform2窗体使用完毕后，执行重新显示userform1或卸载userform1窗体。Private Sub CommandButton1_Click() Me.Hide UserForm2.Show Me.Show' Unload Me '可选End Sub ...

，用户关闭窗体 Case vbFormCode ，代码终止窗体 Case vbAppWindows ，当前窗口进行正在终止 Case vbAppTaskManager ，任务粉理器关闭程序 Case vbFormMDlForm ，MDI父窗体关闭窗口 Case vbFormOwner 父窗体被关闭 End Select End Sub 当然，可以通过将Cancel参数设置为True拒绝卸载窗体:Private Sub Form ...