Excel VBA Adı Çalışma Sayfası
VBA'da bir çalışma sayfasını adlandırmak için herhangi bir özel beceriye gerek yoktur. Sadece mevcut sayfa adını girerek değiştirdiğimiz sayfa adını referans göstermemiz gerekiyor. Örneğin, "Satış" adlı sayfayı değiştirmek istiyorsak, o zaman Çalışma Sayfası nesnesini kullanarak sayfayı adıyla çağırmamız gerekir.
Çalışma sayfaları ("Satış")
Sayfa isminden bahsettikten sonra, çalışma sayfası adını değiştirmek için “Ad” özelliğini seçmemiz gerekiyor.
Çalışma sayfaları ("Satış"). Ad
Şimdi istediğimiz gibi Name özelliğini isme ayarlamamız gerekiyor. "Satış" ı "Satış Sayfası" olarak değiştirmek istediğinizi varsayın, ardından "AD" özelliğinin arkasına eşit işareti koyun ve yeni adı çift tırnak içine girin.
Çalışma Sayfaları ("Satış"). Ad = "Satış Sayfası"
Bunun gibi, çalışma sayfası adını da Name özelliğini kullanarak değiştirebiliriz.
VBA Kullanarak Çalışma Sayfasını Adlandırma Örnekleri
Örnek 1
Değişkenleri Kullanarak Sayfayı Değiştirin veya Yeniden Adlandırın.
Örneğin, aşağıdaki örnek koda bakın.
Kod:
Sub Name_Example1 () Dim Ws as Worksheet Set Ws = Worksheets ("Sales") Ws.Name = "Sales Sheet" End Sub
Yukarıda 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 olan referansı "Satış" olarak belirledim.
Set Ws = Çalışma Sayfaları ("Satış")
Artık "Ws" değişkeni, "Satış" çalışma sayfasının referansını tutar.
Şimdi "Ws" değişkenini kullanarak, çalışma sayfasını "Satış Sayfası" olarak yeniden adlandırdım.
Bu kod, "Satış" adını "Satış Sayfası" olarak değiştirecektir.
Hatırlanması Gereken Önemli Not
Excel çalışma sayfasının adını bir addan diğerine nasıl değiştireceğimizi gördük. Bununla birlikte, kodu tekrar çalıştırırsak, Abonelik Aralık Dışında hatası alacağız.
VBA Makrolarında uzman edinmenin anahtarlarından biri, hataları ele almaktır. Hataları işlemeden önce, bu hatayı neden aldığımızı bilmemiz gerekir.
Bu hatayı almamızın nedeni, önceki adımın kendisinde "Satış" adlı çalışma sayfasını zaten "Satış Sayfası" olarak değiştirmiş olmamızdır.
"Satış" adında bir sayfamız yok, bu alt simgeyi aralık dışı hatası alacağız.
Örnek 2
Tüm çalışma sayfası adlarını Tek Sayfada alın .
Çalışma kitabınızda bol miktarda çalışma sayfanız olduğunu ve tüm bu çalışma sayfalarının adını tek çalışma sayfalarının herhangi birinde almak istediğinizi varsayalım. Bu, VBA kodlaması kullanılarak yapılabilir.
Örneğin, aşağıdaki resme bakın.
Burada çok çarşafımız var.
Tüm bu sayfalarda, "Dizin Sayfası" adlı sayfadaki her sayfanın adına ihtiyacımız var. Aşağıdaki kodu sizin için yazdım.
Kod:
Sub All_Sheet_Names () Dim Ws As Worksheet As ActiveWorkbook.Worksheets LR = Worksheets ("Index Sheet") Hücreler (Rows.Count, 1) .End (xlUp) .Satır + 1 'Bu LR değişken Son kullanılan satır Hücrelerini bulmak için (LR, 1) .ActiveCell.Value = Ws.Name Sonraki Ws End Sub
Şimdi bu kodu modülünüze kopyalayın.
Şimdi, çalışma sayfalarından herhangi birini "Dizin Sayfası" olarak adlandırarak kodu çalıştırın. Bu kod, "Dizin Sayfası" ndaki tüm çalışma sayfası adlarını verecektir.
Bunun gibi, VBA'daki çalışma sayfasının "NAME" özelliğini kullanarak, çalışma sayfalarının adıyla oynayabiliriz. Yeniden adlandırabilir, çıkarabilir ve belirli çalışma sayfasını seçebilir ve "Ad" özelliğini kullanarak yapılabilecek diğer birçok şeyi yapabiliriz.
Hatırlanacak şeyler
- VBA'daki NAME özelliktir.
- Bu adı kullanarak çalışma sayfasını yeniden adlandırabiliriz ve ayrıca sayfa adlarını çıkarabiliriz.
- Kodla yazılmış çalışma kitabından başka çalışma kitaplarına atıfta bulunuyorsanız, belirtilen çalışma kitabındaki çalışma sayfasının herhangi bir adını değiştirebiliriz.
- Çalışma sayfası adı eşleşmezse, alt simge aralık dışında kalır.
