如何通过vba在关闭Excel时弹出对话框?
发布网友
发布时间：2022-04-23 09:23
我来回答
共2个回答
热心网友
时间：2023-05-19 07:16
程序代码需要写在workbook里面，如下图：
代码文本为：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim arr, j%
arr = Me.Sheets(1).UsedRange.Resize(2)
For j = 1 To UBound(arr, 2)
If arr(1, j) <> "" And arr(2, j) = "" Then
Application.Goto Me.Sheets(1).Cells(2, j)
MsgBox "关闭前请输入【" & arr(1, j) & "】批次的数量"
Cancel = True
Exit Sub
End If
Next j
End Sub
执行效果如下：
热心网友
时间：2023-05-19 07:17
Application.DisplayAlerts = False
Application.DisplayAlerts = True
如何通过vba在关闭Excel时弹出对话框?
Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim arr, j arr = Me.Sheets(1).UsedRange.Resize(2)For j = 1 To UBound(arr, 2)If arr(1, j) <> "" And arr(2, j) = "" Then Application.Goto Me.Sheets(1).Cells(2, j)MsgBox "关闭前请输入【" & arr(1, j) & "...
excel vba 窗口关闭时弹出另一个窗口
1.在userfomr1窗口的UserForm_QueryClose事件中添加弹出代码：2.这样VBA窗体并关闭时，就会自动出现弹窗：
Excel工作簿关闭时,我想用VBA中的Auto_close()函数,同时使用Msgbox弹出...
在EXCEL界面按ALT+F11 这样就打开了Visual Basic编辑器 再在Visual Basic编辑器界面按CTRL+R 这样就打开了工程资源管理器 双击工程资源管理器中的"ThisWorkbook"在工程资源管理器右边出现的文本框中粘贴以下代码 Private Sub Workbook_BeforeClose(Cancel As Boolean)a = MsgBox("请问您真的要退出吗？", ...
VBA 怎么调用关闭时弹出的保存提示对话框?
你可以换一个思路，就是在打开工作表的时候对控件状态进行初始化，这样的话关闭的时候就无须再考虑要不要保存控件的状态了，可以一律保存，这样问题是不是就简单得多了呢？补充：你可以在Workbook_Open事件中对控件进行初始化
excel里能用VBA禁用关闭excel退出时跳出的“取消”按钮吗?
打开EXCEL，按Alt+F11，点开Thisworkbook，复制以下代码到程序窗口：Private Sub Workbook_BeforeClose(Cancel As Boolean)Application.DisplayAlerts = True If Not ThisWorkbook.Saved Then Answer = MsgBox("是否保存？", vbYesNo + vbDefaultButton2, "你要的效果")If Answer = vbYes Then ...
如何用宏vba实现,关闭excel表格时,弹出msgbox对话框,引用某单元格的数值...
Private Sub Workbook_BeforeClose(Cancel As Boolean)MsgBox 现在的完成率为" & sheet1.cells(1,1) '具体是哪个工作表的A1，请修改工作表名即可。End Sub
初学vba,如何在关闭EXCEL时根据自己需要弹出提示窗口?
在Workbook_beforeclose事件的事件中，写上 CALL ***（你的代码的sub名称）Private Sub Workbook_BeforeClose(Cancel As Boolean) call XXXX(你的模块名称，即Sub 后面的那个名称）End Sub
excel vba怎样让工作簿关闭时不弹出保存对话框?
1、打开Excel 2003或2007或2010或2013完整版版本。2、进入“开发工具”一栏。3、点选“Visual Basic”选项卡中的“编辑器”。4、双击“ThisWorkBook”或“工作表1”。5、在空白区域填写代码：Sub 保存所有已打开的工作簿()，Dim i As Workbook，For Each i In Workbooks， If i.Path <> "" ...
如何用vba实现当关闭工作簿时能显示自打开工作簿后所作的所有操作,未点...
按Alt F11打开VBA编辑器，按Ctrl R打开项目资源管理器(如果已经打开则跳过)，右键单击当前工作簿，选择插入(n)和模块(m)，然后将下面的代码粘贴到右边的代码编辑区，按F5执行。但是，如果工作簿尚未保存，将弹出一个窗口，提示您用要保存的工作簿的文件名替换默认文件名。Sub SaveAndCloseAllBook()将...
VBA 中怎么设置关闭窗体同时关闭EXCEl,代码应该怎么写,谢谢了_百度知 ...
1、首先打开需要编辑的Excel表格，右键单击工作表选择打开“查看代码”。2、然后在弹出来的窗口中点击打开“通用”。选择Terminate 事件。3、然后在弹出来的窗口中点击输入下方的代码，Private Sub UserForm_Terminate()ThisWorkbook.Saved = True Application.Quit End Sub 4、然后运行程序，这样就可以设置...
