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

Bagaimana cara membuat nama tab sheet sama dengan nilai sel di Excel?

Dalam beberapa kasus, Anda mungkin perlu mengganti nama lembar kerja berdasarkan nilai sel yang ditentukan. Pada artikel ini, kami akan menunjukkan kepada Anda metode membuat nama tab sheet sama dengan nilai sel di Excel.

Buat nama tab sheet sama dengan nilai sel dengan kode VBA
Buat nama tab lembar sama dengan nilai sel dengan Kutools for Excel


Buat nama tab sheet sama dengan nilai sel dengan kode VBA

Dengan kode VBA berikut, Anda dapat membuat nama tab lembar sama dengan nilai sel secara otomatis.

1. Klik kanan tab sheet yang ingin Anda jadikan nama sheet sama dengan nilai sel, lalu klik Lihat kode dari menu klik kanan. Lihat tangkapan layar:

2. Salin dan tempel kode di bawah ini ke jendela Kode, lalu tekan lain + Q secara bersamaan untuk menutup jendela Microsoft Visual Basic for Applications.

Kode VBA: Jadikan tab lembar sama dengan nilai sel

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("A1")) Is Nothing Then
		ActiveSheet.Name = ActiveSheet.Range("A1")
	End If
End Sub

Note: Dalam kode, A1 adalah sel yang berisi nilai yang perlu Anda gunakan sebagai nama sheet. Anda dapat mengubahnya sesuai kebutuhan.

Mulai sekarang, ketika nilai di sel A1 berubah, nama tab sheet juga akan berubah sama.


Buat nama tab lembar sama dengan nilai sel dengan Kutools for Excel

Di bagian ini, kami memperkenalkan Anda Ubah Nama Beberapa Lembar Kerja kegunaan Kutools untuk Excel. Dengan utilitas ini, Anda dapat dengan mudah mengganti nama lembar kerja dengan nilai sel tertentu di Excel.

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

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

2. Dalam Ubah Nama Beberapa Lembar Kerja kotak dialog, Anda perlu melakukan hal berikut.

1). Periksa nama lembar kerja yang ingin Anda ganti namanya di Lembar kerja kotak (Anda dapat memilih satu lembar atau beberapa lembar).
2). Pilih Ganti nama lembar asli kotak di Ubah Nama Opsi bagian.
3). Jika Anda ingin mengubah nama lembar kerja atau beberapa lembar kerja dengan nilai sel tertentu, pilih Dari jarak tertentu opsi, dan pilih rentang sel yang ingin Anda ganti namanya berdasarkan pada lembar.
4). Klik OK tombol. Lihat tangkapan layar:

Anda dapat melihat lembar kerja yang dipilih diganti namanya dengan nilai kisaran yang ditentukan segera seperti gambar di bawah ini.

Catatan:

1. Anda bisa menggunakan SARING berfungsi untuk dengan mudah menyaring worksheet yang dibutuhkan jika ada banyak worksheet.
2. Jika Anda ingin mengganti nama beberapa lembar kerja dengan nilai sel tertentu di setiap lembar. Misalnya, sheet1 akan sama dengan nilai sel A1-nya, dan sheet2 juga akan sama dengan nilai sel A1-nya. Pilih lembar kerja di Lembar kerja kotak, lalu pilih Ubah nama lembar kerja dengan sel tertentu opsi, dan tentukan sel A1 di dalam kotak.

3. Nama sheet tidak akan berubah secara otomatis dengan perubahan nilai sel.

  Jika Anda ingin memiliki uji coba gratis (

30
-day) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

Buat nama tab lembar sama dengan nilai sel dengan Kutools for Excel


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-2021 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
Urutkan komentar berdasarkan
komentar (26)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya menempelkan ini seperti yang diinstruksikan tetapi tidak muncul di daftar Makro saya yang tersedia. Saya mencoba menjalankannya secara manual dengan memasukkan nama Makro. Ketika mencoba menjalankan Macro, muncul pesan kesalahan "Argument no optional".

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika Tidak Berpotongan(Target, Rentang("A1")) Tidak Ada Apa-apanya
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
End Sub

Adakah orang lain yang menjalankan kode ini dan memiliki masalah yang sama?

Sebagai pengujian, saya menjalankan lebih banyak kode dasar dan berfungsi dengan baik sehingga nilai dalam "A1" tidak menyebabkan masalah. Ketika saya menjalankan kode di bawah ini, saya dapat melihat nama Makro "myTabName" di daftar Makro. Kode di atas tidak muncul dan saya berasumsi ini karena argumen bug/hilang.

SubnamaTabsaya()
ActiveSheet.Name = ActiveSheet.Range("A1")
End Sub

Terima kasih atas bantuan Anda karena saya sangat ingin menggunakan kode yang dimaksudkan untuk mengotomatiskan perubahan nama tab berdasarkan nilai sel..
Komentar ini diminimalkan oleh moderator di situs
Jason yang terhormat,
Kode berfungsi dengan baik dalam kasus saya. Bisakah Anda memberikan versi Office Anda? Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Saya membuat kode ini berfungsi, tetapi tidak secara otomatis memperbarui nama tab ketika sel itu menarik nama dari jika mereferensikan sel lain (dan sel itu berubah).


Yaitu saya mengubah sel dalam daftar master, yang mengubah teks sel di sel tertentu pada setiap tab, yang dirujuk oleh kode sebagai nama tab, TETAPI tab tersebut tidak memperbarui namanya.
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Kode VBA berikut dapat menyelesaikan masalah Anda. Terima kasih atas komentar Anda1

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Redupkan xRg Sebagai Rentang, xCell Sebagai Rentang
On Error Resume Next
Jika Tidak Berpotongan(Target, Rentang("A1")) Tidak Ada Apa-apanya
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
Application.EnableEvents = Salah
Tetapkan xRg = ActiveSheet.Range("A1").Preseden
Jika Tidak xRg Bukan Apa-apa Maka
Untuk Setiap xCell Dalam xRg
ActiveSheet.Name = ActiveSheet.Range("A1")
Next
End If
Application.EnableEvents = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Masih tidak berfungsi. Saya mengalami masalah yang sama dengan jJJ. kristal: Apakah seluruh kode ditampilkan dalam balasan Anda?
Baris terakhir yang ditampilkan dalam komentar Anda adalah "Set xRg = ActiveSheet.Range("A1").Precedents"
Komentar ini diminimalkan oleh moderator di situs
JAS yang terhormat,
Silahkan klik tombol Baca Selengkapnya di sisi kanan komentar untuk menampilkan seluruh komentar.
Komentar ini diminimalkan oleh moderator di situs
Masih memiliki masalah yang sama.

Saya memiliki A1 dari lembar baru yang mengarah ke sel lain di tab yang berbeda. Ini memperbarui pertama kali (saat Anda menjalankan) tetapi kemudian tidak ada perubahan saat mengedit sel master
Komentar ini diminimalkan oleh moderator di situs
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Excel.Range)
Tetapkan Target = Rentang("A1")
Jika Target = "" Kemudian Keluar Sub
Pada Kesalahan GoTo Badname
ActiveSheet.Name = Kiri(Target, 31)
Keluar dari Sub
Nama yang buruk:
MsgBox "Mohon revisi entri di A1." & Chr(13) _
& "Tampaknya berisi satu atau lebih" & Chr(13) _
& "karakter ilegal." & Chr(13)
Rentang("A1").Aktifkan
End Sub
Komentar ini diminimalkan oleh moderator di situs
Masih masalah yang sama, itu berubah pertama kali. ketika saya menautkan sel itu ke lembar lain dan mengubahnya, itu tidak mengubahnya secara otomatis
Komentar ini diminimalkan oleh moderator di situs
Saya perlu menggunakan kode ini tetapi saya belum pernah memasukkan kode vba sebelumnya. Bimbingan apa pun akan dihargai.
Komentar ini diminimalkan oleh moderator di situs
Saya mengubah sel dalam daftar master, yang mengubah teks sel dalam sel tertentu pada setiap tab, yang dirujuk oleh kode sebagai nama tab, TETAPI tab tersebut tidak memperbarui namanya.

---- itu tidak berhasil
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan seluruh kode, dan itu berhasil. Terima kasih banyak atas bantuan Anda!
Komentar ini diminimalkan oleh moderator di situs
JAS yang terhormat,
Saya senang bisa membantu.
Komentar ini diminimalkan oleh moderator di situs
Anda lebih suka menggunakan makro sederhana



Sub Makro3()
Indeks redup Sebagai Integer
Untuk indeks = 1 Sampai 18

Lembar(indeks).Nama = Lembar(indeks).Rentang("A2").Nilai

indeks berikutnya



End Sub
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Terima kasih untuk berbagi.
Komentar ini diminimalkan oleh moderator di situs
Ini persis yang saya butuhkan, tetapi saya memerlukan tab untuk membuat ulang tanggal dan itu tidak berfungsi ... Saya berasumsi ini ada hubungannya dengan cara excel mengerjakan tanggal dan waktu, adakah yang bisa menyarankan solusi?
Komentar ini diminimalkan oleh moderator di situs
Hai Nick,
Excel tidak mendukung pengetikan nama lembar yang berisi karakter khusus. Jika tanggal yang Anda ketik berisi karakter /, Anda tidak dapat membuat nama lembar dengan tanggal tersebut.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa mereferensikan dua sel. misalnya nama dan nomor id?
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan kode persis Anda dari kode di atas untuk kode VBA yang berfungsi sempurna untuk apa yang saya butuhkan. Namun, saya memiliki banyak makro pada lembar yang disebut Template Pekerjaan yang disalin dan digunakan kembali untuk setiap pekerjaan baru. Saya merancang semua makro saya berdasarkan versi salinan baru yang disebut Template Pekerjaan (2). Setelah nama lembar diubah menjadi nama pekerjaan baru, makro tidak lagi berfungsi dan harus melakukannya secara manual. Saya ingin dapat menggunakan tombol Makro saya kapan saja daripada hanya menggunakannya sebelum saya mengubah nama lembar.

Apakah ada cara agar kode VBA selalu merujuk ke nama sheet sebelum menjalankan fungsi kode lainnya?
Komentar ini diminimalkan oleh moderator di situs
Berapa nr lembar kerja tertinggi, yang dapat diubah namanya melalui Kutools Plus? karena excel membiarkan saya hanya mengubah 17 nama, dan hanya itu
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja dengan sempurna untuk lembar kerja pertama saya, tetapi tidak untuk yang kedua atau ketiga dll (saya memiliki hingga sekitar 20 lembar kerja yang semuanya membutuhkan fungsi ini). Apakah saya melewatkan sesuatu?
Komentar ini diminimalkan oleh moderator di situs
Hai A Owen,
Kode ini hanya berfungsi untuk satu lembar kerja per waktu. Maaf untuk ketidaknyamanannya.
Komentar ini diminimalkan oleh moderator di situs
Hai Kristal,

Ketika saya menempelkan kode Anda, kode itu kembali dengan kesalahan "tipe yang ditentukan pengguna tidak ditentukan"?

Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Halo Tom J,
Pastikan ketiga opsi ini dicentang di kotak dialog Referensi - VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Komentar ini diminimalkan oleh moderator di situs
bekerja dengan indah!
Komentar ini diminimalkan oleh moderator di situs
bonjour,
que voulez-vous dire par appuyer autre autre+q dans le code vba après avoir collé.
J'ai simplement fermé la page après avoir collé et a ne marche pas
merci
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL