Dizileri İç İçe Döngüye Eklemek

02 Ocak 2021 844

Dizileri İç İçe Döngüye Eklemek isimli kodu kullanarak, belirlediğiniz dizi içeriklerini istediğiniz gibi iç içe yönetme işlevini yerine getirebilirsiniz.

Sub Dizi_Dongu()
    Dizi = Array(Array("Kedi", "Köpek"), Array("Tavşan", "Timsah"))
     
    For r = 0 To 1
        For c = 0 To 1
            txt = txt & Dizi(r)(c) & " "
        Next c
        txt = txt & vbNewLine
    Next r
     
    MsgBox txt
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Üstteki kodda iç içe döngü ile iki ayrı Diziyi birlikte kullandık. Bir Dizi İfadesi oluşturup, o Dizi dönerken ikinci bir dizi ile içerikleri listeledik.

50 Farklı Hazır Makro (VBA) Kodu
Seçili Aralığı PDF Olarak Kaydetme
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Tüm Çalışma Kitaplarını Aynı Anda Kapatma
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Alarmlı Saat Ekleme Kodu
Seçili Her Satırdan Sonra Bir Satır Ekleme
Boş Hücreleri Vurgulama
Api ile Bilgisayar Adını Bulmak
Çalışma Sayfasını Kaydetme
Ad Yöneticisindeki Tüm Adları Görünür Yapmak
Boşluk Olan Hücreleri Renklendirme
Tekrar Eden Verileri Farklı Sütunda Yazma
Her Kapatma İşleminde Otomatik Olarak Kaydetme
X Sayı Atlayarak Satır Gizleme
Makro ile Dosya Açma
Birleştirilmiş Tüm Hücreleri Ayırma
Bağlantılı Resim Ekleme
Satır Yüksekliklerini Otomatik Ayarlama
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Makrolar ile Eliptik Form Oluşturma
Seçimi Yazdırma
Satırlardaki Farkı Renklendirme
Bilgisayardaki Sürücü Sayısını Bulma
Bir Aralığa Alfabenin Harflerini Ekleme
Dizileri İç İçe Döngüye Eklemek
Txt Dosyası Oluşturma
Sütun Genişliğini Ayarla
Derece Simgesi Ekleme
ComboBox Nesneleri ile Toplama Yapma
Kapanış Mesajı Ekleme
Makrolar ile Klasör Silme
Tam Dizin İsmini Bulma
Excel Hücresine Gitme Makrosu
Makrolar ile Klasördeki Dosyayı Taşıma
Sayfaların Seçilmesini Sağlama
Excel Dosya Silme İşlemi Makrosu
Birden Çok Çalışma Sayfası Ekleme
Top 10 Değeri Renklendirme
Tüm Satırları ve Sütunları Gösterme
Makrolar ile Klasör Kopyalama
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi
Zaman Aralığı Ekleme
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
UserForm Resize Özelliği Eklemek
Sayıyı Çift ya da Çiftin Katı Yapma
A1 Referans Stilini Etkinleştirme
Seri Numaralarını Ekleme
Aktif Hücrenin Satır Numarasını Bulma
Excel Makroları ile Form Çağırma
Aralıklı Olarak Satır Silme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...