Làm thế nào để tăng một số tự động khi sổ làm việc được mở?

Tất nhiên, nếu bạn muốn tăng 1 ô số tự động khi bạn mở sổ làm việc mỗi lần, bạn có thể thêm 1 theo cách thủ công. Tuy nhiên, có phương pháp nào tốt hơn để thêm 1 cho số tự động khi mở tài liệu Excel không?

Tự động tăng số khi sổ làm việc được mở bằng mã VBA

Tự động tăng số khi sổ làm việc được mở bằng mã VBA

Mã VBA đơn giản sau có thể giúp bạn tự động thêm 1 cho ô số khi sổ làm việc được mở mỗi lần, vui lòng thực hiện như sau:

1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong Dự án-VBAProject ngăn, bấm đúp Sổ làm việc này để mở Mô-đun, sau đó, sao chép và dán mã bên dưới vào mô-đun, xem ảnh chụp màn hình:

Mã VBA: Tự động tăng số khi sổ làm việc được mở:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub

Chú thích: Trong đoạn mã trên, Sheet1 và A2 là trang tính và ô chứa số bạn muốn tự động tăng. Vui lòng thay đổi chúng theo nhu cầu của bạn.

3. Sau đó, bạn nên lưu tệp Excel dưới dạng Sổ làm việc hỗ trợ macro Excel định dạng, xem ảnh chụp màn hình:

Kể từ bây giờ, khi bạn mở sổ làm việc cụ thể này, số trong ô A2 trong Sheet1 sẽ được thêm 1 tự động.

Chú thích: Mã này chỉ được áp dụng cho ô số.