Loncat ke daftar isi utama

Bagaimana cara menambahkan lembar baru dengan nama tertentu di Excel?

Terkadang, Anda ingin membuat lembar baru dan secara otomatis menamainya dengan nama tertentu di Excel. Pada artikel ini, kami akan menunjukkan kepada Anda dua metode untuk menambahkan lembar baru dengan nama tertentu di buku kerja saat ini, serta membuat lembar kerja dengan nama tertentu di buku kerja baru di Excel.

Menambahkan lembar baru secara otomatis dengan nama tertentu di buku kerja saat ini dengan kode VBA
Menambahkan lembar baru secara otomatis dengan nama spesifik di buku kerja baru dengan Kutools for Excel


Menambahkan lembar baru secara otomatis dengan nama tertentu di buku kerja saat ini dengan kode VBA

Anda dapat menambahkan lembar baru dengan nama tertentu di akhir buku kerja saat ini dengan kode VBA berikut.

1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul.

3. Salin dan tempel kode VBA di bawah ini ke dalam Modul jendela.

Kode VBA: tambahkan lembar baru dengan nama tertentu di akhir buku kerja saat ini

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan Kutools untuk Excel kotak dialog, masukkan nama untuk sheet ini, lalu klik OK tombol. Lihat tangkapan layar:

Kemudian lembar kerja baru dibuat dengan nama tertentu dan terletak di akhir buku kerja saat ini.


Menambahkan lembar baru secara otomatis dengan nama spesifik di buku kerja baru dengan Kutools for Excel

Pada bagian ini, kami akan memperkenalkan Buat Lembar Kerja Urutan kegunaan Kutools untuk Excel. Dengan utilitas ini, Anda dapat dengan mudah menambahkan lembar baru dengan nama tertentu di buku kerja baru.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Untuk menambahkan sheet baru dengan nama tertentu, Anda perlu mengetikkan nama ini ke dalam sel terlebih dahulu. Dan kemudian klik Kutools Ditambah > Lembar Kerja > Buat Lembar Kerja Urutan.

2. Dalam Buat Lembar Kerja Urutan kotak dialog, pilih Lembar kerja kosong dalam Lembar Kerja Dasar daftar drop-down, pilih Datadalam jarak tertentu opsi, dan tentukan sel yang berisi nama lembar kerja tertentu, dan terakhir klik OK tombol. Lihat tangkapan layar:

Kemudian lembar kerja baru dengan nama spesifik ini dari sel segera dibuat di buku kerja baru.

Catatan:

1. Jika Anda ingin membuat beberapa lembar baru dengan nama tertentu pada saat yang sama, harap masukkan nama ini di sel satu per satu, lalu pilih sel ini di Data dalam suatu rentang kotak.
2. Anda juga dapat membuat lembar kerja urutan dari nomor seri atau daftar kustom dengan ini Buat Lembar Kerja Urutan utilitas. Lihat tangkapan layar:

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, this does not properly account for user clicking cancel. It still creates worksheet.
This comment was minimized by the moderator on the site
Hi
The code has been updated with the problem solving. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

Thanks
This comment was minimized by the moderator on the site
Good day,
Please try the below VBA code. Hope it can help. Thanks for your comment.

Sub CreateSheet()
Dim xName As String
Dim xSht As Object
Dim xNWS As Worksheet
On Error Resume Next
xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
If xName = "" Then Exit Sub
Set xSht = Sheets(xName)
If Not xSht Is Nothing Then
MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
Exit Sub
End If
ActiveSheet.Copy after:=Sheets(Sheets.count)
Set xNWS = Sheets(Sheets.count)
xNWS.Name = xName
End Sub
This comment was minimized by the moderator on the site
Thank you for your reply crystal! I have it working now :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations