如何在关闭Excel工作表的同时清除指定单元格内的内容

发布网友 发布时间：2022-04-24 12:45

我来回答

共3个回答

热心网友 时间：2023-10-13 05:57

在VBA代码编辑器中（快捷键Alt+F11），找到Excel对象中的ThisWorkBook对象，双击它，选择一个BeforeClose事件。 以自动清除第一张Sheet的单元格A1为例，代码为： Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Range("A1").Clear
ThisWorkbook.Save
End Sub追问你好，具体的书写格式帮忙提供一下。用这个提示编译错误，运行不了，谢谢！

追答Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets(1).Range("A1").Clear
    ThisWorkbook.Save
End Sub

注意，选择BeforeClose事件，代码的首尾行，是默认就生成了，你只需填写中间两行代码

热心网友 时间：2023-10-13 05:57

指定清除d2单元格的内容的宏
Sub Auto_close()
Range("D2").Select
Selection.ClearContents
End Sub

热心网友 时间：2023-10-13 05:58

delete 键