VBA Kullanarak Excel'de Sayfalarda Döngü Nasıl Yapılır?

VBA'da excel'in olağan sıkıcı görevlerini otomatikleştirirken, her bir sayfa arasında dolaşma ihtiyacı duyacaksınız. Ve bu yüzden buradasın, elbette.

Bir çalışma kitabındaki sayfalar arasında dolaşmak için kodu görelim.

Activeworkbook'taki tüm sayfalarda döngü yapmak ve sayfaları yazdırmak için VBA Kodu Adı

ActiveWorkbook.Worksheets'teki Her ws için Sub loopSheets() Debug.Print ws.Name Sonraki ws End Sub

Yukarıdaki vba kodu, etkin çalışma kitabındaki her sayfa arasında dolaşır ve sayfa adını yazdırır

Nasıl çalışır?

Oldukça basit. VBA'ya her çalışma sayfasını etkin çalışma kitabında ws'de saklamasını ve ardından ad yöntemini kullanarak adını yazdırmasını söylüyoruz.

Biri Hariç Tüm Sayfalarda Döngü

Bu nedenle, birden fazla sayfayı tek bir ana sayfada birleştirmeye çalışıyorsanız, her bir sayfa arasında döngü yapmanız gerekecektir. her sayfanın verilerini ana sayfaya kopyalayın. Ancak, ana sayfanın döngüden hariç tutulmasını istersiniz. Diyelim ki ana sayfaya “Master” adını verdiniz. Bu durumda bu yöntemi kullanın:

ActiveWorkbook.Worksheets'teki Her ws için Sub loopSheets() ws.Name "Master" ise, Debug.Print ws.Name & " Kopyalandı" End If Next ws End Sub

Yukarıdaki kodla hemen hemen aynıdır, yalnızca If ifadesinin eklenmesiyle.

Eğer ws.Name "Usta" ise

Bu satır, mevcut çalışma sayfasının adının “Master” olup olmadığını kontrol eder. değilse, if bloğunun arasındaki kod çalışır. Aksi takdirde, blok atlanırsa içindeki kod.

Evet arkadaşlar, Excel'de çalışma sayfaları arasında bu şekilde dolaşabilirsiniz. Daha sonra, vba kullanarak birden çok sayfayı tek bir sayfada birleştirmeyi öğreneceğiz.