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.

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...

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!

Đọc thêm ... Tải xuống miễn phí... Mua, tựa vào, bám vào...

Nhận xét (28)

Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!

Jason

khoảng 5 năm trước

#21450

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

đáp lại

pha lê Jason

khoảng 5 năm trước

#21451

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.

đáp lại

Report

Mei1 pha lê

khoảng 3 tuần trước

#42601

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

đáp lại

pha lê Mei1

khoảng 1 tuần trước

#42878

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

Cảm ơn phản hôi của bạ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

đáp lại

Report

jJJ

khoảng 5 năm trước

#21710

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.

đáp lại

Report

pha lê jJJ

khoảng 5 năm trước

#21711

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

đáp lại

Report

JAS pha lê

khoảng 5 năm trước

#21712

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ệ"

đáp lại

pha lê JAS

khoảng 5 năm trước

#21713

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.

đáp lại

Report

Alex pha lê

khoảng 5 năm trước

#21714

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

đáp lại

Rj Alex

khoảng 3 năm trước

#21715

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

Shadab pha lê

khoảng 5 tháng trước

#39971

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

đáp lại

John Hammond pha lê

khoảng 4 năm trước

#21716

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.

đáp lại

KHÔNG CÓ pha lê

khoảng 3 năm trước

#21717

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

đáp lại

JAS

khoảng 5 năm trước

#21987

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!

đáp lại

pha lê JAS

khoảng 5 năm trước

#21988

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

đáp lại

Report

Nilanjan Pal

khoảng 5 năm trước

#22475

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

đáp lại

pha lê Nilanjan Pal

khoảng 5 năm trước

#22476

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

đáp lại

Report

NickP84

khoảng 2 năm trước

#32436

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?

đáp lại

Report

pha lê NickP84

khoảng 2 năm trước

#32437

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

đáp lại

Report

dan

khoảng 2 năm trước

#33150

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?

đáp lại

Scott Keller

khoảng 2 năm trước

#34080

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?

đáp lại

Report

Remi

khoảng 1 năm trước

#35262

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à

đáp lại

Một Owen

khoảng 8 tháng trước

#38324

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?

đáp lại