Bagaimana cara menyalin lembar tersembunyi di Excel?
Di Excel, kita dapat memindahkan dan menyalin lembar ke buku kerja saat ini atau lainnya dengan cepat dan mudah, tetapi pernahkah Anda mencoba menyalin lembar tersembunyi ke buku kerja aktif? Artikel ini, saya akan memperkenalkan kode VBA bagi Anda untuk menyalin lembar tersembunyi tertentu ke file Excel aktif.
Salin lembar kerja tersembunyi ke buku kerja aktif dengan kode VBA
Salin lembar kerja tersembunyi ke buku kerja aktif dengan kode VBA
Untuk menyalin lembar tersembunyi dari buku kerja, dan memberinya nama, kode VBA berikut dapat membantu Anda:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Salin lembar kerja tersembunyi ke buku kerja aktif:
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
Note: Pada kode di atas, Lembar 12 adalah lembar tersembunyi yang ingin Anda salin, harap ubah sesuai kebutuhan Anda.
3. Lalu tekan F5 kunci untuk menjalankan kode ini, kotak prompt akan muncul untuk mengingatkan Anda menentukan nama untuk salinan baru dari lembar kerja tersembunyi, lihat tangkapan layar:
4. Lalu klik OK tombol, dan lembar tersembunyi telah disalin dengan nama baru di buku kerja aktif sekaligus.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!