Một Excel Macro để Thêm và Đặt tên cho một Worksheet mới - những đầu

Một trong những đơn giản nhất liên quan đến các bạn tự động có thể áp dụng với một macro trong Excel là thêm và đặt tên một bảng tính mới. Đây là cách macro hoạt động và cách sử dụng nó.

Cách macro hoạt động

Khi bạn đọc qua các dòng mã, bạn sẽ thấy rằng macro này tương đối trực quan:

Sub Macro1 () 'Bước 1: Cho Excel biết phải làm gì nếu lỗi Bật Lỗi GoTo MyError 'Bước 2: Thêm một trang tính và đặt tên nó là Sheets. Thêm ActiveSheet. Tên = _ WorksheetFunction. Văn bản (Bây giờ (), "m-d-yyyy h_mm_ss 

sáng / chiều") Thoát khỏi Tiểu 'Bước 3: Nếu ở đây, đã xảy ra lỗi; nói với người sử dụng MyError: MsgBox "Đã có một tấm gọi là điều đó." End Sub

Bạn phải dự đoán rằng nếu bạn cung cấp cho bảng mới một tên đã tồn tại, một lỗi sẽ xảy ra. Vì vậy, trong Bước 1, macro cho Excel biết ngay lập tức bỏ qua dòng MyError (trong Bước 3) nếu có lỗi.

Bước 2 sử dụng phương pháp Thêm để thêm một trang mới. Theo mặc định, tờ được gọi là Sheet xx, nơi xx thể hiện số lượng tờ. Bạn cho bảng một tên mới bằng cách thay đổi thuộc tính Name của đối tượng ActiveSheet. Trong trường hợp này, bạn đang đặt tên cho bảng tính với ngày và giờ hiện tại.

Cũng giống như với bảng tính, mỗi khi bạn sử dụng VBA để thêm một trang tính mới, tờ mới được thêm vào sẽ tự động trở thành bảng hoạt động. Cuối cùng, trong Bước 2, lưu ý rằng macro thoát thủ tục. Nó phải làm điều này để nó không vô tình bước vào Bước 3 (chỉ có tác dụng khi xảy ra lỗi).

Bước 3 thông báo cho người dùng rằng tên trang đã tồn tại. Một lần nữa, bước này chỉ nên kích hoạt khi xảy ra lỗi.

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:

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

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

3. Chọn Chèn → Module.

4. Gõ hoặc dán mã vào mô-đun mới tạo ra.