Excel'de Aralıktaki Satırlar Arasında Döngü Oluşturmak için VBA (6 Örnek)

Hugh West

30-09-2023 Makrolar & Excel VBA
  • Bunu Paylaş
Hugh West

Bu eğitimde, aşağıdakileri nasıl kullanacağımızı ele alacağız VBA excel'de aralıktaki satırlar arasında döngü yapmak için. Aynı şeyi tekrar tekrar yapmayı önlemek için döngülerden yararlanırız. Microsoft Excel 'de döngüler kullanarak kendimizi aynı görevi defalarca gerçekleştirmemiz gereken bir konumda bulabiliriz. VBA Bu makalede, aşağıdakileri göstereceğiz 6 ile excel'de satırlar arasında döngü örnekleri VBA Örnekler boyunca kullanacağımız döngü ' Sonraki İçin Döngüsü '.

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

Alıştırma çalışma kitabını buradan indirebiliriz.

VBA Range.xlsm'deki Satırlar Arasında Döngü

Excel'de VBA ile Aralıktaki Satırlar Arasında Döngü Oluşturmak için 6 Örnek

Bu eğitimin örneklerini göstermek için aşağıdaki veri kümesini kullanacağız. Veri kümesi, yılın ilk iki ayına ait satış tutarlarını içerir 5 Satış Elemanı .

1. Satırlar Arasında Döngü Oluşturmak için Range Değişkeniyle Range'de VBA Kullanın

İlk örnekte, aralıktaki satırlar arasında döngü yapmak için aralık değişkenini kullanacağız VBA excel'de. VBA döngüsünü aşağıdaki veri kümesinde çalıştırın.

Bu örneği gerçekleştirmek için gerekli adımları görelim.

ADIMLAR:

  • Başlamak için, aktif çalışma sayfasına gidin ' Aralık Değişken '.
  • Ek olarak, sağ tıklayın seçeneğini seçin ve ' Kodu Görüntüle ' tuşuna da basabilirsiniz. Alt + F11 açmak için.

  • Yukarıdaki eylem, söz konusu çalışma sayfası için bir kod penceresi açar.
  • Ayrıca, kodu kod penceresine yazın: 
 Sub VBA_Loop_through_Rows() Dim w As Range For Each w In Range("B5:D9").Rows w.Cells(1).Interior.ColorIndex = 35 Next End Sub
  • Ardından, şuraya tıklayın Koşmak veya basın F5 kodu çalıştırmak için.

  • Son olarak, aşağıdaki ekran görüntüsü gibi sonuçlar elde edeceğiz.

Daha Fazla Oku: Excel VBA: Aralıktaki Sütunlar Arasında Döngü (5 Örnek)

2. Sayısal Değişkenli Aralıktaki Satırlar Arasında Döngü Oluşturmak için VBA Uygulayın

Bir aralıktaki satırlar arasında döngü oluşturmak için bir başka seçenek de değişkeni seçmektir. İkinci örnekte VBA sayısal değişkenlerle aralıktaki satırlar arasında döngü oluşturmak için aşağıdaki veri kümesinde.

Şimdi bu yöntemi uygulamak için gereken adımlara bir göz atalım.

ADIMLAR:

  • Birincisi, sağ tıklayın adlı etkin sayfada Sayısal Değer '.
  • Ardından, ' Kodu Görüntüle '.

  • Bu eylem, söz konusu çalışma sayfası için bir kod penceresi açacaktır. Alt + F11 bu kod penceresini açmak için.
  • bu pencereye aşağıdaki kodu yazın: 
 Sub VBA_Numeric_Variable() Dim w As Integer With Range("B5").CurrentRegion For w = 1 To .Columns.Count .Columns(w).NumberFormat = "$0.00" Next End With End Sub
  • Bundan sonra, üzerine tıklayın Koşmak veya F5 tuşuna basarak kodu çalıştırın.

  • Son olarak, aşağıdaki resimdeki gibi sonuçlar görebiliriz. Yukarıdaki kod, sayının biçimini ondalık noktalara dönüştürür.

Daha Fazla Oku: Excel'de Bir Aralıktaki Satırlar ve Sütunlar Arasında Döngü Oluşturmak için VBA (5 Örnek)

3. Kullanıcı Tarafından Seçilen Aralıktaki Satırlar Arasında Döngü Oluşturmak için Excel VBA

Üçüncü örnekte şunları kullanacağız VBA kullanıcı tarafından seçilen bir aralıktaki satırlar arasında döngü oluşturmak için kullanılır. Böylece, kullanıcı veri kümesinin seçilen bir alanında döngü uygulayabilecektir.

Bu örnekle ilgili adımları görelim.

ADIMLAR:

  • Başlangıçta, hücre aralığını seçin ( D5:D9 ).

  • Sıradaki, sağ tıklayın adlı etkin sayfada Kullanıcı Seçimi ' seçeneğini seçin. Kodu Görüntüle '.

  • Yukarıdaki komut bir VBA Etkin çalışma sayfası için kod penceresi. Bu kod penceresini aşağıdaki tuşlara basarak da açabilirsiniz Alt + F11 . Aşağıdaki kodu boş kod penceresine ekleyin: 
 Sub VBA_User_Selection() Dim w As Variant Set xRange = Selection For Each w In xRange MsgBox "Cell value = " & w.Value Next w End Sub
  • Ardından, bu çalışma sayfasının kodunu çalıştırmak için Koşmak veya F5 Anahtar.

  • Böylece, seçilen aralığın ilk değerini gösteren bir mesaj kutusu görünür.

  • Ayrıca, eğer tıklarsanız TAMAM. hücre olan seçili aralığın ikinci değerini döndürecektir D6 .

  • Bu işlem, seçilen aralığın son değeri olan hücreye kadar devam edecektir. D9 .

Daha fazlasını okuyun: Excel'de Verilerle Aralıktaki Satırları Saymak için VBA Nasıl Kullanılır (5 Makro)

Benzer Okumalar

  • Excel'de Aktif Hücreden Aralık Seçmek için VBA Nasıl Kullanılır (3 Yöntem)
  • Excel Makrosu: Dinamik Aralık ile Birden Çok Sütunu Sıralama (4 Yöntem)
  • Excel VBA'da Aralığı Diziye Dönüştürme (3 Yol)

4. VBA ile Dinamik Aralıktaki Satırlar Arasında Döngü

Dördüncü örnekte, aşağıdakileri uygulayacağız VBA Bu örnek öncekilerden biraz farklı. excel çalışma sayfası için döngüdeki aralığı özelleştirebileceğiz. Bu yöntemi göstermek için aşağıdaki veri kümesini kullanacağız. Aşağıdaki veri kümesinde, aralığın değerlerini dolduracağız ( B8:C12 ) belirli bir değer ile.

Bu yöntemi gerçekleştirmek için aşağıdaki adımları uygulamanız yeterlidir.

ADIMLAR:

  • İlk olarak, giriş değeri 6 hücre içinde B1 ve C hücre içinde B2 .
  • İkinci olarak, sağ tıklayın seçeneğini seçin ve aktif hücre üzerinde ' Kodu Görüntüle '.

  • Bu komut bir VBA Etkin çalışma sayfası için kod penceresi. Bu kod penceresini açmanın başka bir yolu da Alt + F11 .
  • Üçüncü olarak aşağıdaki kodu bu kod penceresine ekleyin: 
 Sub Dynamic_Range() Dim xRange As String xRange = "B8:" + Worksheets("Dynamic Range").Cells(2, 2).Value + _ CStr(3 + Worksheets("Dynamic Range").Cells(1, 2).Value) For Each Row In Range(xRange) For Each Cell In Row Cell.Value = "$2500.00" Next Cell Next Row End Sub
  • Şimdi, kodu çalıştırmak için Koşmak veya F5 Anahtar.

  • Sonuç olarak, veri kümesi şu değerle dolar $2500.00 aşağıdaki şekilde.

NOT:

