Tin Học

 VBA Excel Cấp Tốc Bài 4

Xem bài trước

>> VBA Excel Express Bài 1 – Lọc nhiều dữ liệu có điều kiện với bộ lọc nâng cao

Bạn Đang Xem:  VBA Excel Cấp Tốc Bài 4

>> VBA Excel Express Bài 2 – In Bảng Chín Chương

>> VBA Excel Express Bài 3 – In hàng loạt nhanh

Video hướng dẫn

Mở Visual Basic

Mở Ngôn ngữ lập trình để viết mã các câu lệnh thực hiện việc xóa Tấm không Tích cực: Nhà phát triển -> Visual Basic -> nhấp chuột phải vào Trang tính 1 -> Chèn -> Mô-đun.

Mở Visual Basic

Mã chương trình Xóa trang tính không hoạt động

Xem Thêm : Top lợi ích của Google Analytic mà SEOer nhất định phải biết

Cấu trúc của một chương trình vẫn là Phụ khi đó tên chương trình nhập vào cấu trúc chương trình sẽ được tạo tự động.

Chương trình xóa trang tính

  • Khai báo một biến có tên là biến Trang tính với dòng lệnh:
  • Sử dụng vòng lặp để quét tất cả Tấm xem Trang nào không Trang tính hoạt động thì nó sẽ bị xóa, lệnh này có cú pháp là: Đối với mỗi ws Trong ThisWorkbook.Sheets -> enter và Next để kết thúc vòng lặp.
  • Còn nữa Nếu ws.Name <> ThisWorkbook.Activesheet.Name Thì có nghĩa là nếu quét đến Tấm cái nào khác Tấm Tôi đang chọn hành động, hành động đó sẽ bị xóa -> nhậpEndIf để kết thúc Điều kiện If.
  • Chức năng bên trong Nếu viết câu lệnh nếu nó khác rồi xóa: Ws.Delete

Các vòng lặp và điều kiện

Khi bạn nhấp vào Chạy Để chạy chương trình và nó sẽ hiển thị thông báo nếu bạn thực sự muốn xóa nó, hãy nhấp vào Xóa bỏ để xóa và thông báo vẫn hiện lên mỗi khi bạn xóa nó Trang tính.

Xóa từng trang tính

Số lượng nhiều Tấm vì vậy không thể tích lũy Xóa bỏ mãi mãi, tôi sử dụng dòng lệnh: Application.DisplayAlerts = False và dòng lệnh: Application.DisplayAlerts = True Hiển thị thông báo khi xóa lại Sheet để tránh nguy hiểm cho người dùng sau này.

bật thông báo

Nút tạo nút

Xem Thêm : 2 Cách đánh số trang trong PowerPoint chính xác nhất

Phần này tùy thuộc vào nhu cầu của bạn hoặc chương trình của bạn nên tạo Cái nút hay không. Tôi sẽ hướng dẫn bạn tạo: Nhà phát triển -> Chèn -> chọn ảnh, giữ chuột và kéo -> tích vào Macro muốn gán cho Nút -> ok.

nút tạo

Mã VBA của chương trình xóa Trang tính không Tích cực:

Sub Xoa_sheet ()
Dim ws As Worksheet
Application.DisplayAlerts = False
Đối với mỗi ws Trong ThisWorkbook.Sheets
Nếu ws.Name <> ThisWorkbook.ActiveSheet.Name Thì
ws.Delete
EndIf
Kế tiếp
Application.DisplayAlerts = True
Kết thúc Sub

Xem bài tiếp theo

>> VBA Excel Express Bài 5 – Sao chép tệp từ thư mục này sang thư mục khác

ĐIỂM BÀI VIẾT NÀY

Nguồn: https://lienket365.com
Danh mục: Tin Học

Related Articles

Trả lời

Email của bạn sẽ không được hiển thị công khai.

Back to top button