VBA Yeniden Adlandırma Sayfası | VBA Kodunu Kullanarak Excel Çalışma Sayfası Nasıl Yeniden Adlandırılır?

Excel'de sayfaları yeniden adlandırmak, ç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 bilmeniz gerekir. 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 yazıda, 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 hangi sayfa adını değiştirdiğimize başvurmamız gerekiyor.

Örneğin, "Sayfa 1" olarak adlandırılan sayfayı yeniden adlandırmak istiyorsak, Çalışma Sayfası nesnesini kullanarak sayfayı adına göre ç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.

Bu VBA Yeniden Adlandırma Sayfası Şablonunu buradan indirebilirsiniz - VBA Yeniden Adlandırma Sayfası Şablonu

Örnek 1 - VBA Değişkenlerini kullanarak sayfayı değiştirin veya yeniden adlandırın.

Bir örnek için aşağıdaki örnek koda bakın.

Kod:

 Sub Rename_Example1 () Dim Ws as Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 

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 Alt Simge Aralık Dışında hatası alacağız.

Bu hatayı almamızın nedeni, önceki adımda "Sayfa1" adlı çalışma sayfasını zaten "Yeni Sayfa" olarak değiştirmiş olmamızdır. Artık "Sayfa1" çalışma sayfası adı olmadığı için 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:

 Alt Renmae_Example2 () Çalışma Sayfası Olarak Dim LR'yi ActiveWorkbook.Worksheets'teki Her Ws İçin Boyunca Dim LR = Çalışma Sayfaları ("Ana Sayfa"). Hücreler (Rows.Count, 1) .End (xlUp) .Sıra + 1 Hücre (LR, 1) .ActiveCell.Value = Ws.Name Sonraki Ws End Sub seçin 

Bu kod, mevcut tüm çalışma sayfası adlarını "Ana Sayfa" adlı sayfaya çıkaracaktır.

Örnek 3 - VBA Kullanarak Kalıcı Adı Excel Çalışma Sayfasına Ayarlayın

Kodlamada sayfa isimleriyle çalıştığımızdan, onlara kalıcı isimler koymak önemlidir. Onlara nasıl kalıcı isimler koyarız?

Bir örnek için aşağıdaki koda bakın.

Kod:

 Sub Rename_Example3 () Çalışma Sayfaları ("Sayfa1"). End Sub seçin 

Yukarıdaki kod Sayfa1'i seçecektir.

Çalışma kitabınız birçok kişi tarafından kullanılıyorsa, biri çalışma sayfasının adını değiştirirse, Abonelik Aralık Dışında hatası alırız.

Bundan kaçınmak için kalıcı adı ona ayarlayabiliriz. Kalıcı adı ayarlamak için aşağıdaki adımları izleyin.

Adım 1: Visual Basic Editor'da kalıcı adı ayarlamamız gereken sayfayı seçin.

Adım 2: Özellikler penceresini görmek için F4 tuşuna basın.

Adım 3: Ad altında, Özellik Adı “Yeni Ad” olarak değiştirin.

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”.

If I run the code using the F5 key or manually then it will still select the sheet named “Sales” only. Since we had given a permanent name to it, still it will select the same sheet only.