我想在我的excel表单上使用VBA代码,以便在结果结果未通过时通知用户退出。我尝试了以下代码,但不起作用?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("I$64").Value2 <> "PASS" Then
MsgBox "Analysis Outcome is Failed!!!!"
End If
End Sub对这个问题有什么建议吗?
发布于 2018-09-11 09:28:39
限定Worksheet,并在If...End If中添加Cancel = True以使工作簿保持打开状态(如果需要)。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheet1.Range("I$64").Value2 <> "PASS" Then ' Or maybe Worksheets("YourSheetName").Range...
MsgBox "Analysis Outcome is Failed!!!!"
Cancel = True ' as needed
End If
End Sub下面的代码应该在ThisWorkbook模块中:

https://stackoverflow.com/questions/52267318
复制相似问题