Khi bạn bắt đầu một sổ làm việc mới, việc đặt tên cho mỗi trang tính sau một tháng khác nhau trong năm là rất phổ biến. Nếu bạn làm điều này khá nhiều, bạn biết có thể hơi mệt mỏi khi đổi tên từng trang tính theo chính xác những gì bạn cần.

Macro sau đây đã được phát triển để trợ giúp trong những trường hợp này. Nó kiểm tra tên của các trang tính trong sổ làm việc của bạn, đổi tên chúng thành các tháng trong năm nếu chúng bắt đầu bằng các chữ cái “Trang tính”. Nếu không có đủ trang tính trong sổ làm việc, nó sẽ thêm các trang tính, nếu cần, cho mỗi tháng trong năm.

Sub DoMonths()

Dim J As Integer     Dim K As Integer     Dim sMo(12) As String

sMo(1) = "January"

sMo(2) = "February"

sMo(3) = "March"

sMo(4) = "April"

sMo(5) = "May"

sMo(6) = "June"

sMo(7) = "July"

sMo(8) = "August"

sMo(9) = "September"

sMo(10) = "October"

sMo(11) = "November"

sMo(12) = "December"



For J = 1 To 12         If J <= Sheets.Count Then             If Left(Sheets(J).Name, 5) = "Sheet" Then                 Sheets(J).Name = sMo(J)

Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sMo(J)

End If         Else             Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sMo(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> sMo(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = sMo(J) Then                     Sheets(K).Move Before:=Sheets(J)

End If             Next K         End If     Next J

Sheets(1).Activate End Sub

Bước cuối cùng trong macro là nó đặt các trang tính theo thứ tự thích hợp, cho các tháng từ 1 đến 12. Kết quả là nếu bạn còn lại bất kỳ trang tính nào khác trong sổ làm việc (nói cách khác, bạn có một số trang tính không bắt đầu bằng các chữ cái “Trang tính”, sau đó các trang tính đó sẽ xuất hiện ở cuối sổ làm việc, sau 12 tháng.

_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 giúp bạn đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2017) áp dụng cho Microsoft Excel 97, 2000, 2002, và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: