Thông thường khi làm việc trong Excel bạn sẽ thấy tab sheet ở phía cuối giao diện, hiển thị tất cả các sheet dữ liệu có trong file Excel. Tab sheet này giúp bạn quản lý toàn bộ các bảng dữ liệu mỗi sheet và từ tab sheet này bạn có thể thực hiện nhiều thao tác như đổi tên sheet trong Excel, ẩn sheet trong bảng Excel… Tuy nhiên không biết vì sao mà file Excel của bạn lại không hiện tab sheet, ảnh hưởng tới việc xử lý số liệu trong file Excel. Nhiều người nghĩ do lỗi Excel nào đó nên không hiện tab sheet. Thực chất cách hiển thị lại rất đơn giản và không phải là lỗi nào hết vì đây chỉ là thiết lập hiển thị trên giao diện Excel. Bài viết dưới đây sẽ hướng dẫn bạn cách hiện lại tab sheet trong Excel.
Nội dung chính
- Hướng dẫn ẩn, hiện tab sheet trong Excel
- Lấy danh sách tên các Sheet trong Excel
- Tạo hàm lấy tên của Sheet hiện tại
- Kết luận
- Lấy tên sheet hiện tại
- Để liệt kê các sheet có trong file exel một cách tự động
- Video liên quan
Hướng dẫn ẩn, hiện tab sheet trong Excel
Bước 1:
Tại giao diện Excel, chúng ta nhấn vào mục File rồi chọn tiếp vào Options trong giao diện hiển thị để vào giao diện thiết lập trong Excel.
Bước 2:
Chuyển sang giao diện thiết lập trên Excel. Chúng ta nhấn vào mục thiết lập Advanced rồi nhìn sang phải tìm tới phần Display options for this workbook. Trong danh sách bên dưới bạn tích chọn vào Show sheet tabs rồi nhấn OK. Ngay lập tức tab sheet sẽ hiển thị lại ở phía dưới cùng của file Excel.
Trong trường hợp bạn chỉ làm việc trong 1 sheet và không liên quan tới những sheet khác thì chúng ta có thể tắt tab sheet Excel để làm gọn giao diện cũng được.
Xem thêm:
- Cách tách sheet thành từng file Excel riêng biệt
- MS Excel 2007 - Bài 12: Thao tác với Sheet trong Excel
Trong bài viết này, Học Excel Online sẽ hướng dẫn các bạn lấy ra danh sách tên của các Sheet có trong File Excel một cách nhanh chóng bằng việc sử dụng VBA Excel
Việc lấy ra danh sách được tên các Sheet hiện có trong File Excel sẽ giúp cho việc kiểm tra và nắm bắt được các Sheet trong File Excel một cách rõ ràng hơn. Trường hợp File của bạn có ít Sheet thì có thể chưa phát sinh nhiều vấn đề nhưng khi số lượng Sheet ngày càng nhiều thì việc nắm bắt được các sheet sẽ trở nên rất cần thiết. Việc lấy ra danh sách tên các Sheet là bước đầu để từ đó có thể giúp cho việc tạo mục lục cho File Excel của bạn.
Bạn đang xem: Cách lấy danh sách các sheet trong excel
Sử dụng VBA để tạo mục lục tự động trong Excel
Lấy danh sách tên các Sheet trong Excel
Để làm điều đó, ta mở trình soạn thảo VBA lên và có dòng Code như sau, ở đây trong File mình có 7 Sheet, thực hiện lặp qua các Sheet này và lần lượt lấy tên các Sheet đó vào Excel
Sub DS_Ws[]Dim j As Integer
For j = 1 To Sheets.CountSheet7.Cells[j + 1, 1].Value = Sheets[j].NameNext jEnd Sub
Biến j được khai báo thuộc kiểu Integer ở trên sẽ chạy từ Sheet đầu tiên tới Sheet cuối cùng trong File Excel của bạn và sau đó thực hiện ghi vào Excel tên của Sheet đó [Sheets[j].Name]
Vừa rồi ta đã thực hiện được 1 Sub để lấy ra danh sách tên của các Sheet hiện có trong Excel một cách khá nhanh chóng, Nếu như bạn muốn mình tạo 1 Function trong VBA để lấy ra tên sheet thì sao.
Tạo hàm lấy tên của Sheet hiện tại
Nếu như bạn muốn tạo 1 Function để lấy ra tên Sheet hiện tại, ta có Code khá đơn giản như sau:
Function MySheet[] As StringMySheet = ActiveSheet.NameEnd Function
Hàm tự tạo này đơn giản chỉ là lấy ra tên Sheet hiện tại [ActiveSheet.Name] và sẽ không cần truyền đối số cho hàm.
Xem thêm: Tập Tin Dpm Là Gì ? Định Nghĩa Và Giải Thích Ý Nghĩa Nghĩa Của Từ Dpm
Kết luận
Qua bài viết này, Học Excel Online bạn đã nắm được cách để lấy ra danh sách tên của các Sheet trong File Excel của mình cũng như tạo được 1 Function để lấy ra tên Sheet hiện tại bạn đang làm việc một cách nhanh chóng.
Với VBA bạn còn làm được rất nhiều điều thú vị và hữu ích khác giúp nâng cao hiệu suất trong công việc cũng như đem lại hiệu quả cao hơn khi làm việc với Excel. Tham khảo khoá học VBA101 – Tự động hoá Excel với lập trình VBA cho người mới bắt đầu.
Trong quá trình xử lý một file nhiều sheet, việc lấy tên và danh sách các sheet giúp kiểm tra và quản lý các sheet dễ dàng hơn, đặc biệt là khi bạn làm việc và tổng hợp dữ liệu từ nhiều sheet. Việc lấy danh sách các sheet một cách tự động giúp tiết kiệm thời gian và công sức của bạn.
Lấy tên sheet hiện tại
Để lấy tên sheet hiện tại bạn dùng hàm sau:
=MID[CELL[“filename”], FIND[“]”,CELL[“filename”]]+1, LEN[CELL[“filename”]]-FIND[“]”, CELL[“filename”]]]
Hoặc hàm sau:
=RIGHT[CELL[“filename”], LEN[CELL[“filename”]]-FIND[“]”,CELL[“filename”]]]
Để liệt kê các sheet có trong file exel một cách tự động
Để liệt kệ tự động thì chỉ có một cách là bạn sử dụng VBA. Để mở VBA thì bấm tổ hợp phím: ALT+F11
Hoặc mở Visual Basic trên thẻ Developer.
Cách mở thẻ Developer như hướng dẫn tại đây của Microsoft Office
cửa sổ VBA hiện ra. Các bạn chọn thẻ Insert => Module
Sau đó bạn copy mã sau vào và bấm Run để chạy
Private Sub CreateTableOfContents[] Dim wsSheet As Worksheet Dim ws As Worksheet Dim Counter As Long On Error Resume Next Set wsSheet = Sheets["Mucluc"] 'Kiem tra su ton tai cua Sheet On Error GoTo 0 If wsSheet Is Nothing Then 'Neu chua co thi them vao vi tri dau tien cua Workbook Set 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 Cell With Range["A2:B2"] .Merge .HorizontalAlignment = xlCenter .Font.Bold = True End With 'Set ColumnWidth With Columns["A:A"] .ColumnWidth = 8 .HorizontalAlignment = xlCenter End With With Range["A4"] .HorizontalAlignment = xlCenter .Font.Bold = True End With Columns["B:B"].ColumnWidth = 30 With Range["B4"] .HorizontalAlignment = xlCenter .Font.Bold = True End With Counter = 1 For Each ws In Worksheets If ws.Name wsSheet.Name Then 'Gan gia tri cot thu tu wsSheet.Cells[Counter + 4, 1].Value = Counter 'Tao lien ket wsSheet.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 Sheet With ws .Hyperlinks.Add Anchor:=.Range["H1"], Address:="", SubAddress:="Index", TextToDisplay:="Quay ve" End With Counter = Counter + 1 End If Next ws Set xlSheet = Nothing End Sub