Excel VBA là một công cụ mạnh mẽ và tiện dụng để thực hiện các tác vụ khá nhanh với số lượng lớn. Bạn có thể áp dụng một số điều kiện và rút ra các kết quả khác nhau trên cơ sở các điều kiện riêng lẻ thông qua VBA. Bây giờ, đôi khi, bạn có thể muốn kiểm tra xem một trang tính cụ thể có tồn tại trong sổ làm việc của mình hay không. Và, nếu không, bạn có thể cần tạo trang tính đó. Trong bài viết này, tôi sẽ chỉ cho bạn tất cả các bước để thêm một trang tính nếu nó không tồn tại, sử dụng Excel VBA.

Excel VBA: Thêm trang tính nếu nó không tồn tại (Xem nhanh)

9963

Chèn vào một mô-đun mới để áp dụng mã ở trên.

Tải xuống Sách bài tập thực hành

Bạn có thể tải xuống miễn phí sách bài tập thực hành của chúng tôi từ đây!

Các bước áp dụng mã VBA để thêm trang tính vào Excel nếu nó không tồn tại

Giả sử, bạn có một sổ làm việc chứa 4 trang tính có tên là Tháng một, Tháng hai, Tháng ba và Tháng tư. Mỗi tờ chứa báo cáo bán hàng của tháng tiếp theo. Bây giờ, bạn cần tìm một số trang tính trong sổ làm việc và thêm trang tính nếu nó không tồn tại. Bạn có thể làm theo hướng dẫn từng bước bên dưới để thực hiện việc này.

📌 Bước 1: Chèn Mô-đun mới

Trước tiên, bạn cần chèn một mô-đun để viết mã VBA.

• Để thực hiện việc này, ngay từ đầu, hãy chuyển đến tab Nhà phát triển >> công cụ Visual Basic.

• Kết quả là Microsoft VisualCửa sổ Cơ bản cho Ứng dụng sẽ xuất hiện.
• Sau đó, hãy chuyển đến tab Chèn >> Công cụ Mô-đun.

Như vậy, một mô-đun mới có tên Mô-đun1 đã được tạo.

Đọc thêm: Cách thêm trang tính bằng Đặt tên trong Excel VBA (6 cách dễ dàng)

Cách đọc tương tự

• Tạo sổ làm việc mới và lưu bằng VBA trong Excel
• Excel VBA: Tạo một Workbook mới và đặt tên cho nó (6 ví dụ)
• Cách tạo trang tính mới từ mẫu bằng macro trong Excel

📌 Bước 2: Viết và lưu mã VBA cần thiết

Bây giờ, bạn cần viết mã bên trong mô-đun và lưu mã đó.

• Trong để thực hiện việc này, hãy nhấp vào tùy chọn Module1 và viết đoạn mã sau vào cửa sổ mã.

88013921

• Là một kết quả, cửa sổ mã sẽ như sau.

🔎 Giải thích mã:

♣ Phân đoạn 1:

9082

Trong phần này, chúng ta đã khai báo tên macro và tên biến es.

♣ Phân đoạn 2:

6158

Trong phần này, chúng tôi đã tạo một hộp nhập liệu. Qua ô nhập liệu này ta có thể nhập tên file cần tìm.

♣ Đoạn 3:

7766

Trong phần này, chúng tôi kiểm tra xem trang tính cần thiết có tồn tại trong sổ làm việc hay không. Nếu không, nó sẽ tạo trang tính bắt buộc và hiển thị cho chúng tôi thông báo về thay đổi này.

♣ Phân đoạn 4:

7615

Trong phần này, chúng ta đã làm việc với kết quả nếu trang tính được yêu cầu đã tồn tại trong sổ làm việc. Trong trường hợp này, một hộp thông báo khác sẽ xuất hiện cho bạn biết rằng trang tính này tồn tại. Hơn nữa, trong phần này, chúng tôi kết thúc mã đúng cách.

• Sau đó, nhấn Ctrl + S.

• Sau đó, cửa sổ Microsoft Excel sẽ xuất hiện. Nhấp vào nút Không .

• Kết quả là cửa sổ Lưu dưới dạng sẽ xuất hiện.
• Sau đó, chọn tùy chọn Lưu dưới dạng: dưới dạng định dạng .xlsm . Sau đó, nhấp vào nút Lưu .

Như vậy, bạn đã viết và lưu mã cần thiết của mình.

Lưu ý:

Bạn phải lưu sổ làm việc Excel ở định dạng .xlsm . Nếu không, macro sẽ không được bật và mã sẽ không hoạt động.

Đọc thêm: VBA Excel để thêm trang tính có tên biến (5 ví dụ lý tưởng)

📌 Bước 3: Chạy mã

Bây giờ, bạn cần chạy mã và kiểm tra kết quả.

• Để thực hiện việc này, trước hết, hãy nhấp vào trên biểu tượng Run trong cửa sổ Microsoft Visual Basic for Applications .

• Kết quả là, cửa sổ Macro sẽ xuất hiện.
• Sau đó, chọn macro AddSheetIfNotExist và nhấp vào nút Chạy .

• Tại thời điểm này, hộp thông báo đã tạo của chúng tôicó tên Thêm trang tính nếu không tồn tại sẽ xuất hiện. Ở đây, tùy chọn tự động sẽ là Sheet5 .

• Bây giờ, để kiểm tra, hãy viết “Tháng Tư” trong hộp văn bản và nhấp vào nút Ok .

• Sau đó, bạn sẽ thấy một thông báo khác hộp sẽ xuất hiện cho bạn biết rằng trang tính đã tồn tại.
• Nhấp vào nút Ok .

• Sau đó, chạy lại mã và viết “May” vào hộp văn bản của hộp thông báo đã tạo. Sau đó, nhấp vào nút OK .

• Kết quả là bạn sẽ thấy một hộp thông báo khác sẽ xuất hiện thông báo cho bạn rằng trang tính “Tháng 5” không tồn tại và do đó, nó đã tạo trang tính này.
• Sau đó, hãy nhấp vào nút OK .

Cuối cùng, bạn có thể thấy mình đã thêm một trang tính chưa tồn tại trước đó. Và, sổ làm việc bây giờ sẽ trông như thế này.

Đọc thêm: VBA Excel: Thêm trang tính sau cuối cùng (3 ví dụ lý tưởng)

Kết luận

Như vậy, trong bài viết này, tôi đã hướng dẫn các bạn tất cả các bước để thêm sheet nếu chưa tồn tại bằng VBA trong Excel. Xem kỹ toàn bộ bài viết để hiểu rõ hơn và đạt được kết quả mong muốn. Tôi hy vọng bạn tìm thấy bài viết này hữu ích và nhiều thông tin. Nếu bạn có bất kỳ thắc mắc hoặc đề xuất nào khác, vui lòng liên hệ với tôi.

Và, hãy truy cập ExcelWIKI để biết nhiều thông tin khácbài viết như thế này. Xin cảm ơn!