Note: The other languages of the website are Google-translated. Back to English
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

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 Plus > 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 Plus > 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 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 ...
  • Super Formula Bar (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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Don · 4 months ago
    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.  
  • To post as a guest, your comment is unpublished.
    Henry · 1 years ago
    In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 2 years ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      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.