Note: The other languages of the website are Google-translated. Back to English
English English

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 Plus > 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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (5)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai, saya cukup baru di VBA, kode di atas berfungsi dengan baik untuk menambahkan spreadsheet baru dan mengganti namanya, namun saya ingin agar secara otomatis menyalin dan menempelkan konten pada lembar 'templat' saya ke lembar baru? Adakah yang bisa membantu?

Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Silakan coba kode VBA di bawah ini. Semoga bisa membantu. Terima kasih atas komentar Anda.

Sub BuatLembar()
Redupkan xName As String
Redupkan xSht Sebagai Objek
Redupkan xNWS Sebagai Lembar Kerja
On Error Resume Next
xName = Application.InputBox("Silakan masukkan nama untuk lembar baru ini ", "Kutools for Excel")
Jika xName = "" Kemudian Keluar Sub
Setel xSht = Lembar(xName)
Jika Tidak xSht Bukan Apa-apa Kemudian
MsgBox "Sheet tidak dapat dibuat karena sudah ada lembar kerja dengan nama yang sama di buku kerja ini"
Keluar dari Sub
End If
ActiveSheet.Copy setelah:=Sheets(Sheets.count)
Setel xNWS = Spreadsheet(Sheets.count)
xNWS.Nama = xNama
End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas balasan Anda kristal! Saya memilikinya bekerja sekarang :)
Komentar ini diminimalkan oleh moderator di situs
Hai, ini tidak memperhitungkan pengguna yang mengklik batal. Itu masih membuat lembar kerja.
Komentar ini diminimalkan oleh moderator di situs
Hi
Kode telah diperbarui dengan pemecahan masalah. Silahkan dicoba dan terima kasih atas komentarnya.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan