Bu makale aşağıdaki konulardaki sorularınızın cevaplarını içermektedir Excel'de adı olan bir sayfa nasıl eklenir VBA Bu tür benzersiz numaralar arıyorsanız, doğru yere geldiniz. Burada, şunları tartışacağız 6 kolay & Excel'de bir isimle sayfa eklemenin kanıtlanmış yolları VBA .

Alıştırma Çalışma Kitabını İndirin

Daha iyi anlamak ve pratik yapmak için aşağıdaki Excel çalışma kitabını indirebilirsiniz.

Ad ile Sayfa Eklemek için VBA Kodu

Kullanacağız Sayfalar nesnesi Excel'de bir sayfa eklemek için temel VBA kodunu kullanarak aşağıdaki gibi bir sayfa ekleyebilirsiniz.

Daha önce: İsteğe bağlıdır. Belirli bir sayfadan önce yeni bir sayfa ekler.

Sonra: Bu da isteğe bağlıdır. Belirli bir sayfadan sonra yeni bir sayfa ekler.

Say: Bu da isteğe bağlı bir parametredir ve eklenecek sayfa sayısını gösterir.

Tip: Bu da isteğe bağlıdır. Sayfanın türünü belirtir. Burada varsayılan değer xlÇalışma Sayfası .

Excel VBA'da İsimle Sayfa Eklemenin 6 Farklı Yolu

Excel'de, ekle ile yeni bir sayfa ekleyebiliriz ⊕ simgesinin hemen yanında yer alır. Excel'de aynı görevi otomatikleştirmeyi hiç düşündünüz mü? Artık düşünmeyin, çünkü VBA seni koruyor.

Burada şu adda bir çalışma sayfamız var Satış Raporu İçerisinde Günlük Satış Raporu belli bir kafeteryanın. Sütunlarda B , C ve D isimleri vardır. Satış Temsilcileri , Eşyalar ve Miktar sırasıyla.

Burada, aşağıdakilerin yardımıyla bu çalışma kitabına başka sayfalar ekleyeceğiz VBA makrosu .

Burada, biz kullandık Microsoft Excel 365 sürümünü kullanıyorsanız, uygunluğunuza göre başka herhangi bir sürümü kullanabilirsiniz.

1. Excel VBA'da Ad ile Sayfa Ekleme

İlk yöntemimizde, aşağıdaki adla bir sayfa ekleyeceğiz kullanıcı girişi Öğrenmeye meraklıysanız, bu basit adımları izleyin.

📌 Adımlar:

• En başta, şu adrese gidin Geliştirici sekmesi.
• İkinci olarak, şunları seçin Visual Basic üzerinde Kod Grup.
• Alternatif olarak, tuşuna basın ALT + F11 aynı görevi yapmak için.

Not: tuşuna bastığınızdan emin olun. ALT tuşunun solundaki SPACEBAR . Başka bir işlem kullanırsanız işlem yürütülmez ALT Anahtarlar.

• Anında Uygulamalar için Microsoft Visual Basic penceresi açılır.
• Daha sonra Ekleme sekmesi.
• Ardından, şunları seçin Modül seçeneklerden.

• Şu anda, kodu açar Modül .
• Daha sonra, aşağıdaki kodu Modül .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Lütfen sayfa adını girin ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Kod Dökümü

• İlk olarak, Sub prosedürünü şu şekilde çağırıyoruz Add_Sheet_with_Name .
• Daha sonra değişken tiplerini tanımlarız.
• Daha sonra, biz ekledik Hatada Sonraki Devam Et ifadesi. Bu, tüm hataları yok sayacaktır.
• Daha sonra, biz kullandık InputBox Ayrıca, sayfanın adını kullanıcıdan almak için metin dizesini InputBox içine sheet_name değişken.
• Ardından, eğer sheet_name boşsa, kod devam etmeyecektir.
• Son olarak, biz Ekle.İsim metodunu kullanarak yeni oluşturulan sayfayı isimlendirebilirsiniz. sheet_name değişken.

• Bu anda, şu düğmeye basın Çalıştır (⏵) simgesine basabilirsiniz. F5 klavyenizde.

• Birdenbire bir giriş kutusu açılır.
• Burada, yeni sayfanın adını girin. Bu durumda, şunları yazdık Kâr Kutunun içinde.
• Daha sonra, tıklayın TAMAM. .

• Böylece, kodumuz çalışacak ve şu adda bir sayfa ekleyecektir Kâr .

Not: Sayfamız için herhangi bir yer belirtmedik. Varsayılan olarak, aktif sayfadan önce yerleştirilir.

Daha fazlasını okuyun: Başka Bir Çalışma Kitabına Sayfa Eklemek için Excel VBA (3 Kullanışlı Örnek)

2. Belirli Sayfadan Önce Adı Olan Sayfa Eklemek için Excel VBA Uygulama

İkinci yöntemimizde, belirli bir sayfadan önce adıyla bir sayfa ekleyeceğiz. İşlemi adım adım inceleyelim.

📌 Adımlar:

• İlk olarak, kodu getirin Modül penceresinde gösterildiği gibi Yöntem 1 .
• İkinci olarak, aşağıdaki kodu bunun içine yazın.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Sales Report").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub 

Kod Dökümü

• İlk olarak, Sub prosedürünü şu şekilde çağırıyoruz Add_Sheet_Before_Specific_Sheet .
• Daha sonra Satış Raporu Bu, başka bir sayfada olsak bile kodun çalışmasını sağlayacaktır.
• Daha sonra, aşağıdaki Ekle.İsim Bu sayfa, yeni oluşturulan sayfayı adlandırmak için Kâr Ayrıca, sayfayı şu şekilde adlandırdık Bilanço .

• Daha sonra, kodu aşağıda gösterildiği gibi çalıştırın Yöntem 1 .
• Böylece, yeni bir sayfa ekleyecektir Bilanço adlı sayfadan önce Kâr .

Daha fazlasını okuyun: Excel VBA ile Değişken İsimli Sayfa Ekleme (5 İdeal Örnek)

3. Belirli Sayfadan Sonra İsimli Sayfa Eklemek için Excel VBA Kullanımı

Bu yöntemde, aşağıdaki sayfadan sonra bir sayfa ekleyeceğiz Kâr Süreci detaylı olarak görelim.

📌 Adımlar:

• İlk olarak, kodu getirin Modül penceresinde gösterildiği gibi Yöntem 1 .
• Bundan sonra, aşağıdaki kodu bunun içine yazın.

 Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub 

Bu kod neredeyse şu kodlara benzer Yöntem 2 . Sadece, burada parametreyi kullandık Sonra daha ziyade Önce Çünkü yeni sayfayı belirli bir sayfanın ardına eklemek istiyoruz.

• Daha sonra, kodu aşağıda gösterildiği gibi çalıştırın Yöntem 1 .
• Böylece, yeni bir sayfa ekleyecektir Depo adlı sayfadan sonra Kâr .

Daha fazlasını okuyun: Mevcut Değilse Sayfa Eklemek için Excel VBA (Hızlı Adımlarla)

4. Çalışma Kitabının Başına Adı Olan Sayfa Ekleme

Bu bölümde, Excel'de çalışma kitabının başına yeni bir sayfa eklemek için VBA Bu yüzden, daha fazla gecikmeden, nasıl yapacağımızı görelim.

📌 Adımlar:

• Başlangıçta, kodu getirin Modül penceresinde gösterildiği gibi Yöntem 1 .
• Daha sonra, aşağıdaki kodu bunun içine yazın.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Şirket Profili" End Sub 

Burada, yeni çalışma sayfasını çalışma kitabının ilk sayfasından önce ekliyoruz. Bu, çalışma kitabının başlangıcı anlamına gelir. Sonuç olarak, artık ilk sayfadır. Ayrıca, sayfaya şu adı verdik Şirket Profili .

• Ardından, kodu aşağıda gösterildiği gibi çalıştırın Yöntem 1 .
• Bu nedenle, yeni bir sayfa ekleyecektir Şirket Profili çalışma kitabının başında.

Daha fazlasını okuyun: Excel Makrosu: Yeni Sayfa Oluşturma ve Yeniden Adlandırma (3 İdeal Örnek)

5. Çalışma Kitabının Sonuna Sayfa Eklemek için Excel VBA'yı Kullanma

Bu bölümde, şunları yapacağız çalışma kitabının son sayfasından sonra bir sayfa ekleme Aşağıda süreci göstermeme izin verin.

📌 Adımlar:

• Öncelikle, kodu açın Modül penceresinde gösterildiği gibi Yöntem 1 .
• İkinci olarak, aşağıdaki kodu buraya yapıştırın.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Gelir Tablosu" End Sub 

Kod Dökümü

• İlk olarak, Sub prosedürünü Sheet_End_Workbook olarak çağırıyoruz.
• Daha sonra, aşağıdaki Ekle.İsim metodunu kullanarak yeni oluşturulan sayfaya isim vereceğiz. Bu sayfayı çalışma kitabının son sayfasından sonra oluşturacağız. Sayfalar.Sayım Ayrıca, sayfaya şu adı verdik Gelir Tablosu .

• Bundan sonra, kodu aşağıda gösterildiği gibi çalıştırın Yöntem 1 .
• Bu nedenle, yeni bir sayfa ekleyecektir Gelir Tablosu çalışma kitabının sonunda.

Daha fazlasını okuyun: Excel'de VBA Kullanarak Yeni Çalışma Kitabı Oluşturma ve Kaydetme

6. Excel VBA ile Hücre Değeri Kullanarak Birden Çok Sayfayı Tanıtma

Son yöntem için, Excel'i kullanarak bir hücre aralığındaki adla çalışma kitabına birden çok sayfa ekleyeceğiz VBA Ayrıca, kullanıcıdan isim almak için aralık girmesini isteyeceğiz. Öyleyse, aşağıdaki adımlara bir göz atalım.

📌 Adımlar:

• İlk olarak, kodu açın Modül penceresinde gösterildiği gibi Yöntem 1 .
• Daha sonra, aşağıdaki kodu kopyalayın ve buraya yapıştırın.

 Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & " to Insert Sheets", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Sales Report").Activate For Each cc In rng Sheets.Add(After:=ActiveSheet).Name = cc.Value Next cc Application.ScreenUpdating = True End Sub 

Kod Dökümü

• İlk olarak, Add_Multiple_Sheets_Using_Cell_Value olarak Alt prosedürü çağırıyoruz.
• Daha sonra değişken tiplerini tanımlarız.
• Daha sonra InputBox kullanıcıdan veri aralığını almak için.
• Dördüncü olarak, sayfayı etkinleştiriyoruz Satış Raporu .
• Daha sonra, bir Her Bir Sonraki İçin Seçilen hücre aralığından tek tek geçmek için döngü.
• Daha sonra, aşağıdaki Ekle.İsim metodunu kullanarak yeni oluşturulan sayfaya isim vereceğiz. Bu sayfaları aktif sayfadan sonra oluşturacağız Satış Raporu çalışma kitabının.

• Şimdi, kodu aşağıda gösterildiği gibi çalıştırın Yöntem 1 .
• Anında Exceldemy giriş kutusu açılır.
• Ardından, hücrelere B5:B9 kutudaki aralık.
• Son olarak, tıklayın TAMAM. .

• Son olarak, şunları ekleyecektir beş içindeki hücre değerlerinden sonra adlandırılan sayfalar B5:B9 aralık. Hepsi sayfadan sonra Satış Raporu .

Sonuç

Bu makale, Excel tarafından adları olan sayfalar eklemek için kolay ve kısa çözümler sunar VBA . indirmeyi unutmayın Uygulama Dosya. Bu makaleyi okuduğunuz için teşekkür ederiz, umarız yardımcı olmuştur. Herhangi bir sorunuz veya öneriniz varsa lütfen yorum bölümünde bize bildirin. Lütfen web sitemizi ziyaret edin Exceldemy daha fazlasını keşfetmek için.