Mengganti nama lembar di excel dilakukan dari bilah tugas di bawah lembar kerja hadir dengan mengklik dua kali pada mereka, tetapi di VBA kami menggunakan metode properti Lembar atau Lembar kerja untuk mengganti nama lembar, sintaks untuk mengganti nama lembar di VBA adalah sebagai berikut Lembar (" Nama Sheet Lama "). Name =" Nama Sheet Baru ".
Ubah nama Sheet di Excel VBA
Kita semua telah melakukan tugas mengganti nama lembar kerja ini sesuai identitas kita atau sesuai kenyamanan kita, bukan? Mengganti nama bukanlah ilmu roket untuk dikuasai, tetapi jika Anda adalah pembuat kode VBA, maka Anda harus mengetahui tugas mengganti nama lembar kerja ini. Karena kami bekerja dengan lembar kerja dengan menggunakan namanya, penting untuk mengetahui pentingnya nama lembar kerja dalam pengkodean VBA. Pada artikel ini, kami akan menunjukkan cara mengganti nama sheet menggunakan pengkodean VBA Excel.
Bagaimana cara mengganti nama lembar di VBA?
Mengubah nama lembar kerja tidak memerlukan keahlian khusus. Kita hanya perlu mereferensikan nama sheet mana yang kita ubah dengan memasukkan nama sheet yang ada.
Misalnya, jika kita ingin mengganti nama sheet menjadi "Sheet 1", maka kita perlu memanggil sheet dengan namanya menggunakan objek Worksheet.
Lembar Kerja ("Sheet1")
Setelah menyebutkan nama sheet, kita perlu memilih properti "Name" untuk mengganti nama nama worksheet.
Lembar Kerja ("Sheet1"). Nama
Sekarang kita perlu mengatur properti Name ke nama sesuai keinginan kita.
Lembar Kerja ("Sheet1"). Name = "New Name"
Seperti ini, kita bisa mengganti nama worksheet di VBA menggunakan properti Name.
Di bagian artikel berikut ini, kami akan menunjukkan kepada Anda lebih banyak contoh mengubah atau mengganti nama lembar kerja.
Contoh Ganti Nama Lembar Kerja di Excel VBA
Di bawah ini adalah contoh Lembar Ganti Nama VBA.
Contoh # 1 - Ubah atau Ubah nama sheet menggunakan Variabel VBA.
Misalnya, lihat kode contoh di bawah ini.
Kode:
Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub
Pada kode di atas, saya telah mendeklarasikan variabel sebagai Worksheet.
Redupkan Sebagai Lembar Kerja
Selanjutnya, saya telah menetapkan referensi ke variabel sebagai "Sheet1" menggunakan objek lembar kerja.
Set Ws = Lembar Kerja ("Sheet1")
Sekarang variabel "Ws" memegang referensi dari lembar kerja "Sheet1".
Sekarang menggunakan variabel "Ws", saya telah mengganti nama worksheet menjadi "New Sheet".
Kode ini akan mengubah nama "Sheet1" menjadi "Lembar Baru."
Jika saya menjalankan kode secara manual atau melalui tombol pintas F5, maka, lagi-lagi kita akan mendapatkan kesalahan Subscript Out of Range.
Alasan mengapa kami mendapatkan kesalahan ini karena, pada langkah sebelumnya sendiri, kami telah mengubah lembar kerja bernama "Sheet1" menjadi "Lembar Baru." Karena tidak ada lagi nama lembar kerja, "Sheet1" tidak tersedia, VBA melempar kesalahan ini.
Contoh # 2 - Dapatkan semua Nama Lembar Kerja dalam Satu Lembar.
Kita bisa mendapatkan semua nama lembar kerja dari buku kerja dalam satu lembar. Kode di bawah ini akan mengekstrak semua nama lembar kerja.
Kode:
Sub Renmae_Example2 () Dim Ws As Worksheet Dim LR As Long For Each Ws In ActiveWorkbook.Worksheets LR = Worksheets ("Main Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1). Pilih ActiveCell.Value = Ws.Name Berikutnya Ws End Sub
Kode ini akan mengekstrak semua nama lembar kerja yang tersedia ke lembar bernama "Lembar Utama".
Contoh # 3 - Tetapkan Nama Permanen ke Lembar Kerja Excel Menggunakan VBA
Karena kami bekerja dengan nama sheet dalam pengkodean, penting untuk menetapkan nama permanen untuk mereka. Bagaimana cara kami menetapkan nama permanen untuk mereka?
Misalnya, lihat kode di bawah ini.
Kode:
Sub Rename_Example3 () Worksheets ("Sheet1") Pilih End Sub
Kode di atas akan memilih Sheet1.
Jika workbook anda digunakan oleh banyak orang, jika seseorang merubah nama worksheet tersebut, maka kita akan mendapatkan error 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.”
Jika saya menjalankan kode menggunakan tombol F5 atau secara manual maka masih akan memilih lembar bernama "Penjualan" saja. Karena kami telah memberikan nama permanen untuk itu, itu masih akan memilih lembar yang sama saja.
