1. Cách lấy tên Sheet trong Excel hiện tại
Để lấy tên của Sheet hiện tại, các bạn chỉ cần nhập công thức sau vào ô mà bạn muốn để tên của sheet đó:
=RIGHT(CELL("filename");LEN(CELL("filename"))-FIND("]";CELL("filename")))
2. Cách lấy danh sách các Sheet hiện có trong file Excel
Để lấy danh sách các Sheet hiện có trong file Excel, đầu tiên thì các bạn cần chọn thẻ Developer trên thanh công cụ. Sau đó các bạn chọn mục Visual Basic. Hoặc các bạn có thể sử dụng tổ hợp phím tắt Alt + F11 để mở cửa sổ VBA.
Lúc này, cửa sổ VBA hiện ra. Các bạn chọn thẻ Insert => Module.
Sau đó các bạn sao chép đoạn code dưới đây vào hộp thoại Module.
Private Sub CreateTableOfContents()Dim wsSheet As WorksheetDim ws As WorksheetDim Counter As Long
On Error Resume NextSet wsSheet = Sheets("Mucluc")'Kiem tra su ton tai cua SheetOn Error GoTo 0If wsSheet Is Nothing Then'Neu chua co thi them vao vi tri dau tien cua WorkbookSet wsSheet = ActiveWorkbook.Sheets.Add(Before:=Worksheets(1))wsSheet.Name = "Mucluc"End If
With wsSheet.Cells(2, 1) = "DANH SACH CAC SHEET".Cells(2, 1).Name = "Index".Cells(4, 1).Value = "STT".Cells(4, 2).Value = "Ten Sheet"End With
'Merge CellWith Range("A2:B2").Merge.HorizontalAlignment = xlCenter.Font.Bold = TrueEnd With
'Set ColumnWidthWith Columns("A:A").ColumnWidth = 8.HorizontalAlignment = xlCenterEnd With
With Range("A4").HorizontalAlignment = xlCenter.Font.Bold = TrueEnd With
Columns("B:B").ColumnWidth = 30With Range("B4").HorizontalAlignment = xlCenter.Font.Bold = TrueEnd With
Counter = 1For Each ws In WorksheetsIf ws.Name <> wsSheet.Name Then'Gan gia tri cot thu tuwsSheet.Cells(Counter + 4, 1).Value = Counter'Tao lien ketwsSheet.Hyperlinks.Add Anchor:=wsSheet.Cells(Counter + 4, 2), _Address:="", _SubAddress:=ws.Name & "!A1", _ScreenTip:=ws.Name, _TextToDisplay:=ws.Name'Them nut Quay ve Sheet Muc luc tai moi SheetWith ws.Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Quay ve"End WithCounter = Counter + 1End IfNext wsSet xlSheet = NothingEnd Sub
Sau đó các bạn nhấn vào biểu tượng của Run trên thanh công cụ để chạy đoạn code.
Chỉ cần như vậy là một Sheet Mục lục mới sẽ tự động được tạo ra vào danh sách các Sheet hiện có trong file sẽ được lấy ra tại đây. Các bạn chỉ cần nhấn vào một Sheet bất kỳ là trang tính sẽ tự động được chuyển sang Sheet đó một cách dễ dàng.
Như vậy, bài viết trên đã hướng dẫn các bạn cách lấy tên Sheet trong Excel. Hy vọng bài viết trên sẽ hữu ích với các bạn trong quá trình làm việc. Chúc các bạn thành công!
