Excel'de sayfaların yeniden adlandırılması, çalışma sayfalarının altında bulunan görev çubuğundan, üzerlerine çift tıklanarak yapılır, ancak VBA'da sayfayı yeniden adlandırmak için E-Tablolar veya Çalışma Sayfası özellik yöntemini kullanırız, VBA'da bir sayfayı yeniden adlandırmak için sözdizimi aşağıdaki Sayfalardır (" Eski Sayfa Adı "). Name =" Yeni Sayfa adı ".
Excel VBA'da Sayfayı Yeniden Adlandır
Hepimiz bu çalışma sayfasını kimliğimize göre veya uygunluğumuza göre yeniden adlandırma görevini yaptık, değil mi? Yeniden adlandırma, ustalaşılacak roket bilimi değildir, ancak VBA kodlayıcısıysanız, bu çalışma sayfasını yeniden adlandırma görevini biliyor olmalısınız. Adlarını kullanarak çalışma sayfaları üzerinde çalıştığımız için, çalışma sayfası adlarının VBA kodlamasındaki önemini bilmek önemlidir. Bu makalede, Excel VBA kodlamasını kullanarak sayfayı nasıl yeniden adlandıracağınızı göstereceğiz.
VBA'da Sayfa Nasıl Yeniden Adlandırılır?
Çalışma sayfasının adını değiştirmek herhangi bir özel beceriye ihtiyaç duymaz. Sadece mevcut sayfa adını girerek değiştirdiğimiz sayfa adını referans göstermemiz gerekiyor.
Örneğin, "Sayfa 1" olarak adlandırılan sayfayı yeniden adlandırmak istiyorsak, Çalışma Sayfası nesnesini kullanarak sayfayı adıyla çağırmamız gerekir.
Çalışma sayfaları ("Sayfa1")
Sayfa adından bahsettikten sonra, çalışma sayfası adını yeniden adlandırmak için “Ad” özelliğini seçmemiz gerekir.
Çalışma sayfaları ("Sayfa1"). Ad
Şimdi istediğimiz gibi Name özelliğini isme ayarlamamız gerekiyor.
Çalışma sayfaları ("Sayfa1"). Ad = "Yeni Ad"
Bunun gibi, VBA'daki çalışma sayfası adını Ad özelliğini kullanarak yeniden adlandırabiliriz.
Makalenin ilerleyen bölümlerinde, çalışma sayfasını değiştirme veya yeniden adlandırma konusunda size daha fazla örnek göstereceğiz.
Excel VBA'da Çalışma Sayfalarını Yeniden Adlandırma Örnekleri
Aşağıda VBA Yeniden Adlandırma Sayfası örnekleri verilmiştir.
Örnek 1 - VBA Değişkenlerini kullanarak sayfayı değiştirin veya yeniden adlandırın.
Örneğin, aşağıdaki örnek koda bakın.
Kod:
Sub Rename_Example1 () Dim Ws as Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "Yeni Sayfa" Son Alt
Yukarıdaki kodda ilk olarak değişkeni Çalışma Sayfası olarak tanımladım.
Çalışma Sayfası Olarak Dim Ws
Daha sonra, çalışma sayfaları nesnesini kullanarak değişkene referansı "Sayfa1" olarak ayarladım.
Ws = Çalışma Sayfaları ("Sayfa1") ayarla
Şimdi "Ws" değişkeni "Sayfa1" çalışma sayfasının referansını tutar.
Şimdi "Ws" değişkenini kullanarak, çalışma sayfasını "Yeni Sayfa" olarak yeniden adlandırdım.
Bu kod, "Sayfa1" adını "Yeni Sayfa" olarak değiştirecektir.
Kodu manuel olarak veya F5 kısayol tuşuyla çalıştırırsam, yine bir Abonelik Aralık Dışında hatası alacağız.
Bu hatayı almamızın nedeni, önceki adımın kendisinde "Sayfa1" adlı çalışma sayfasını zaten "Yeni Sayfa" olarak değiştirmiş olmamızdır. Artık bir çalışma sayfası adı olmadığından, "Sayfa1" kullanılamaz, VBA bu hatayı atar.
Örnek 2 - Tüm Çalışma Sayfası Adlarını Tek Bir Sayfada Alın.
Çalışma kitabının tüm çalışma sayfası adlarını tek bir sayfada alabiliriz. Aşağıdaki kod, tüm çalışma sayfası adlarını çıkaracaktır.
Kod:
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).Select ActiveCell.Value = Ws.Name Next Ws End Sub
This code will extract all the available worksheet names to the sheet named “Main Sheet.”
Example #3 - Set Permanent Name to the Excel Worksheet Using VBA
Since we work with sheet names in coding, it is important to set permanent names to them. How do we set permanent names for them?
For example, look at the below code.
Code:
Sub Rename_Example3() Worksheets("Sheet1").Select End Sub
The above code will select the Sheet1.
If your workbook is used by many people, if someone changed the name of the worksheet, then we will get the Subscript Out of Range error.
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.”
Kodu F5 tuşunu kullanarak veya manuel olarak çalıştırırsam, yine de yalnızca "Satış" adlı sayfayı seçecektir. Ona kalıcı bir isim verdiğimiz için, yalnızca aynı sayfayı seçmeye devam edecek.
