Làm cách nào để đổi tên trang tính dựa trên giá trị ô trong Excel?
Đổi tên trang tính thường được áp dụng trong công việc Excel của chúng tôi, nhưng bạn đã bao giờ thử đổi tên trang tính dựa trên giá trị ô chưa? Tất nhiên, bạn có thể đổi tên trang tính theo cách thủ công, nhưng ở đây hướng dẫn này giới thiệu một số thủ thuật có thể nhanh chóng đổi tên nhiều trang tính dựa trên giá trị ô có thể tiết kiệm thời gian làm việc của bạn.
Đổi tên trang tính dựa trên một ô cụ thể với VBA
Đổi tên trang tính dựa trên một ô cụ thể với Đổi tên nhiều trang tính
Đổi tên trang tính dựa trên một loạt nội dung ô với Đổi tên nhiều trang tính
Đổi tên trang tính dựa trên một ô cụ thể với VBA
Với VBA bên dưới, bạn có thể đổi tên trang tính tương đối dựa trên một ô cụ thể.
1. Chọn ô bạn muốn đổi tên trang tính, trong trường hợp này hãy chọn Ô A1. Xem ảnh chụp màn hình:
2. nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
3. nhấp chuột Chèn > Mô-đun, sau đó dán mã VBA bên dưới vào mã mới Mô-đun cửa sổ.
VBA: Đổi tên trang tính dựa trên giá trị ô cụ thể.
Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range(xRngAddress).Value
If xName <> "" Then
xInt = 0
Set xSSh = Nothing
Set xSSh = Worksheets(xName)
While Not (xSSh Is Nothing)
Set xSSh = Nothing
Set xSSh = Worksheets(xName & "(" & xInt & ")")
xInt = xInt + 1
Wend
If xInt = 0 Then
xWs.Name = xName
Else
If xWs.Name <> xName Then
xWs.Name = xName & "(" & xInt & ")"
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub
4. nhấn F5 phím để chạy mã VBA. Sau đó, tất cả các trang tính đã được đổi tên theo từng giá trị ô A1 tương đối.
Đổi tên trang tính dựa trên một ô cụ thể với Đổi tên nhiều trang tính
Nếu bạn có Kutools cho Excel, bạn không cần lưu mã VBA, bạn có thể sử dụng Đổi tên nhiều trang tính tính năng nhanh chóng đổi tên tất cả trang tính dựa trên các ô tương đối của chúng.
Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. |
Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:
1. Cho phép sổ làm việc bạn muốn đổi tên tên các trang tính của nó.
2. nhấp chuột Kutools Plus > Bảng > Đổi tên trang tính. Xem ảnh chụp màn hình:
3. Sau đó, trong hộp thoại hiện ra, hãy kiểm tra các trang tính bạn muốn đổi tên dưới Các bảng tính và chọn một trong các Đổi tên tùy chọn bạn cần, ở đây tôi sẽ thay thế tên trang tính, sau đó kiểm tra Đổi tên trang tính với ô cụ thểvà chọn ô bạn cần đổi tên. Xem ảnh chụp màn hình:
4. nhấp chuột Ok. Bây giờ các trang tính được đổi tên với nội dung ô cụ thể.
Nhưng đôi khi, những gì bạn cần là đổi tên nhiều trang tính dựa trên một loạt các giá trị ô như hình minh họa bên dưới, trong trường hợp này, bạn có thể chọn phương pháp dưới đây.
Đổi tên trang tính dựa trên một loạt nội dung ô với Đổi tên nhiều trang tính
Với Đổi tên nhiều trang tính of Kutools cho Excel, bạn cũng có thể đổi tên trang tính dựa trên phạm vi đã chọn.
Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:
1. nhấp chuột Kutools Plus > Bảng > Đổi tên trang tính. Xem ảnh chụp màn hình:
2. bên trong Đổi tên nhiều trang tính , bạn cần chỉ định các cài đặt như sau:
(1) Chọn trang tính bạn cần đổi tên Danh sách trang tính;
(2) Kiểm tra Từ phạm vi cụ thể và chọn các giá trị ô bạn cần đổi tên dựa trên;
(3) Chỉ định Đổi tên các tùy chọn, Bạn có thể kiểm tra Chèn trước tên trang tính gốc, Chèn sau tên trang tính ban đầu, hoặc là Thay thế tên trang tính ban đầuvà bạn có thể xem trước kết quả tương ứng trong hộp thoại.
3. nhấp chuột Ok, và sau đó bạn có thể thấy tất cả các trang tính mà bạn chọn đã được đổi tên dựa trên các giá trị ô được chỉ định.
Thay thế tên trang tính ban đầu
Chèn trước tên trang tính gốc
Chèn sau tên trang tính ban đầu
Với tiện ích Đổi tên trang tính, bạn cũng có thể đổi tên trang tính bằng một tiền tố hoặc hậu tố cụ thể. Nhấp vào đây để biết thêm về Đổi tên Nhiều Trang tính.
Đổi tên nhiều trang tính dựa trên giá trị ô
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!