[已解决]数据保存按扭设置

cyj153

数据保存按扭设置.rar (6.16 KB, 下载次数: 14)

2011-11-19 20:17 上传

点击文件名下载附件
能否给提示框一个保存数据代码，按“确定”就能保存数据，这样可以不会忘记数据保存。请教老师。谢谢大家！

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-19 20:30

ThisWorkbook.Save'保存



Sub 保存()
    If MsgBox("数据操作完毕，谢谢你的使用!" & vbLf & "是否保存数据？", 4 + 32, "提醒") = vbYes Then
        Application.ThisWorkbook.Save
    End If
End Sub

跳转到最佳答案楼层

mxg825

ThisWorkbook.Save'保存



Sub 保存()
    If MsgBox("数据操作完毕，谢谢你的使用!" & vbLf & "是否保存数据？", 4 + 32, "提醒") = vbYes Then
        Application.ThisWorkbook.Save
    End If
End Sub

cyj153

mxg825 发表于 2011-11-19 20:30
ThisWorkbook.Save'保存

谢谢，能否传个附件。

mxg825

Sub 保存()
    If MsgBox("数据操作完毕，谢谢你的使用!" & vbLf & "是否保存数据？", 4 + 32, "提醒") = vbYes Then
        Application.ThisWorkbook.Save
    End If
End Sub

aob

..............................