Koen có một trang tính có danh sách các tên trong cột A. Anh ấy cần tạo một trang tính cho mỗi tên trong danh sách và có trang tính được đặt tên theo tên đó. Koen nghi ngờ điều này sẽ yêu cầu macro, nhưng anh ấy không chắc chắn làm thế nào để thực hiện một nhiệm vụ như vậy.

Tác vụ này tương đối dễ thực hiện nếu bạn sử dụng macro và có bất kỳ cách nào bạn có thể thực hiện. Một cách đơn giản là chọn danh sách tên trang tính của bạn và sau đó chạy macro sau.

Sub AddWorksheetsFromSelection()

Dim CurSheet As Worksheet     Dim Source As Range     Dim c As Range

Set CurSheet = ActiveSheet     Set Source = Selection.Cells     Application.ScreenUpdating = False

For Each c In Source         sName = Trim(c.Text)

If Len(sName) > 0 Then                 Worksheets.Add After:=Worksheets(Worksheets.Count)

ActiveSheet.Name = sName         End If     Next c

CurSheet.Activate     Application.ScreenUpdating = True End Sub

Về cơ bản, macro lấy từng ô trong lựa chọn của bạn, tạo một trang tính mới, sau đó đổi tên trang tính đó theo bất kỳ thứ gì có trong ô.

Macro kiểm tra để đảm bảo rằng một ô cụ thể thực sự chứa một cái gì đó (bạn không thể đổi tên trang tính nếu không có tên trong ô), nhưng nó vẫn không mạnh mẽ như nó có thể. Có thể có các sai sót khác trong danh sách tên trang tính của bạn có thể dẫn đến lỗi khi chạy macro. Ví dụ, điều gì sẽ xảy ra nếu danh sách của bạn chứa các bản sao? Hoặc nó chứa các tên mà Excel không cho phép? Những lỗi này (và bất kỳ số lỗi nào khác) có thể được lường trước và mã đã được thay đổi để xử lý các tình huống như vậy.

Mặc dù sử dụng macro để tạo trang tính nhanh chóng và dễ dàng, bạn có thể muốn lưu ý rằng bạn không nhất thiết phải sử dụng macro. Trên thực tế, bạn có thể sử dụng các khả năng PivotTable của Excel để tạo các trang tính mong muốn. Giả sử, vì lợi ích của ví dụ này, tên trang tính mong muốn của bạn nằm trong cột A của một trang tính và ô A1 chứa tiêu đề cho cột (chẳng hạn như “Tên” hoặc “Trang tính”).

Những gì bạn muốn làm là tạo PivotTable dựa trên những tên này. Làm theo các bước sau:

  1. Chọn bất kỳ tên trang tính nào trong cột.

  2. Hiển thị tab Chèn của ruy-băng.

  3. Bấm vào công cụ PivotTable, ở phía bên trái của dải băng. Excel sẽ hiển thị hộp thoại Tạo PivotTable, với phạm vi tên trang tính của bạn đã được chỉ định. (Xem Hình 1.)

  4. Bấm OK. Excel tạo PivotTable và hiển thị ngăn Trường PivotTable ở bên phải màn hình.

  5. Trong ngăn Trường PivotTable, hãy bấm vào hộp kiểm bên cạnh trường được sử dụng cho danh sách trang tính của bạn. (Nó phải là một cái gì đó giống như “Tên”

hoặc “Trang tính”.) Excel điều chỉnh PivotTable.

  1. Kéo tên trường đã chọn (“Tên” hoặc “Trang tính”) vào vùng Bộ lọc của ngăn Trường PivotTable. (Xem Hình 2.)

  2. Đảm bảo rằng tab Phân tích của ruy-băng được hiển thị. (Nó phải được hiển thị theo mặc định sau khi bạn tạo PivotTable.)

  3. Bấm vào mũi tên xuống dưới công cụ PivotTable, ở phía bên trái của dải băng. Excel hiển thị một số lựa chọn bạn có thể thực hiện.

  4. Nhấp vào mũi tên xuống ở phía bên phải của lựa chọn Tùy chọn. (Không nhấp vào chính lựa chọn Tùy chọn; nó sẽ hiển thị một hộp thoại. Bạn chỉ cần nhấp vào mũi tên xuống.)

  5. Chọn tùy chọn Hiển thị các Trang Bộ lọc Báo cáo. Excel sẽ hiển thị hộp thoại Hiển thị các Trang Bộ lọc Báo cáo.

  6. Bấm OK. Excel tạo một trang tính cho mỗi tên trang tính trong danh sách của bạn.

Điều quan trọng là nhận ra rằng tại thời điểm này, mỗi trang tính mới đều chứa một PivotTable nhỏ. Để loại bỏ các PivotTable này, bạn có thể nghĩ rằng bạn có thể tạo một tập hợp lựa chọn của các trang tính mới (bấm vào tab trang tính đầu tiên, sau đó giữ phím Shift khi bạn bấm vào tab trang tính cuối cùng) rồi nhấn phím Xóa. Tuy nhiên, trong thử nghiệm của tôi, điều này không hoạt động — Excel sẽ không cho phép bạn thực hiện thay đổi đối với PivotTable trong chế độ chỉnh sửa nhóm. Thay vào đó, bạn sẽ cần lần lượt hiển thị từng trang tính và xóa PivotTables.

Điều này có vẻ như rất nhiều công việc, nhưng nếu bạn chỉ cần tạo tất cả các trang tính này một lần duy nhất, thì đó có thể là một cách tương đối nhanh chóng để thực hiện mà không cần gọi macro.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (13463) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.