Bir vba kodu veya makro aracılığıyla belirli sayıda sayfa içeren yeni bir çalışma kitabı oluşturmanız gereken durumlar olabilir. İşte yeni bir çalışma kitabı oluşturmanıza > açıp maksimum 255 yeni çalışma sayfasıyla kaydetmenize izin veren basit bir makro. Bu örnek makroda 10 çalışma sayfası içeren yeni bir çalışma kitabı oluşturacağız.
Seçenek Açık
alt create_workbook()
Çalışma Kitabı Olarak Dim wb
wb = YeniÇalışma Kitabı(10) olarak ayarla
Alt Bitiş
Çalışma Kitabı Olarak NewWorkbook(wsCount As Integer) İşlevi
Dim OriginalWorksheetCount As Long
NewWorkbook'u Ayarla = Hiçbir Şey
wsCount 255 ise İşlevden Çık
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
NewWorkbook'u Ayarla = Çalışma Kitapları.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
Bitiş İşlevi
Kod Açıklaması:
İlk önce “adlı bir prosedürümüz var.create_workbook”. Bu prosedürde workbook olarak bir wb değişkenimiz var ve bu değişken üzerinden NewWorkbook fonksiyonunu çağırıyoruz. Böylece yeni işlev çağrılır ve wscount, yeni çalışma kitabındaki çalışma sayfalarının sayısı olan 10'a ayarlanır.
Daha sonra çağrılan fonksiyona geçiyoruz. Çalışma Kitabı olarak NewWorkbook(wsCount as Integer) işlevini kullanın. 10 olan wsCount değeri, create_workbook alt öğesinden geçirilir.
NewWorkbook'u Ayarla = Hiçbir Şey
İlk olarak NewWorkbook hiçbir şeye ayarlanmaz, böylece önceki kodlarda kendisine atanabilecek diğer değerleri temizleyebiliriz.
wsCount 255 ise, İşlevden Çık
Ardından, sub'dan aktarılan değerin 1'den küçük veya 255'ten büyük olup olmadığını kontrol etmeliyiz. Bu kontrollerden herhangi birine cevabınız evet ise, fonksiyondan çıkın.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Excel seçenekleri sayfasında yeni bir çalışma kitabına dahil edilecek sayfa sayısının ayarlandığı bir parametre vardır. Bu değeri değişkene aktarıyoruz OrijinalÇalışma SayfasıCount.Değişken, excel seçeneklerinde önceden ayarlanmış olan varsayılan sayfa sayısını tutacaktır.
Application.SheetsInNewWorkbook = wsCount
Daha sonra yeni bir çalışma kitabına eklenecek sayfa sayısı için excel seçeneklerindeki parametreye sub'dan aktarılan wsCount değerini atarız. Şimdi bu parametre eski değerinden 10'a değişecektir. Eski değer 1 veya 3 veya kullanıcı tarafından ayarlanan herhangi bir sayı olabilir.
NewWorkbook'u Ayarla = Çalışma Kitapları.Add
NewWorkbook'a atanmış yeni bir çalışma kitabı oluşturuyoruz. Bu yeni çalışma kitabı, wsCount'ta belirtilen sayıda sayfa ile oluşturulur. Sayfa1'den Sayfa10'a başlıklı 10 sayfalık yeni bir çalışma kitabı göreceksiniz. Oluşturulan yeni Book3 dosyası için aşağıdaki resme bakın.
Aşağıdaki resim size yeni çalışma kitabında oluşturulan sayfa sayısını gösterecektir.
Ayrıca Excel Seçenekleri'nde Application.SheetsInNewWorkbook parametresinde aşağıdaki resimde olduğu gibi 10 sayısı görünecektir -
Application.SheetsInNewWorkbook = OriginalWorksheetCount
TheApplication.SheetsInNewWorkbook, wsCount ayarlanmadan önceki orijinal numarasına döndürülür. Yani orijinal sayı 1 veya 3 ise, bu parametre şimdi o sayıya dönecektir.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. bize yazın e-posta sitesi