Làm thế nào để sao chép một trang tính ẩn trong Excel?
Trong Excel, chúng ta có thể di chuyển và sao chép một trang tính vào sổ làm việc hiện tại hoặc sổ làm việc khác một cách nhanh chóng và dễ dàng, nhưng bạn đã bao giờ thử sao chép một trang tính ẩn vào sổ làm việc đang hoạt động chưa? Bài viết này, tôi sẽ giới thiệu một mã VBA để bạn sao chép một trang tính ẩn cụ thể vào tệp Excel đang hoạt động.
Sao chép một trang tính ẩn vào sổ làm việc đang hoạt động với mã VBA
Sao chép một trang tính ẩn vào sổ làm việc đang hoạt động với mã VBA
Để sao chép một trang tính ẩn từ một sổ làm việc và đặt tên cho nó, mã VBA sau có thể giúp bạn:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Sao chép một trang tính ẩn vào sổ làm việc đang hoạt động:
Sub DupSheet()
'Updateby Extendoffice 20161109
Dim Actsheet As String
Application.ScreenUpdating = False
On Error Resume Next
ActiveWorkbook.Sheets("Sheet12").Visible = True
ActiveWorkbook.Sheets("Sheet12").Copy _
after:=ActiveWorkbook.Sheets("Sheet12")
ActNm = ActiveSheet.Name
ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
Sheets(ActiveSheet.Name).Visible = True
ActiveWorkbook.Sheets("Sheet12").Visible = False
Application.ScreenUpdating = True
End Sub
Chú thích: Trong đoạn mã trên, Bảng 12 là trang tính ẩn mà bạn muốn sao chép, vui lòng thay đổi nó theo nhu cầu của bạn.
3. Và sau đó nhấn F5 để chạy mã này, một hộp nhắc sẽ bật ra để nhắc bạn chỉ định tên cho bản sao mới của trang tính ẩn, xem ảnh chụp màn hình:
4. Sau đó nhấn vào OK và trang tính ẩn đã được sao chép với tên mới trong sổ làm việc đang hoạt động cùng một lúc.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
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!