Cách tạo sổ làm việc và đổi tên bảng
Bạn muốn tạo sổ làm việc chứa mười hai trang tính để bạn có thể thu thập dữ liệu cho mỗi tháng trong năm? Hãy để macro tự động làm việc này cho bạn.
Macro sau tạo một sổ làm việc mới, trống với mười hai trang tính và đặt tên các trang tính riêng lẻ ở dạng viết tắt của tên tháng, tức là "Jan", "Feb", v.v. Đây là macro thích hợp:
Bảng phụ CreateMonth ()
Làm mờ số tab dưới dạng số nguyên
Làm mờ mới dưới dạng sổ làm việc
Làm mờ tên dưới dạng biến thể
Names = array ("Tháng 1", "Tháng 2", "Tháng 3", "Tháng 4", "Tháng 5", "Tháng 6", _
"Tháng 7", "Tháng 8", "Tháng 9", "Tháng 10", "Tháng 11", "Tháng 12")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Đặt mới = Workbooks.Add
Application.SheetsInNewWorkbook = TabNumber
Đối với TabNumber = 1 đến 12
New.Worksheets (TabNumber) .Name = Names (TabNumber - 1)
Số tab tiếp theo
Kết thúc Sub
Sau khi bắt đầu, bạn sẽ nhận được một sổ làm việc với mười hai trang tính. Hình sau cho thấy kết quả trông như thế nào:
Nếu bạn muốn sử dụng các tên khác thay vì tên tháng, hãy điều chỉnh các tên trong phần gán giá trị thành biến "Names".
Mẹo: Nếu bạn muốn biết cách nhập và bắt đầu macro trong Excel, bạn sẽ tìm thấy mô tả ngắn gọn tại đây: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
