Việc theo dõi thông tin hàng tháng, thuộc loại này hay cách khác, trong sổ làm việc không phải là điều bất thường. Bạn có thể đang theo dõi chi phí, bán hàng, di chuyển hàng tồn kho, giá cổ phiếu hoặc bất kỳ thứ gì trong số hàng nghìn thứ khác. Khi bắt đầu một tháng mới, bạn có thể tạo một bản sao của sổ làm việc của tháng trước và sau đó tìm cách thực hiện các thay đổi đối với tên tháng xuất hiện ở nhiều vị trí khác nhau trong bản sao mới được tạo.

Nếu tên tháng bạn muốn thay đổi được lưu trữ dưới dạng văn bản trong các trang tính khác nhau, bạn có thể sử dụng tính năng tìm và thay thế của Excel để thực hiện các thay đổi. Chỉ cần làm theo các bước sau:

  1. Bấm vào tab của trang tính đầu tiên mà bạn muốn thực hiện thay đổi.

  2. Giữ phím Shift khi bạn nhấp vào tab của trang tính cuối cùng mà bạn muốn thực hiện thay đổi. Tất cả các trang tính bạn muốn thay đổi bây giờ sẽ được chọn.

  3. Nhấn Ctrl + H để hiển thị tab Thay thế của hộp thoại Tìm và Thay thế.

  4. Trong hộp Tìm gì, nhập tên tháng cũ.

  5. Trong hộp Thay thế Bằng, hãy nhập tên của tháng mới.

  6. Nhấp vào Thay thế Tất cả.

  7. Đóng hộp thoại Tìm và Thay thế.

Nếu các bước này không thay đổi tên tháng cụ thể như nó xuất hiện trong sổ làm việc của bạn, có thể là do tên tháng không thực sự là văn bản mà là một giá trị ngày được định dạng để chỉ hiển thị tháng. Trong trường hợp đó, bạn không thể sử dụng Tìm và Thay thế; thay vào đó, bạn chỉ cần thay đổi giá trị ngày được lưu trữ trong ô.

Nếu bạn muốn một cách nhanh chóng để thay đổi tên tháng trong các tab trang tính, thì sẽ khó hơn một chút. Tính năng tìm và thay thế của Excel sẽ không tìm hoặc thay thế văn bản trong tên tab. Thông thường chúng cần được thực hiện bằng tay, nhưng nếu bạn có nhiều trong số chúng, bạn có thể muốn tạo macro để thực hiện việc thay đổi cho bạn. Macro sau đây nhắc bạn về văn bản bạn đang tìm kiếm và văn bản bạn muốn thay thế nó. Sau đó, nó bước qua từng tab trang tính và thực hiện các thay đổi cho bạn.

Sub TabReplace()

Dim I As Integer, J As Integer     Dim sFind As String     Dim sReplace As String     Dim sTemp As String

sFind = InputBox("Text to find?")

sReplace = InputBox("Replace it with?")



If (sFind & sReplace) = "" Then Exit Sub

For I = 1 To Sheets.Count         sTemp = Sheets(I).Name         J = InStr(sTemp, sFind)

While J > 0             sTemp = Left(sTemp, J - 1) & sReplace _               & Mid(sTemp, (J + Len(sFind)))

J = InStr(sTemp, sFind)

Wend

If sTemp <> Sheets(I).Name Then             Sheets(I).Name = sTemp         End If     Next I End Sub

Mặc dù các bước (và macro) được trình bày ở đây có thể làm cho công việc cập nhật sổ làm việc của bạn dễ dàng hơn, vẫn có thể dễ dàng hơn khi chỉ cần suy nghĩ lại cách bạn thực hiện sổ làm việc của mình. Có thể dễ dàng hơn khi thiết lập một ô chứa tên của tháng hiện tại và sau đó tham chiếu tên đó trong các ô thích hợp trong toàn bộ sổ làm việc. Sau đó, tất cả những gì bạn cần làm là thay đổi tên tháng trong một ô và nó sẽ được tự động thay đổi ở nơi khác. Trong ExcelTips khác, bạn thậm chí đã học cách có thể thay đổi động tên tab dựa trên nội dung của một ô cụ thể.

_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 (2748) á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: