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

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

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

ActiveSheet.Name = MonthName(J)

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

ActiveSheet.Name = MonthName(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> MonthName(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = MonthName(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ẽ kết thúc ở cuối sổ làm việc, sau 12 tháng.

Lưu ý rằng macro sử dụng hàm MonthName, được tích hợp trong VBA. Nó trả về tên đầy đủ của tháng được tham chiếu bởi số (từ 1 đến 12) được chuyển cho nó. (Nếu bạn cố gắng sử dụng nó với một số ngoài phạm vi đó, nó sẽ trả về lỗi.)

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng 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à của bạn nguồn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (11148) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: