Menamakan semula helaian di excel dilakukan dari bar tugas di bawah lembaran kerja yang ada dengan mengklik dua kali pada lembaran kerja, tetapi di VBA kami menggunakan kaedah hartanah Lembaran atau Lembaran Kerja untuk menamakan semula helaian, sintaks untuk menamakan semula helaian di VBA adalah seperti Helaian berikut (" Nama Helaian Lama "). Nama =" Nama Helaian Baru ".
Namakan semula Helaian dalam Excel VBA
Kita semua telah melakukan tugas ini untuk menamakan semula lembaran kerja mengikut identiti kita atau mengikut keselesaan kita, bukan? Menamakan semula bukanlah ilmu roket untuk dikuasai, tetapi jika anda pengekod VBA, anda pasti mengetahui tugas ini untuk menamakan semula lembaran kerja. Oleh kerana kita bekerja dengan lembaran kerja dengan menggunakan namanya, penting untuk mengetahui kepentingan nama lembaran kerja dalam pengekodan VBA. Dalam artikel ini, kami akan menunjukkan kepada anda cara menamakan semula helaian menggunakan pengkodan Excel VBA.
Bagaimana Menamakan Semula Lembaran di VBA?
Menukar nama 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 menamakan semula lembaran yang dinamakan sebagai "Lembaran 1", maka kita perlu memanggil lembaran itu dengan namanya menggunakan objek Lembar Kerja.
Lembaran kerja ("Lembaran1")
Setelah menyebut nama lembaran, kita perlu memilih sifat "Nama" untuk menamakan semula nama lembaran kerja.
Lembaran kerja ("Lembaran1"). Nama
Sekarang kita perlu menetapkan nama Nama sesuai dengan keinginan kita.
Lembaran Kerja ("Lembaran1"). Nama = "Nama Baru"
Seperti ini, kita boleh menamakan semula nama lembaran kerja di VBA menggunakan sifat Nama.
Dalam bahagian artikel berikut, kami akan menunjukkan lebih banyak contoh menukar atau menamakan semula lembaran kerja.
Contoh Ganti Nama Lembaran Kerja di Excel VBA
Berikut adalah contoh Helaian Ganti Nama VBA.
Contoh # 1 - Tukar atau Namakan semula lembaran menggunakan Pembolehubah VBA.
Contohnya, lihat contoh kod di bawah.
Kod:
Sub Ganti Nama_Contoh1 () Dim Ws Sebagai Set Lembaran Kerja Ws = Lembaran Kerja ("Lembaran1") Ws.Name = "Lembaran Baru" Sub Akhir
Dalam kod di atas terlebih dahulu, saya telah menyatakan pemboleh ubah sebagai Lembaran Kerja.
Dim Ws Sebagai Lembaran Kerja
Seterusnya, saya telah menetapkan referensi ke variabel sebagai "Sheet1" menggunakan objek lembaran kerja.
Tetapkan Ws = Lembaran Kerja ("Lembaran1")
Sekarang pemboleh ubah "Ws" memegang rujukan lembaran kerja "Sheet1".
Sekarang menggunakan pemboleh ubah "Ws", saya telah menamakan semula lembaran kerja sebagai "Lembar Baru."
Kod ini akan mengubah nama "Sheet1" menjadi "Sheet Baru."
Sekiranya saya menjalankan kod secara manual atau melalui kekunci pintas F5, maka, sekali lagi kita akan mendapat ralat Subscript Out of Range.
Sebab mengapa kami mendapat ralat ini kerana, pada langkah sebelumnya itu sendiri, kami telah mengubah lembaran kerja bernama "Sheet1" menjadi "New Sheet." Oleh kerana tidak ada lagi nama lembar kerja, "Sheet1" tidak tersedia, VBA melemparkan ralat ini.
Contoh # 2 - Dapatkan semua Nama Lembaran Kerja dalam Helaian Tunggal.
Kita boleh mendapatkan semua nama lembaran kerja buku kerja dalam satu helaian. Kod di bawah akan mengekstrak semua nama lembaran kerja.
Kod:
Sub Renmae_Contoh2 () Dim Ws Sebagai Lembaran Kerja Dim LR Selagi Untuk Setiap Ws Dalam ActiveWorkbook. Lembaran Kerja LR = Lembaran Kerja ("Lembaran Utama"). Sel (Rows.Count, 1). End (xlUp). Baris + 1 Sel (LR, 1). Pilih ActiveCell.Value = Ws.Name Next Ws End Sub
Kod ini akan mengekstrak semua nama lembaran kerja yang tersedia ke helaian bernama "Lembaran Utama."
Contoh # 3 - Tetapkan Nama Kekal ke Lembaran Kerja Excel Menggunakan VBA
Oleh kerana kita bekerja dengan nama lembaran dalam pengekodan, penting untuk menetapkan nama tetap kepada mereka. Bagaimana kita menetapkan nama kekal untuk mereka?
Contohnya, lihat kod di bawah.
Kod:
Sub Ganti Nama_Contoh3 () Lembaran Kerja ("Lembaran1"). Pilih Sub Akhir
Kod di atas akan memilih Lembaran1.
Sekiranya buku kerja anda digunakan oleh banyak orang, jika seseorang menukar nama lembaran kerja, maka kami akan mendapat ralat Subscript Out of Range.
To avoid this, we can set the permanent name to it. To set the permanent name to follow the below steps.
Step 1: Select the sheet we need to set the permanent name to in Visual Basic Editor.
Step 2: Press the F4 key to see the Properties window.
Step 3: Under Name, Property Change the name to “New Name.”
As you can see, one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet.”
Now in coding, we will use the new name instead of an actual visible name.
Code:
Sub Rename_Example3() NewSheet.Select End Sub
Now come back to the worksheet window. We can still see the sheet name as “Sheet1” only.
Now I will change the sheet name to “Sales.”
Sekiranya saya menjalankan kod menggunakan kunci F5 atau secara manual, ia tetap akan memilih helaian bernama "Penjualan" sahaja. Oleh kerana kami telah memberikan nama tetap, ia masih akan memilih helaian yang sama sahaja.
