Excel VBA Nama WorkSheet
Di VBA, untuk memberi nama lembar kerja tidak membutuhkan keahlian khusus. Kita hanya perlu mereferensikan nama sheet mana yang kita ubah dengan memasukkan nama sheet yang ada. Sebagai contoh, jika kita ingin mengganti sheet dengan nama “Sales” maka kita perlu memanggil sheet tersebut dengan namanya menggunakan objek Worksheet.
Lembar Kerja ("Penjualan")
Setelah menyebutkan nama lembar, kita perlu memilih properti "Nama" untuk mengubah nama lembar kerja.
Lembar Kerja ("Penjualan"). Nama
Sekarang kita perlu mengatur properti Name ke nama sesuai keinginan kita. Asumsikan Anda ingin mengubah "Penjualan" menjadi "Lembar Penjualan", lalu beri tanda sama dengan setelah properti "NAMA" dan masukkan nama baru dalam tanda kutip ganda.
Lembar Kerja ("Penjualan"). Nama = "Lembar Penjualan"
Seperti ini, kita dapat mengubah nama lembar kerja menggunakan properti Name.
Contoh untuk Memberi Nama Lembar Kerja menggunakan VBA
Contoh 1
Ubah atau Ganti Nama Lembar menggunakan Variabel.
Misalnya, lihat kode contoh di bawah ini.
Kode:
Sub Name_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sales") Ws.Name = "Sales Sheet" End Sub
Di atas pertama, saya telah mendeklarasikan variabel sebagai Lembar Kerja.
Redupkan Sebagai Lembar Kerja
Selanjutnya, saya telah menetapkan referensi ke variabel sebagai "Penjualan" menggunakan objek lembar kerja.
Set Ws = Lembar Kerja ("Penjualan")
Sekarang variabel "Ws" memegang referensi dari lembar kerja "Penjualan".
Sekarang menggunakan variabel "Ws", saya telah mengganti nama worksheet menjadi "Sales Sheet".
Kode ini akan mengubah nama "Penjualan" menjadi "Lembar Penjualan".
Catatan Penting untuk Diingat
Kami baru saja melihat bagaimana mengubah nama lembar kerja excel dari satu nama ke nama lainnya. Namun, jika kita menjalankan kode lagi, kita akan mendapatkan error Subscript Out of Range.
Salah satu kunci untuk mendapatkan ahli dalam Makro VBA adalah menangani kesalahan. Sebelum menangani kesalahan, kita perlu tahu mengapa kita mendapatkan kesalahan ini.
Alasan mengapa kami mendapatkan kesalahan ini karena, pada langkah sebelumnya sendiri, kami telah mengubah lembar kerja bernama "Penjualan" menjadi "Lembar Penjualan."
Kami tidak memiliki sheet apa pun yang dinamai sebagai "Penjualan", kami akan mendapatkan kesalahan subskrip di luar jangkauan.
Contoh # 2
Dapatkan semua nama lembar kerja dalam Lembar Tunggal .
Asumsikan Anda memiliki banyak lembar kerja di buku kerja Anda, dan Anda ingin mendapatkan nama semua lembar kerja ini di salah satu lembar kerja tunggal. Ini dapat dilakukan dengan menggunakan pengkodean VBA.
Misalnya, lihat gambar di bawah ini.
Kami memiliki begitu banyak lembaran di sini.
Dari semua sheet ini, kita membutuhkan nama setiap sheet di sheet yang disebut "Index Sheet". Saya telah menulis kode di bawah ini untuk Anda.
Kode:
Sub All_Sheet_Names () Dim Ws As Worksheet Dim LR As Long For Each Ws In ActiveWorkbook.Worksheets LR = Worksheets ("Index Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 'This LR varaible untuk menemukan sel baris yang terakhir digunakan (LR, 1). Pilih ActiveCell.Value = Ws.Name Next Ws End Sub
Sekarang salin kode ini ke modul Anda.
Sekarang jalankan kode dengan menamai salah satu lembar kerja sebagai "Lembar Indeks". Kode ini akan memberikan semua nama lembar kerja di "Lembar Indeks".
Seperti ini, dengan menggunakan properti "NAMA" dari lembar kerja di VBA, kita bisa bermain-main dengan nama lembar kerja. Kita dapat mengganti nama, mengekstrak, dan kita dapat memilih lembar kerja tertentu dan melakukan banyak hal lain yang dapat dilakukan dengan menggunakan properti "Nama".
Hal-hal untuk diingat
- NAMA di VBA adalah properti.
- Dengan menggunakan nama ini, kita dapat mengganti nama worksheet, dan juga mengekstrak nama sheet.
- Kami bisa mengubah nama lembar kerja di buku kerja yang ditentukan jika Anda merujuk ke buku kerja lain selain kode buku kerja tertulis.
- Jika nama lembar kerja tidak cocok, kami akan mendapatkan subskrip di luar jangkauan.
