Bỏ qua nội dung chính

Làm cách nào để đổi tên trang tính dựa trên giá trị ô (từ danh sách) trong Excel?

Việc đổi tên một trang tính trong Excel thường được thực hiện bằng cách nhấp chuột phải vào tab của trang tính và chọn "Đổi tên" từ menu ngữ cảnh. Tuy nhiên, nếu bạn cần đổi tên nhiều trang tính bằng cách sử dụng các giá trị từ các ô được chỉ định hoặc muốn đặt tên động cho một trang tính dựa trên giá trị của một ô cụ thể, bạn có thể sử dụng một số phương pháp. Bài viết này sẽ hướng dẫn bạn các kỹ thuật này, giúp quá trình này trở nên đơn giản và hiệu quả.

Tự động đổi tên một trang tính từ giá trị ô bằng VBA

Chúng ta có thể tự động đổi tên một bảng tính từ giá trị của một ô nhất định bằng VBA trong Excel và bạn có thể thực hiện như sau:

Bước 1: Nhấp chuột phải vào tên trang tính của bảng tính mà bạn sẽ đặt tên động theo giá trị ô và chọn Mã Chế độ xem từ menu chuột phải.

Bước 2: Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng cửa sổ, dán mã VBA sau vào cửa sổ mô-đun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Mẹo: VBA này tự động đổi tên bảng tính dựa trên giá trị trong ô A1, bạn có thể thay đổi "A1" thành các ô khác tùy theo nhu cầu của mình.

Bước 3: Lưu mã VBA và đóng Microsoft Visual Basic cho ứng dụng cửa sổ.

Sau đó, bạn sẽ thấy tên trang tính được thay đổi động dựa trên giá trị ô được chỉ định.

Ghi chú:

  • Nếu ô được chỉ định trống, bảng tính sẽ không được đổi tên.
  • Trang tính sẽ được đổi tên mỗi khi bạn thay đổi giá trị trong ô được chỉ định.
  • Nếu bạn nhập các ký tự đặc biệt vào ô được chỉ định, chẳng hạn như *, một cảnh báo lỗi sẽ bật lên.

Đổi tên nhiều trang tính dựa trên giá trị ô trong trang tính tương ứng

Phương pháp được mô tả ở trên cho phép đổi tên từng trang một. Tuy nhiên, bằng cách sử dụng Đổi tên nhiều trang tính tính năng của Kutools cho Excel, bạn có thể nhanh chóng đổi tên tất cả hoặc nhiều trang tính dựa trên giá trị của một ô được chỉ định trong mỗi trang tương ứng. Ví dụ: bạn có thể đổi tên từng trang tính để khớp với giá trị tìm thấy trong ô A1 của trang tính cụ thể đó.

Kutools cho Excel - Được đóng gói với hơn 300 công cụ cần thiết cho Excel. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Tải ngay!

  1. Nhấp chuột Kutools Plus > Bảng > Đổi tên trang tính. Xem ảnh chụp màn hình:
  2. Trong phần mở đầu Đổi tên nhiều trang tính hộp thoại, vui lòng làm như sau:
    1. Trong tạp chí Các bảng tính list, hãy kiểm tra các bảng tính bạn sẽ đổi tên.
    2. Trong tạp chí Đổi tên các tùy chọn phần, kiểm tra Thay thế tên trang tính ban đầu tùy chọn.
    3. Trong tạp chí Tên trang tính mới , vui lòng kiểm tra Đổi tên trang tính với ô cụ thể tùy chọn và chỉ định ô có nội dung mà bạn sẽ đổi tên trang tính tương ứng.
    4. Nhấn vào Ok .

Và bây giờ tất cả các trang đã chọn đều được đổi tên dựa trên ô được chỉ định của mỗi trang. Xem ảnh chụp màn hình:

Lưu ý: Muốn truy cập vào Đổi tên nhiều trang tính tính năng? Tải xuống Kutools cho Excel Hiện nay! Ngoài ra, Kutools còn tự hào có vô số hơn 300 tính năng khác và cung cấp bản dùng thử miễn phí 30 ngày. Đừng chờ đợi, hãy thử ngay hôm nay!

Đổi tên nhiều trang tính từ danh sách được chỉ định

Kutools cho Excel's Đổi tên nhiều trang tính Tính năng này cũng hỗ trợ đổi tên nhiều trang tính dựa trên giá trị ô trong danh sách được chỉ định.

Kutools cho Excel - Được đóng gói với hơn 300 công cụ cần thiết cho Excel. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Tải ngay!

  1. Nhấp chuột Kutools Plus > Bảng > Đổi tên trang tính.
  2. Trong phần mở đầu Đổi tên nhiều trang tính hộp thoại, cấu hình như sau:
    1. Trong tạp chí Các bảng tính list, hãy chọn các bảng tính bạn sẽ đổi tên.
    2. Trong tạp chí Đổi tên các tùy chọn phần, kiểm tra Thay thế tên trang tính ban đầu tùy chọn.
    3. Trong tạp chí Tên trang tính mới phần, kiểm tra Từ phạm vi cụ thể và nhấp vào  nút để mở thứ hai Đổi tên nhiều trang tính hộp thoại (xem ảnh chụp màn hình bên phải). Sau đó, chọn danh sách các ô mà bạn sẽ đổi tên theo giá trị của chúng và nhấp vào nút OK .
    4. Nhấn vào Ok để áp dụng việc đổi tên.
    5.

Sau đó, bạn sẽ thấy tên của tất cả các bảng tính đã chọn được thay thế bằng các giá trị ô trong danh sách đã chỉ định. Xem ảnh chụp màn hình bên dưới:

Lưu ý: Muốn truy cập vào Đổi tên nhiều trang tính tính năng? Tải xuống Kutools cho Excel Hiện nay! Ngoài ra, Kutools còn tự hào có vô số hơn 300 tính năng khác và cung cấp bản dùng thử miễn phí 30 ngày. Đừng chờ đợi, hãy thử ngay hôm nay!

Demo: đặt tên trang tính dựa trên giá trị ô (từ danh sách) trong Excel


Kutools cho Excel: Hơn 300 công cụ tiện dụng trong tầm tay bạn! Bắt đầu dùng thử miễn phí 30 ngày không có giới hạn tính năng ngay hôm nay. Download Now!

Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

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...

Mô 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!
Comments (7)
No ratings yet. Be the first to rate!
Lorenzo
Lorenzo
This comment was minimized by the moderator on the site
Hi there, one question if i want to use the value of 2 cells (A1 & B1) what i have to change?
Reply
0
0
Amanda Lee
Amanda Lee     Lorenzo
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sheetName As String
    
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        sheetName = VBA.Left(Me.Range("A1").Value & Me.Range("B1").Value, 31)
        
        If sheetName <> "" Then
            Application.ActiveSheet.Name = sheetName
        End If
    End If
End Sub

Once you done pasting the code to the View Code window, please select the cell A1 or B1 to make the code run.

Amanda
Reply
Report
0
0
Олег
Олег
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
Reply
0
0
Amanda Lee
Amanda Lee     Олег
This comment was minimized by the moderator on the site
Hi there,

Hope this tutorial would help you: https://www.extendoffice.com/documents/excel/3117-excel-worksheet-tabs-in-a-vertical-arrangement-on-left-side.html

Amanda
Reply
Report
0
0
sriggins
sriggins
This comment was minimized by the moderator on the site
I used the dynamic sheet name coding and functionally it works well, but I get the Runtime Error 1004 whenever I click inside a cell. Anyone have any info on how to correct this?


Thanks
Reply
Report
0
0
HHani
HHani
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
Reply
0
0
Mel
Mel
This comment was minimized by the moderator on the site
so I am trying to do this, but nothing is happening - my sheet names aren't changing, everything is the exact same. Do you know what I am doing wrong??
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations