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

02 Ocak 2021 841

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
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi
İstenilen Şart Sağlanmıyorsa Kayıt Gerçekleşmesin
TextBox Nesnelerinin Arasında Boşluk Bırakma
Yanlış Yazılmış Hücreleri Vurgulama
Hücredeki Değere Göre Yeni Sayfa Ekleme
Makrolar ile Klasördeki Dosyayı Taşıma
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Negatif Sayıları Vurgulama
Başka Dosyada Şifreli Userform Oluşturmak
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Excel Dosya Arama Yapma Makrosu
ListBbox ve ComboBox Satır Kaydırma
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Birden Çok Çalışma Sayfası Ekleme
Tüm Satırları ve Sütunları Gösterme
Son Sütun Numarasını Bulma
C Klasörüne Sanal Dizin Oluşturma
Makrolar ile Eliptik Form Oluşturma
Gizlenmiş Makro Örnekleri
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Makrolar ile Klasör Oluşturma
Dizileri İç İçe Döngüye Eklemek
Hücre İçerisine Kelime Ekleme
Makro Çalışırken İmlecin Hareket Etmemesi
Google Üzerinde Arama Yapma
Adlandırılmış Aralıkları Vurgulama
Son Dolu Satırı Başka Sayfaya Kopyala
Grafik Türünü Değiştirme
Aktif Çalışma Sayfası Korumasını Kaldırma
Makro ile Hızlı Doldurma
Sütun Genişliğini Ayarla
Metni Tersten Yazdırma
TextBox Nesnesine Harf Girilmesini Engelleme
Hücre Aralığını Kes Kopyala ve Yapıştır
Belirli Metni Vurgulama
Aktif Hücrenin Satır Numarasını Bulma
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Seçili Alanda Yinelenenleri Vurgulama
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Klasörde Dosya Araması Yapma
Api ile Bilgisayar Adını Bulmak
Excel Açılırken Otomatik İşlem Yaptırma
Zaman Aralığı Ekleme
Bir Sayfadaki Veriyi Diğer Sayfalara Kopyalama
Tüm Formülleri Değerlere Dönüştürme
Makro ile Açılan Liste Oluşturma
Formüllü Hücreleri Renklendir
Tekrar Eden Verileri Farklı Sütunda Yazma
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama

Daha önce yorum yapılmamış!

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