Lembaran Kerja Nama VBA Excel
Dalam VBA, untuk menamakan lembaran kerja tidak memerlukan kemahiran khas. Kita hanya perlu merujuk nama helaian mana yang kita ubah dengan memasukkan nama helaian yang ada. Sebagai contoh, jika kita ingin menukar lembaran yang diberi nama "Penjualan" maka kita perlu memanggil lembaran dengan namanya menggunakan objek Lembar Kerja.
Lembaran kerja ("Jualan")
Setelah menyebut nama lembaran, kita perlu memilih sifat "Nama" untuk menukar nama lembaran kerja.
Lembaran kerja ("Jualan"). Nama
Sekarang kita perlu menetapkan nama Nama sesuai dengan keinginan kita. Anggaplah anda ingin menukar "Penjualan" menjadi "Lembaran Jualan", kemudian letakkan tanda yang sama setelah harta "NAMA" dan masukkan nama baru dalam tanda petik dua kali.
Lembaran Kerja ("Jualan"). Nama = "Lembaran Jualan"
Seperti ini, kita boleh menukar nama lembaran kerja menggunakan sifat Nama.
Contohnya untuk Menamakan Lembaran Kerja menggunakan VBA
Contoh # 1
Tukar atau Namakan semula Lembaran menggunakan Pemboleh ubah.
Contohnya, lihat contoh kod di bawah.
Kod:
Sub Nama_Contoh1 () Dim Ws Sebagai Set Lembaran Kerja Ws = Lembaran Kerja ("Jualan") Ws.Name = "Lembaran Jualan" Sub Akhir
Pada yang pertama di atas, saya telah menyatakan pemboleh ubah sebagai Lembaran Kerja.
Dim Ws Sebagai Lembaran Kerja
Seterusnya, saya telah menetapkan referensi ke variabel sebagai "Penjualan" menggunakan objek lembaran kerja.
Tetapkan Ws = Lembaran Kerja ("Jualan")
Sekarang pemboleh ubah "Ws" memegang rujukan lembaran kerja "Penjualan."
Sekarang menggunakan pemboleh ubah "Ws", saya telah menamakan semula lembaran kerja sebagai "Lembaran Jualan."
Kod ini akan mengubah nama "Penjualan" menjadi "Lembaran Jualan."
Nota Penting untuk Diingat
Kami baru sahaja melihat bagaimana menukar nama lembaran kerja excel dari satu nama ke yang lain. Namun, jika kita menjalankan kodnya lagi, kita akan mendapat ralat Subscript Out of Range.
Salah satu kunci untuk mendapatkan pakar dalam VBA Macros adalah menangani kesilapan. Sebelum menangani ralat, kita perlu mengetahui mengapa kita mendapat ralat ini.
Sebab mengapa kami mendapat ralat ini kerana, pada langkah sebelumnya itu sendiri, kami telah mengubah lembaran kerja bernama "Sales" menjadi "Sales Sheet."
Kami tidak mempunyai helaian yang disebut sebagai "Penjualan". Kami akan mendapatkan langganan ini dari rentang kesalahan.
Contoh # 2
Dapatkan semua nama lembaran kerja dalam Lembaran Tunggal .
Andaikan anda mempunyai banyak lembaran kerja dalam buku kerja anda, dan anda mahu mendapatkan nama semua lembaran kerja ini dalam mana-mana satu lembaran kerja. Ini boleh dilakukan dengan menggunakan pengekodan VBA.
Contohnya, lihat gambar di bawah.
Kami mempunyai begitu banyak helaian di sini.
Dari semua helaian ini, kami memerlukan nama setiap helaian dalam helaian yang disebut "Lembaran Indeks." Saya telah menulis kod di bawah untuk anda.
Kod:
Sub Semua_Sheet_Names () Dim Ws Sebagai Lembaran Kerja Dim LR Selagi Untuk Setiap Ws Di ActiveWorkbook. Lembaran Kerja LR = Lembaran Kerja ("Lembaran Indeks"). Sel (Rows.Count, 1). End (xlUp). Baris + 1 'Variabel LR ini untuk mencari Sel baris terakhir yang digunakan (LR, 1). Pilih ActiveCell.Value = Ws.Name Next Ws End Sub
Sekarang salin kod ini ke modul anda.
Sekarang jalankan kod dengan menamakan mana-mana lembaran kerja sebagai "Lembaran Indeks." Kod ini akan memberikan semua nama lembaran kerja di "Lembaran Indeks."
Seperti ini, menggunakan sifat "NAMA" lembaran kerja di VBA, kita dapat bermain-main dengan nama lembaran kerja. Kita boleh menamakan semula, mengekstrak, dan kita dapat memilih lembaran kerja tertentu dan melakukan banyak perkara lain yang dapat dilakukan dengan menggunakan sifat "Nama".
Perkara yang Perlu Diingat
- NAMA dalam VBA adalah hak milik.
- Dengan menggunakan nama ini, kita dapat menamakan semula lembaran kerja, dan juga kita dapat mengekstrak nama helaian.
- Kami boleh menukar mana-mana nama lembaran kerja dalam buku kerja yang ditentukan jika anda merujuk kepada buku kerja lain daripada buku kerja bertulis kod.
- Sekiranya nama lembaran kerja tidak sepadan, kami akan mendapatkan langganan di luar jangkauan.
