Khi bạn bắt đầu một sổ làm việc mới, một kịch bản phổ biến yêu cầu tạo các bảng tính đáng giá của năm, một bảng cho mỗi tuần trong năm. Nói cách khác, một sổ làm việc có thể chứa 52 hoặc 53 trang tính, tùy thuộc vào số tuần có trong một năm cụ thể.

Nếu bạn có nhu cầu tạo một sổ làm việc như vậy, bạn biết rằng việc tạo và đặt tên riêng cho tất cả các trang tính có thể là một rắc rối thực sự. Đây là nơi mà một macro sẽ có ích. Macro sau sẽ thêm số lượng trang tính thích hợp và sau đó đổi tên tất cả các trang tính theo số tuần (01 đến 52).

Sub YearWorkbook1()

Dim iWeek As Integer     Dim sht As Variant     Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

iWeek = 1     For Each sht In Worksheets         sht.Name = "Week " & Format(iWeek, "00")

iWeek = iWeek + 1     Next sht     Application.ScreenUpdating = True End Sub

Thay vào đó, nếu bạn cần một cách để tạo trang tính hiển thị ngày kết thúc của mỗi tuần trong một năm, thì bạn cần có một macro khác.

Sub YearWorkbook2()

Dim iWeek As Integer     Dim sht As Variant     Dim sTemp As String     Dim dSDate As Date

sTemp = InputBox("Date for the first worksheet:", "End of Week?")

dSDate = CDate(sTemp)

Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

For Each sht In Worksheets         sht.Name = Format(dSDate, "dd-mmm-yyyy")

dSDate = dSDate + 7     Next sht     Application.ScreenUpdating = True End Sub

Phiên bản này của macro hỏi bạn ngày bắt đầu. Sau đó, nó sử dụng ngày đó để bắt đầu đặt tên cho các trang tính khác nhau trong sổ làm việc. Nếu bạn nhập một giá trị không thể dịch sang ngày tháng, thì macro sẽ tạo ra lỗi.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (12403) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.