Một Excel Macro để Xóa Tất cả trừ Active Worksheet - Thỉnh thoảng

Đôi khi, bạn có thể muốn xóa tất cả trừ một bảng tính đang hoạt động trong một bảng tính Excel. Trong các tình huống này, bạn có thể sử dụng macro sau.

Macro làm việc như thế nào

Macro ở đây trôi qua các bảng tính, kết hợp mỗi tên bảng tính với tên của bảng hoạt động. Mỗi lần macro cuộn, nó sẽ xóa bất kỳ bảng tính chưa từng có. Lưu ý sử dụng thuộc tính DisplayAlerts trong Bước 4. Thao tác này sẽ tắt các cảnh báo của Excel một cách hiệu quả, do đó bạn không phải xác nhận mỗi lần xóa.

Macro đầu tiên khai báo một đối tượng được gọi là ws. Bước này tạo ra một bộ chứa bộ nhớ cho mỗi bảng tính mà nó vòng qua.

Ở bước 3, macro chỉ đơn giản so sánh tên bảng hoạt động với bảng hiện đang được looped.

Ở Bước 4, nếu tên của bảng khác, macro sẽ xóa bảng. Như đã đề cập, bạn sử dụng DisplayAlerts để ngăn chặn bất kỳ kiểm tra xác nhận từ Excel. Nếu bạn muốn được cảnh báo trước khi xóa các trang tính, bạn có thể bỏ qua Ứng dụng. DisplayAlerts = Sai. Việc bỏ qua tuyên bố DisplayAlerts sẽ đảm bảo rằng bạn nhận được thông báo hiển thị, cho phép bạn quay trở lại trong quyết định xóa bảng tính.

Ở Bước 5, macro quay vòng trở lại để lấy trang tiếp theo. Sau khi tất cả các tấm được đánh giá, macro kết thúc.

Bỏ qua lệnh Display-Alerts để xem thông điệp cảnh báo.

Cách sử dụng macro

Để thực hiện macro này, bạn có thể sao chép và dán nó vào một module tiêu chuẩn:

Kích hoạt Visual Basic Editor bằng cách nhấn Alt + F11.

Nhấp chuột phải vào tên dự án / workbook trong cửa sổ dự án.

1. Chọn Chèn → Module.

2. Nhập hoặc dán mã vào mô-đun mới tạo.

3. Khi bạn sử dụng ThisWorkbook thay vì ActiveWorkbook trong macro, bạn không thể chạy macro từ bảng tính macro cá nhân. Tại sao? Bởi vì ThisWorkbook sẽ tham khảo bảng tính macro cá nhân, chứ không phải bảng tính mà macro nên áp dụng.