Loncat ke daftar isi utama

Bagaimana cara mengganti nama lembar kerja berdasarkan nilai sel di Excel?

Mengganti nama lembar kerja biasanya diterapkan di pekerjaan Excel kami, tetapi pernahkah Anda mencoba mengganti nama lembar kerja berdasarkan nilai sel? Tentu saja, Anda dapat mengganti nama lembar kerja secara manual, tetapi di sini tutorial ini memperkenalkan beberapa trik yang dapat dengan cepat mengganti nama beberapa lembar kerja berdasarkan nilai sel yang dapat menghemat waktu kerja Anda.

Ubah nama lembar kerja berdasarkan sel tertentu dengan VBA

Ubah nama lembar kerja berdasarkan sel tertentu dengan Ganti Nama Beberapa Lembar Kerja ide bagus3

Ubah nama lembar kerja berdasarkan rentang konten sel dengan Ganti Nama Beberapa Lembar Kerja ide bagus3


Dengan VBA di bawah ini, Anda dapat mengganti nama lembar kerja relatif berdasarkan sel tertentu.

1. Pilih sel yang ingin Anda ubah namanya menjadi dasar lembar kerja, dalam hal ini pilih Sel A1. Lihat tangkapan layar:

doc mengganti nama lembar kerja 1

2. tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. klik Menyisipkan > Modul, lalu tempel kode VBA di bawah ini ke yang baru Modul jendela.

VBA: Ubah nama lembar kerja berdasarkan nilai sel tertentu.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. tekan F5 kunci untuk menjalankan kode VBA. Kemudian semua lembar kerja telah diganti namanya dengan setiap nilai sel A1 relatif.

doc mengganti nama lembar kerja 2


Jika Anda memiliki Kutools untuk Excel, Anda tidak perlu menyimpan kode VBA, Anda dapat menggunakan Ubah Nama Beberapa Lembar Kerja fitur untuk dengan cepat mengganti nama semua lembar kerja berdasarkan sel relatifnya.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. Aktifkan buku kerja yang ingin Anda ubah namanya menjadi nama lembar kerjanya.

2. klik Kutools Ditambah > Lembar Kerja > Ubah Nama Lembar Kerja. Lihat tangkapan layar:

doc mengganti nama lembar kerja 11

3. Kemudian di dialog muncul, centang lembar yang ingin Anda ganti namanya Lembar kerja panel, dan pilih salah satu dari Ganti Nama Opsi Anda perlu, di sini saya akan mengganti nama sheet, lalu periksa Ubah nama lembar kerja dengan sel tertentu, dan pilih sel yang namanya ingin Anda ganti. Lihat tangkapan layar:

doc mengganti nama lembar kerja 9

4. klik Ok. Sekarang lembaran diganti namanya dengan konten sel tertentu.

doc mengganti nama lembar kerja 2

Tetapi terkadang, yang Anda butuhkan adalah mengganti nama beberapa lembar kerja berdasarkan berbagai nilai sel seperti gambar di bawah ini yang ditampilkan, dalam hal ini, Anda dapat memilih di bawah metode.

doc mengganti nama lembar kerja 3


Dengan Ubah Nama Beberapa Lembar Kerja of Kutools untuk Excel, Anda juga dapat mengganti nama lembar berdasarkan rentang yang dipilih.

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. klik Kutools Ditambah > Lembar Kerja > Ubah Nama Lembar Kerja. Lihat tangkapan layar:

doc mengganti nama lembar kerja 11

2. Dalam Ubah Nama Beberapa Lembar Kerja dialog, Anda perlu menentukan pengaturan seperti ini:

(1) Pilih lembar kerja yang perlu Anda ganti namanya Daftar lembar kerja;

(2) Periksa Dari jarak tertentu pilihan, dan pilih nilai sel yang perlu Anda ganti namanya berdasarkan;

(3) Tentukan Ubah Nama Opsi, kamu bisa cek Sisipkan sebelum nama lembar asli, Sisipkan setelah nama lembar asli, atau Ganti nama lembar asli, dan Anda bisa melihat hasil yang sesuai di dialog.

doc mengganti nama lembar kerja 10

3. klik Ok, lalu Anda bisa melihat semua lembar kerja yang Anda pilih telah diganti namanya berdasarkan nilai sel yang ditentukan.

Ganti nama lembar asli

doc mengganti nama lembar kerja 6

Sisipkan sebelum nama lembar asli

doc mengganti nama lembar kerja 7

Sisipkan setelah nama lembar asli

doc mengganti nama lembar kerja 8

Dengan utilitas Ubah Nama Lembar Kerja, Anda juga dapat mengganti nama lembar kerja dengan awalan atau akhiran tertentu. Klik di sini untuk mengetahui lebih banyak tentang Ganti Nama Beberapa Lembar Kerja.

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works. It always goes into Debug on the first try. I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.
This comment was minimized by the moderator on the site
Hi, Don, the VBA has updated twice, it may be works for most of conditions, but not for the all. 
This comment was minimized by the moderator on the site
In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
This comment was minimized by the moderator on the site
Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
This comment was minimized by the moderator on the site
'Updateby20150602
This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
This comment was minimized by the moderator on the site
Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations