作者：乔山办公网日期：
返回目录：excel表格制作
1、可以能过zhidao窗体的QueryClose事件设置，具体代码如下：
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Close True
End Sub
2、窗体的QueryClose事件可以在点击窗体右上专角的关闭按钮时触发。
3、ThisWorkbook表示当前代码所在的工作簿。
4、Close是关闭的方法。
5、 True是指关闭时保存属此工作簿，如不想保存可改为FLASE。
1、在工作表中，点击菜单栏【开发工百具】，在其工具栏内，点击【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工程窗口中，这两个文件被关闭不见了。
Private Sub CommandButton1_Click()
Dim a%
a = CInt(InputBox("输入来数自据zd"))
Sheet1.Range("a2:a255") = a
Unload Me
End Sub