Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox 现在的完成率为" & sheet1.cells(1,1) '具体是哪个工作表的A1,请修改工作表名即可。End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox 现在的完成率为" & [A1]End Sub