Yukarıdaki görüntüde, değer 6 aralığın ilk iki satırını temsil eder ( B8:B9 ).

  • Son olarak, değeri girin 9 hücre içinde B1 yerine 6 Sonuçları aşağıdaki resimde görebiliriz.

5. Aralıktaki Tüm Satırda Döngü Oluşturmak için VBA Ekleme

Beşinci örnekte, aşağıdakileri nasıl uygulayabileceğimizi göreceğiz VBA Bu örnek, seçilen bir veya birden fazla satırdan belirli bir değerin konumunu bulacaktır.

Şimdi, bu örneği uygulamak için izleyeceğimiz adımları görelim.

ADIMLAR:

  • Başlamak için, sağ tıklayın adlı etkin sayfada Tüm Sıra ' seçeneğini seçin. Kodu Görüntüle '.

  • Yukarıdaki komut boş bir VBA Etkin çalışma sayfası için kod penceresi. Bu kod penceresini şu tuşa basarak da alabiliriz Alt + F11 .
  • Ardından, bu kod penceresine aşağıdaki kodu ekleyin: 
 Sub VBA_Loop_Entire_Row() Dim w As Range For Each w In Range("5:9") If w.Value = "Chris" Then MsgBox "Chris found at " & w.Address End If Next w End Sub
  • Ardından, şuraya tıklayın Koşmak veya F5 tuşuna basarak kodu çalıştırın.

  • Yukarıdaki görüntüde, vurgulanan değer ' Chris ' arayacak olduğumuz değeri belirtir. Aralık değeri ' 5:9 ' hücre aralığındaki değeri arayacağımızı gösterir ( B5:B9 ).
  • Son olarak, bir mesaj kutusu ' Chris ' hücresinde bulunur B6 .

Daha Fazla Oku: Excel'de Bir Aralıktaki Her Satır için VBA Nasıl Kullanılır

6. Excel VBA ile Aralıktaki Her n'inci Satırda Döngü

Son örnekte, aşağıdakileri uygulayacağız VBA döngüye sokmak için n'inci Aşağıdaki veri kümesinde, veri aralığımızın tek sayılı satırlarına renk gölgelendirmesi uygulayacağız.

Şimdi bu yöntemi gerçekleştirmek için gerekli adımları görelim.

ADIMLAR:

  • Birincisi, sağ tıklayın adlı etkin sayfada n'inci Satır ' seçeneğini seçin. Kodu Görüntüle '.

  • Ardından, boş bir VBA Bu kod penceresini ayrıca şu tuşa basarak da alabiliriz Alt + F11 .
  • Ardından, bu kod penceresine aşağıdaki kodu yazın: 
 Sub ShadeRows1() Dim r As Long With Range("B5").CurrentRegion For r = 1 To .Rows.Count If r / 2 = Int(r / 2) Then 'even rows .Rows(r).Interior.ColorIndex = 43 End If Next End With End Sub
  • Şimdi, üzerine tıklayın Koşmak veya F5 tuşuna basarak kodu çalıştırın.

  • Son olarak, yukarıdaki kodun veri kümemizden yalnızca tek sayılı satırları gölgelediğini görebiliriz.

Daha Fazla Oku: Boş Hücreye Kadar Aralıkta Döngü Yapmak için Excel VBA (4 Örnek)

Sonuç

Sonuç olarak, bu eğitim size 6 ile aralıktaki satırlar arasında döngü oluşturma örnekleri VBA Becerilerinizi test etmek için bu makalede yer alan alıştırma çalışma sayfasını indirin. Herhangi bir sorunuz varsa, lütfen aşağıdaki kutuya bir yorum bırakın. Ekibimiz mesajınıza mümkün olan en kısa sürede yanıt vermeye çalışacaktır. Daha yaratıcı şeyler için gözünüzü dört açın Microsoft Excel gelecekte çözümler.

Önceki yazı Excel'de Ortalama ve Standart Sapma Nasıl Hesaplanır
Sonraki Gönderi Excel'de Birden Çok Çalışma Sayfasından Veri Çekme (4 Hızlı Yol)

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.