Loncat ke daftar isi utama

Bagaimana cara membuat lembar kerja urutan dari berbagai sel di Excel?

Jika Anda memiliki berbagai data di lembar kerja Anda, dan sekarang, Anda ingin membuat urutan lembar kerja berdasarkan data sel, lihat tangkapan layar berikut. Tentu saja Anda bisa mengedit nama worksheet satu persatu secara manual, namun jika ada beberapa nama worksheet yang perlu diedit, cara ini akan merepotkan dan memakan waktu. Di sini, saya akan membahas beberapa trik cepat untuk membantu Anda.

doc-buat-lembar-dari-daftar1

Buat lembar kerja urutan dari daftar sel dengan kode VBA

Buat lembar kerja urutan dari daftar sel dengan Kutools for Excel


panah gelembung kanan biru Buat lembar kerja urutan dari daftar sel dengan kode VBA

Kode VBA berikut dapat membantu Anda menambahkan beberapa lembar kerja yang diberi nama berdasarkan konten sel setelah lembar kerja yang sudah ada. Harap lakukan seperti ini:

1. Tahan ALT + F11 kunci, lalu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: tambahkan lembar kerja urutan berdasarkan daftar sel

Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
        Ws.Name = arr(i, j)
    Next
Next
Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kemudian kotak prompt akan muncul bagi Anda untuk memilih rentang yang ingin Anda gunakan. Lihat tangkapan layar:

doc-buat-lembar-dari-daftar2

4. Dan kemudian klik OK, lembar kerja yang diberi nama dengan nilai sel telah ditambahkan setelah lembar kerja yang ada. Lihat tangkapan layar:

doc-buat-lembar-dari-daftar3

Catatan:

1. Lembar kerja baru akan disisipkan setelah lembar kerja saat ini.

2. Jika rentang yang dipilih termasuk sel kosong, lembar kerja diberi nama berdasarkan default. Lihat tangkapan layar:

doc-buat-lembar-dari-daftar4
-1
doc-buat-lembar-dari-daftar5

panah gelembung kanan biru Buat lembar kerja urutan dari daftar sel dengan Kutools for Excel

Di sini, saya memperkenalkan alat praktis-Kutools untuk Excel, Dengan yang Buat Lembar Kerja Urutan, Anda dapat dengan cepat membuat lembar kerja dengan nama bulan, nama hari, daftar kustom, dan sebagainya.

Kutools untuk Excel mencakup lebih dari 300 alat Excel yang praktis. Gratis untuk mencoba tanpa batasan dalam 30 hari. Dapatkan Sekarang.

Setelah menginstal Kutools for Excel, lakukan langkah-langkah berikut:

1. Pilih rentang yang Anda inginkan untuk membuat lembar kerja berdasarkan.

2. Klik Enterprise > Alat Lembar Kerja > Buat Lembar Kerja Urutan, lihat tangkapan layar:

doc-buat-lembar-dari-daftar6

3. di Buat Lembar Kerja Urutan kotak dialog, pilih jenis lembar kerja yang Anda inginkan untuk membuat lembar kerja urutan baru, dan kemudian centang Data dalam suatu rentang opsi, lihat tangkapan layar:

doc-buat-lembar-dari-daftar7

4. Lalu klik OK untuk menutup kotak dialog, dan buku kerja baru yang berisi lembar kerja diberi nama dengan data rentang yang dipilih telah dibuat. Lihat tangkapan layar:

doc-buat-lembar-dari-daftar8

Catatan:

1. Jika Anda memilih Lembar 1 atau Lembar 2, maka lembar kerja baru yang dibuat akan memiliki format yang sama seperti Lembar 1 atau Lembar 2.

2. Lembar kerja baru dibuat di buku kerja baru.

3. Jika rentang yang dipilih termasuk sel kosong, lembar kerja diberi nama berdasarkan default. Lihat tangkapan layar:

doc-buat-lembar-dari-daftar9
-1
doc-buat-lembar-dari-daftar10

Klik untuk mengetahui lebih banyak tentang fitur Buat Lembar Kerja Urutan ini.


Artikel terkait:

Bagaimana cara menambahkan lembar kerja baru dengan nama yang disesuaikan di Excel?

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to add bydefault table with row name and column name on sheets after creating sheets using command button. Please help.
This comment was minimized by the moderator on the site
How can the code be modified to copy a worksheet labeled "Template" and rename it to the values in the list selected in the range? I tried modifying the "worksheets.Add" code to "Worksheets("Template").Copy but it just makes copies with the worksheets labeled "Template(1)", "Template(2)", etc. Also, is there a way to put the tabs in numerical order as they are added?
This comment was minimized by the moderator on the site
Hi, Would it be possible to set-up a template for the new sheets created, instead of blank worksheets. Thanks Dave
This comment was minimized by the moderator on the site
Hi, I want to create invoices using excel and need to know whether is there a way to auto generate the second continuation page when the items on the first page exceed the A4 page layout that I have predefined? Any help is appreciated.
This comment was minimized by the moderator on the site
Could you modify the VBA code so that if the worksheet exists, it is skipped over? As it exists now, running the code a second time on the same range will create numbered worksheets. Thanks! Chris
This comment was minimized by the moderator on the site
Hello, Can I exclude blanks and automatically copy data with is behind the name? This data is generated from a pivot and I want to have all the names in different tabs with the data behind it in the layout. name1 data data data blank data data data blank Name 2 Thanks!
This comment was minimized by the moderator on the site
I need to duplicate one sheet when making all these new sheets from a list. Can you add the code for that? Thanks!
This comment was minimized by the moderator on the site
You can right click the tab and choose "move or copy" to duplicate it.
This comment was minimized by the moderator on the site
Very useful. thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations