Note: The other languages of the website are Google-translated. Back to English

如何清除Excel工作簿中打開和退出時指定的單元格內容?

本文討論的是在打開或關閉Excel工作簿時清除指定的單元格內容。

在打開和退出工作簿上清除指定的單元格內容


在打開和退出工作簿上清除指定的單元格內容

請執行以下操作以清除打開和退出工作簿上的指定單元格內容。

首先,您需要保存需要在打開或退出時清除指定單元格內容的工作簿作為啟用Excel Macro的工作簿。

1.請點擊 文件 > 另存為 > 瀏覽。 看截圖:

2。 在裡面 另存為 對話框中,請選擇一個文件夾來保存工作簿,然後在 文件名 所需的框,選擇 Excel啟用宏的工作簿 來自 薩瓦類型 下拉列表,然後單擊 節省 按鈕。

3.在彈出 Microsoft Excel中 對話框,請點擊 OK 按鈕,如下圖所示。

4.打開您剛才保存的啟用宏的工作簿,然後按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

5。 在裡面 Microsoft Visual Basic for Applications 窗口,雙擊 的ThisWorkbook 在左窗格中,然後將VBA代碼下面的內容複製到“代碼”窗口中。

VBA代碼1:在打開的工作簿上清除指定的單元格內容

Private Sub Workbook_Open()
'Updated by Extendoffice 20190712
    Application.EnableEvents = False
        Worksheets("test").Range("A1:A11").Value = ""
    Application.EnableEvents = True
End Sub

VBA代碼2:在工作簿退出時清除指定的單元格內容

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20190712
    Worksheets("test").Range("A1:A11").Value = ""
End Sub

備註:在上面的代碼中,進行測試,並且A1:A11是您要清除其內容的工作表名稱和單元格範圍。 請根據需要更改它們。

6。 按 其他 + Q 退出鍵 Microsoft Visual Basic for Applications 窗口。

從現在開始,當打開或關閉工作簿時,將自動清除某些工作表中指定的單元格內容。


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (9)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
尊敬的先生/女士,我的工作表受到保護,只有指定的單元格(用於數據清除)不受保護,但是當我在指定的值中輸入值然後重新打開 excel 文件時,值會被 VBA 代碼清除,但指定的單元格是受保護,我必須通過取消保護工作表來取消保護單元格,然後再次編輯可編輯範圍,所以請修復。
預先感謝
網站主持人對此評論進行了最小化
嗨桑傑夏爾馬,
很抱歉給您帶來不便。 請應用以下 VBA 代碼並記住根據您的需要替換工作表名稱和範圍。 感謝您的評論。

VBA代碼1:
私人子工作簿_打開()
Application.EnableEvents = False
Worksheets("Sheet1").Range("A1:A11").Value = ""
Application.EnableEvents = True
END SUB

VBA代碼2:
Private Sub Workbook_BeforeClose(取消為布爾值)
Worksheets("Sheet1").Range("A1:A11").Value = ""
END SUB
網站主持人對此評論進行了最小化
您好,對於範圍,如果我想選擇多個範圍或單元格,我將如何輸入代碼?
網站主持人對此評論進行了最小化
有人可以幫我如何清除工作表的單元格(僅在一行中,而不是整個工作表)。 下面的代碼刪除工作表所有行中的內容。 但我希望僅在 row9 中清除內容

私人子工作簿_打開()

'更新者 Extendoffice 20190712

Application.EnableEvents = False

Worksheets("test").Range("A1:A11").Value = ""

Application.EnableEvents = True

END SUB
網站主持人對此評論進行了最小化
有人可以幫我如何清除工作表的單元格(僅在一行中,而不是整個工作表)。 下面的代碼刪除工作表所有行中的內容。 但我希望僅在 row9 中清除內容



私人子工作簿_打開()

'更新者 Extendoffice 20190712

Application.EnableEvents = False

Worksheets("test").Range("A1:A11").Value = ""

Application.EnableEvents = True

END SUB
網站主持人對此評論進行了最小化
嗨,
上面的 VBA 只清除範圍 A1:A11 的單元格值。 如果只想清除第 9 行中的值,可以將 A1:A11 替換為 9:9。 請參閱下面的代碼。

私人子工作簿_打開()

'更新者 Extendoffice 20200522

Application.EnableEvents = False

Worksheets("test").Range("9:9").Value = ""

Application.EnableEvents = True

END SUB
網站主持人對此評論進行了最小化
親愛的朋友我嘗試了建議的代碼對打開沒有影響>

私人子工作簿_打開()


Application.EnableEvents = False

Worksheets("Clienti").Range("A9:K900").Value = ""

Application.EnableEvents = True

END SUB


宏確實在工作簿內工作,但在工作簿打開時不起作用。

任何幫助,將不勝感激!
網站主持人對此評論進行了最小化
嗨 TUDOSE 格魯,
該代碼在我的情況下運行良好。
別忘了把代碼放在 本工作簿(代碼) 窗口,並將工作簿另存為 Excel 啟用宏 工作簿。
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/2022-oct/oct-2.png
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/2022-oct/oct-1.png
網站主持人對此評論進行了最小化
謝謝水晶! 有用。

G
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護