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

Làm cách nào để xóa nội dung ô được chỉ định khi mở và thoát trong sổ làm việc Excel?

Bài viết này nói về việc xóa nội dung ô đã chỉ định khi mở hoặc đóng một sổ làm việc Excel.

Xóa nội dung ô được chỉ định trên sổ làm việc mở và thoát


Xóa nội dung ô được chỉ định trên sổ làm việc mở và thoát

Vui lòng thực hiện như sau để xóa nội dung ô được chỉ định trên sổ làm việc mở và thoát.

Trước tiên, bạn cần lưu sổ làm việc mà bạn cần xóa nội dung ô đã chỉ định khi mở hoặc thoát dưới dạng Sổ làm việc hỗ trợ Excel Macro.

1. Vui lòng nhấp vào Tập tin > Save As > Xem. Xem ảnh chụp màn hình:

2. bên trong Save As hộp thoại, vui lòng chọn một thư mục để lưu sổ làm việc, nhập tên mới vào Tên tập tin hộp như bạn cần, chọn Sổ làm việc hỗ trợ macro Excel từ Sava là loại danh sách thả xuống, sau đó bấm vào Lưu .

3. Trong cửa sổ bật lên Microsoft Excel hộp thoại, vui lòng nhấp vào OK như ảnh chụp màn hình bên dưới.

4. Mở Sổ làm việc Bật Macro mà bạn đã lưu ngay bây giờ, bấm Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

5. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp Sổ làm việc này trong ngăn bên trái, rồi sao chép mã VBA bên dưới vào cửa sổ Mã.

Mã VBA 1: Xóa nội dung ô được chỉ định trên sổ làm việc đang mở

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

Mã VBA 2: Xóa nội dung ô được chỉ định khi thoát sổ làm việc

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

Chú thích: Trong các mã trên, hãy kiểm tra và A1: A11 là tên trang tính và phạm vi ô mà bạn sẽ xóa nội dung. Vui lòng thay đổi chúng khi bạn cần.

6. Nhấn nút Khác + Q chìa khóa để thoát khỏi Microsoft Visual Basic cho các ứng dụng cửa sổ.

Từ bây giờ, khi mở hoặc đóng sổ làm việc, nội dung ô được chỉ định trong một trang tính nhất định sẽ tự động bị xóa.


Các bài liên quan:


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (9)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thưa ông / bà, trang tính của tôi được bảo vệ và chỉ ô được chỉ định (để xóa dữ liệu) không được bảo vệ nhưng khi tôi nhập giá trị vào ô được chỉ định & sau đó mở lại tệp excel thì giá trị sẽ bị xóa bởi mã VBA nhưng ô được chỉ định là được bảo vệ, tôi phải bỏ bảo vệ ô bằng cách bỏ bảo vệ trang tính, hãy chỉnh sửa lại phạm vi có thể chỉnh sửa và một lần nữa, vì vậy hãy sửa.
Cảm ơn trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Sanjay Sharma,
Xin lỗi vì sự bất tiện. Vui lòng áp dụng các mã VBA dưới đây và nhớ thay thế tên trang tính và phạm vi theo nhu cầu của bạn. Cảm ơn bình luận của bạn.

Mã VBA 1:
Private Sub Workbook_Open ()
Application.EnableEvents = Sai
Trang tính ("Trang 1"). Phạm vi ("A1: A11"). Giá trị = ""
Ứng dụng.EnableEvents = True
End Sub

Mã VBA 2:
Private Sub Workbook_BeforeClose (Cancel As Boolean)
Trang tính ("Trang 1"). Phạm vi ("A1: A11"). Giá trị = ""
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, đối với phạm vi, tôi sẽ nhập mã như thế nào nếu tôi muốn chọn nhiều phạm vi hoặc ô?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ai đó có thể giúp tôi cách xóa các ô của trang tính (chỉ trong một hàng chứ không phải toàn bộ Trang tính). Đoạn mã dưới đây xóa nội dung trong tất cả các hàng của trang tính. Nhưng tôi muốn nội dung chỉ được xóa trong hàng9

Private Sub Workbook_Open ()

'Cập nhật Extendoffice 20190712

Application.EnableEvents = Sai

Trang tính ("kiểm tra"). Phạm vi ("A1: A11"). Giá trị = ""

Ứng dụng.EnableEvents = True

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ai đó có thể giúp tôi cách xóa các ô của trang tính (chỉ trong một hàng chứ không phải toàn bộ Trang tính). Đoạn mã dưới đây xóa nội dung trong tất cả các hàng của trang tính. Nhưng tôi muốn nội dung chỉ được xóa trong hàng9



Private Sub Workbook_Open ()

'Cập nhật Extendoffice 20190712

Application.EnableEvents = Sai

Trang tính ("kiểm tra"). Phạm vi ("A1: A11"). Giá trị = ""

Ứng dụng.EnableEvents = True

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
VBA trên chỉ xóa giá trị ô của phạm vi A1: A11. Nếu bạn chỉ muốn xóa các giá trị trong hàng 9, bạn có thể thay thế A1: A11 bằng 9: 9. Xem đoạn mã dưới đây.

Private Sub Workbook_Open ()

'Cập nhật Extendoffice 20200522

Application.EnableEvents = Sai

Trang tính ("kiểm tra"). Phạm vi ("9: 9"). Giá trị = ""

Ứng dụng.EnableEvents = True

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn bè thân mến Tôi đã thử mã đề xuất mà không có hiệu lực khi mở>

Private Sub Workbook_Open ()


Application.EnableEvents = Sai

Trang tính ("Clienti"). Phạm vi ("A9: K900"). Giá trị = ""

Ứng dụng.EnableEvents = True

End Sub


Macro hoạt động từ bên trong sổ làm việc nhưng không hoạt động khi sổ làm việc mở ra.

Mọi sự trợ giúp sẽ rất được trân trọng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào TUDOSE GELU,
Mã hoạt động tốt trong trường hợp của tôi.
Đừng quên đặt mã vào ThisWorkbook (Mã) cửa sổ và lưu sổ làm việc dưới dạng Excel đã bật Macro Sách bài tập.
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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn Pha Lê! Nó hoạt động.

G
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL