Note: The other languages of the website are Google-translated. Back to English

Làm thế nào để đặt tên tab trang tính bằng giá trị ô trong Excel?

Trong một số trường hợp, bạn có thể cần đổi tên trang tính dựa trên giá trị ô đã chỉ định. Trong bài viết này, chúng tôi sẽ chỉ cho bạn các phương pháp tạo tên tab trang tính bằng giá trị ô trong Excel.

Đặt tên tab trang tính bằng giá trị ô với mã VBA
Đặt tên tab trang tính bằng giá trị ô với Kutools cho Excel


Đặt tên tab trang tính bằng giá trị ô với mã VBA

Với mã VBA sau, bạn có thể tự động đặt tên tab trang tính bằng giá trị ô.

1. Nhấp chuột phải vào tab trang tính mà bạn muốn đặt tên trang tính bằng giá trị ô, sau đó nhấp Mã Chế độ xem từ menu chuột phải. Xem ảnh chụp màn hình:

2. Sao chép và dán mã bên dưới vào cửa sổ Mã, rồi nhấn Khác + Q đồng thời để đóng cửa sổ Microsoft Visual Basic for Applications.

Mã VBA: Tạo tab trang tính bằng giá trị ô

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

Chú thích: Trong mã, A1 là ô chứa giá trị bạn cần sử dụng làm tên trang tính. Bạn có thể thay đổi nó khi bạn cần.

Kể từ bây giờ, khi giá trị trong ô A1 thay đổi, tên tab trang tính cũng sẽ được thay đổi như nhau.


Đặt tên tab trang tính bằng giá trị ô với Kutools cho Excel

Trong phần này, chúng tôi giới thiệu cho bạn Đổi tên nhiều trang tính tiện ích của Kutools cho Excel. Với tiện ích này, bạn có thể dễ dàng đổi tên trang tính với giá trị của ô nhất định trong Excel.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. nhấp chuột Kutools Plus > Bảng > Đổi tên nhiều trang tính. Xem ảnh chụp màn hình:

2. bên trong Đổi tên nhiều trang tính hộp thoại, bạn cần làm như sau.

1). Kiểm tra tên trang tính mà bạn muốn đổi tên trong Các bảng tính (bạn có thể chọn một trang tính hoặc nhiều trang tính).
2). Lựa chọn Thay thế tên trang tính ban đầu hộp trong Đổi tên các tùy chọn phần.
3). Nếu bạn muốn đổi tên một trang tính hoặc nhiều trang tính với giá trị của ô đã chỉ định, vui lòng chọn Từ phạm vi cụ thể và chọn phạm vi ô mà bạn muốn đổi tên trang tính.
4). Nhấn vào OK cái nút. Xem ảnh chụp màn hình:

Bạn có thể thấy các trang tính đã chọn được đổi tên theo giá trị phạm vi được chỉ định ngay lập tức như hình minh họa bên dưới.

Chú ý:

1. Bạn có thể sử dụng Lọc chức năng để dễ dàng lọc ra trang tính cần thiết nếu có nhiều trang tính tồn tại.
2. Nếu bạn muốn đổi tên nhiều trang tính với một giá trị ô nhất định trong mỗi trang tính. Ví dụ: sheet1 sẽ bằng giá trị của ô A1 và sheet2 cũng sẽ bằng giá trị của ô A1. Vui lòng chọn trang tính trong Các bảng tính , sau đó chọn hộp Đổi tên trang tính với ô cụ thể và chỉ định ô A1 trong hộp.

3. Tên trang tính sẽ không được thay đổi tự động khi giá trị ô thay đổi.

  Nếu bạn muốn dùng thử miễn phí (30-day) của tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Đặt tên tab trang tính bằng giá trị ô với Kutools cho Excel


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

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (28)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã dán cái này vào như được hướng dẫn nhưng nó không hiển thị trong danh sách các Macro có sẵn của tôi. Tôi đã cố gắng chạy nó theo cách thủ công bằng cách nhập tên Macro. Khi nó cố gắng chạy Macro, một thông báo lỗi xuất hiện "Đối số không có tùy chọn".

Private Sub Worksheet_Change (ByVal Target As Range)
Nếu không Giao nhau (Mục tiêu, Phạm vi ("A1")) thì Không có gì
ActiveSheet.Name = ActiveSheet.Range ("A1")
Cuối Nếu
End Sub

Có ai khác chạy mã này và gặp sự cố tương tự không?

Như một bài kiểm tra, tôi đã chạy mã cơ bản hơn và nó hoạt động tốt nên giá trị trong "A1" không gây ra sự cố. Khi tôi chạy mã bên dưới, tôi có thể thấy tên Macro "myTabName" trong danh sách Macro. Đoạn mã trên không xuất hiện và tôi cho rằng điều này là do đối số lỗi / thiếu.

Sub myTabName ()
ActiveSheet.Name = ActiveSheet.Range ("A1")
End Sub

Cảm ơn sự giúp đỡ của bạn vì tôi rất muốn sử dụng mã như dự định để tự động hóa các thay đổi tên tab dựa trên giá trị ô ..
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Gửi Jason,
Mã hoạt động tốt trong trường hợp của tôi. Bạn vui lòng cung cấp phiên bản Office của mình? Cảm ơn bình luận của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Crystal,

Nó cũng không hoạt động với tôi, có thể là do ô tôi đang đề cập là một công thức?

Cảm ơn vì đã trả lời
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Mei

Cảm ơn phản hôi của bạn. Vấn đề là do công thức gây ra. Mã đã được sửa đổi. Xin vui lòng cung cấp cho nó một thử.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang làm cho mã này hoạt động, nhưng nó không tự động cập nhật tên tab khi ô mà nó lấy tên từ đó nếu tham chiếu đến một ô khác (và ô đó thay đổi).


Tức là tôi thay đổi một ô trong danh sách chính, điều này sẽ thay đổi văn bản ô trong một ô cụ thể trên mỗi tab, mà mã đang tham chiếu đến làm tên tab, NHƯNG tab không cập nhật tên của nó tương ứng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Good day,
Mã VBA sau có thể giải quyết vấn đề của bạn. Cảm ơn bạn đã bình luận

Private Sub Worksheet_Change (ByVal Target As Range)
Làm mờ xRg theo phạm vi, xCell theo phạm vi
On Error Resume Next
Nếu không Giao nhau (Mục tiêu, Phạm vi ("A1")) thì Không có gì
ActiveSheet.Name = ActiveSheet.Range ("A1")
Cuối Nếu
Application.EnableEvents = Sai
Đặt xRg = ActiveSheet.Range ("A1"). Tiền lệ
Nếu không xRg thì không có gì
Đối với mỗi xCell Trong xRg
ActiveSheet.Name = ActiveSheet.Range ("A1")
Sau
Cuối Nếu
Ứng dụng.EnableEvents = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vẫn không hoạt động. Tôi đang gặp vấn đề tương tự như jJJ. Crystal: Toàn bộ mã có được hiển thị trong câu trả lời của bạn không?
Dòng cuối cùng được hiển thị trong nhận xét của bạn là "Đặt xRg = ActiveSheet.Range (" A1 "). Tiền lệ"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
JAS thân mến,
Vui lòng nhấn vào nút Đọc thêm ở bên phải bình luận để hiển thị toàn bộ bình luận.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vẫn có cùng một vấn đề.

Tôi có A1 của trang tính mới trỏ đến một ô khác trong một tab khác. Nó cập nhật lần đầu tiên (khi bạn thực thi) nhưng sau đó không thay đổi khi chỉnh sửa ô chính
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Private Sub Worksheet_SelectionChange (ByVal Target As Excel.Range)
Đặt Mục tiêu = Phạm vi ("A1")
If Target = "" thì thoát Sub
Lỗi GoTo Badname
ActiveSheet.Name = Left (Mục tiêu, 31)
Thoát Sub
Cái tên xấu:
MsgBox "Vui lòng sửa lại mục nhập trong A1." & Chr (13) _
& "Dường như chứa một hoặc nhiều" & Chr (13) _
& "Ký tự bất hợp pháp." & Chr (13)
Phạm vi ("A1"). Kích hoạt
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vấn đề vẫn vậy, nó thay đổi lần đầu tiên. khi tôi liên kết ô đó với một trang tính khác và thay đổi nó, nó không tự động thay đổi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cần sử dụng mã này nhưng tôi chưa bao giờ nhập mã vba trước đây. Bất kỳ hướng dẫn sẽ được đánh giá cao.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi thay đổi một ô trong danh sách chính, điều này sẽ thay đổi văn bản ô trong một ô cụ thể trên mỗi tab, mà mã đang tham chiếu đến làm tên tab, NHƯNG tab không cập nhật tên của nó tương ứng.

---- nó không làm việc
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã nhận được toàn bộ mã, và nó đã hoạt động. Cảm ơn rất nhiều vì sự giúp đỡ của bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
JAS thân mến,
Tôi rất vui vì tôi có thể giúp đỡ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể sử dụng macro đơn giản hơn



Sub Macro3 ()
Làm mờ chỉ mục dưới dạng số nguyên
Đối với chỉ mục = 1 đến 18

Sheets (chỉ mục) .Name = Sheets (chỉ mục) .Range ("A2"). Giá trị

Chỉ mục tiếp theo



End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngày tốt,
Cảm ơn bạn đã chia sẻ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây chính xác là những gì tôi cần, nhưng tôi cần tab để tạo lại ngày tháng và nó không hoạt động ... Tôi cho rằng đây là điều gì đó liên quan đến cách excel tính toán ngày và giờ, có ai có thể đề xuất cách giải quyết khác không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Nick
Excel không hỗ trợ nhập tên trang tính có chứa các ký tự đặc biệt. Nếu ngày bạn nhập có chứa ký tự /, nó sẽ không cho phép bạn tạo tên trang tính với ngày đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào tôi có thể tham chiếu hai ô. ví dụ tên và số id?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang sử dụng mã chính xác của bạn từ phần trên cho mã VBA hoạt động hoàn hảo cho những gì tôi cần. Tuy nhiên, tôi có một loạt macro trên trang tính có tên Job Template được sao chép và sử dụng lại cho mọi công việc mới. Tôi đã thiết kế tất cả các macro của mình dựa trên một phiên bản mới được sao chép có tên là Job Template (2). Khi tên trang tính được thay đổi thành tên công việc mới, các macro không còn hoạt động nữa và phải thực hiện thủ công. Tôi muốn có thể sử dụng bất kỳ nút Macro nào của mình tại bất kỳ thời điểm nào thay vì chỉ sử dụng chúng trước khi tôi thay đổi tên trang tính.

Có cách nào để mã VBA luôn tham chiếu đến tên trang tính trước khi chạy phần còn lại của các hàm mã không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nr cao nhất của trang tính, có thể được thay đổi tên thông qua Kutools Plus là gì? bởi vì excel cho phép tôi chỉ có 17 tên để thay đổi, và đó là
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này hoạt động hoàn hảo cho trang tính đầu tiên của tôi, nhưng không hoạt động cho trang tính thứ hai hoặc thứ ba, v.v. (tôi có khoảng 20 trang tính đều cần chức năng này). Tui bỏ lỡ điều gì vậy?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào A Owen,
Mã này chỉ hoạt động cho một trang tính mỗi lần. Xin lỗi vì sự bất tiện.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Crystal,

Khi tôi dán mã của bạn, nó xuất hiện với lỗi "loại do người dùng xác định không được xác định"?

Cảm ơn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Tom J,
Đảm bảo rằng ba tùy chọn này được chọn trong hộp thoại Tham chiếu - VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
hoạt động tuyệt vời!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bonjour,
bạn có thể tham khảo ý kiến ​​của bạn.
J'ai simplement fermé la page aprèsooter collé et ça ne marche pas
merci
Không có bình luận nào được đăng ở đây

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL