<em>VBA</em> 中怎么设置关闭窗体同时关闭<em>EXCEl</em

1、在工作表中，zhidao点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。

2、会进入VBA编辑界面！点击工具栏内【插入用户窗体】按钮，在其下拉菜单中，选择【模块】。

3、会弹出模块编辑窗口。

4、在代码编辑窗口输入回以下代码：sub 关闭文件(),Workbooks("963.xls").Close ture,Workbooks("258.xls").Close,End Sub。

5、在VBA窗口，点击【运行】答按钮！即可关闭【963.xls】和【258.xls】两个文件。

6、VBA工程窗口中，这两个文件被关闭不见了。

1、首先打开需要编辑的Excel表格，右键单zhidao击工作表选择打开“查看代码”。

2、然后在弹出来的窗口中点击打开“通用”回。选择Terminate 事件。

3、然后在弹出来的窗口中点击输入下方的代码，

Private Sub UserForm_Terminate()

    ThisWorkbook.Saved = True

    Application.Quit

End Sub

4、然后运行程序，这样就可以设置关闭答窗体同时关闭EXCEl了。

把提取百字符的公式写入度sheet2单元格版
Sub aa()
Sheet2.Range("A1").Formula = "=left(sheet1!权A1,5)"
End Sub
直接把结果写入sheet2单元格
sub aa()
sheet2.range("A1").value=left(sheet1.range("A1").value,5)
end sub

Private Sub CommandButton1_Click()
ThisWorkbook.Save
Application.Quit
End Sub