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

02 Ocak 2021 851

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
Bilgisayar Bilgilerini Özetleme
Hücre İçerisine Kelime Ekleme
Negatif Sayıları Poztif Sayıya Çevirme
Alarmlı Saat Ekleme Kodu
Excel Kapanırken Otomatik İşlem Yaptırma
Kopyala ve Özel Yapıştır
Makrolar ile Dosyaları Kopyalama
Sayfadaki Ad Tanımlamaları Silme
Çalışma Kitabını E-Posta Ekine Ekleme
Birden Çok Çalışma Sayfası Ekleme
Tüm Çalışma Sayfalarını Gösterme
R1C1 Referans Stilini Etkinleştirme
Makrolar ile Eliptik Form Oluşturma
2. Derece Denklemin Grafiğini Çizmek
Aktif Sütuna Göre Diğer Sütunda İşlem
Seçili Her Satırdan Sonra Bir Satır Ekleme
Giriş Kutusu ve Mesaj Yazma İşlemi
Makro ile Git Penceresini Açma
Şeffaf UserForm Oluşturma Kodu
Derece Simgesi Ekleme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Otomatik Sıra Numarası Ekleme
Makrolar ile Klasör Silme
Tek Sütunu Kes Kopyala ve Yapıştır
Dizinde Klasör Araması Yapma
Bir Aralığa Alfabenin Harflerini Ekleme
Aktif Satırı ve Sütunu Vurgulama
Excel Makro Modulü Silme Kodu
Makro ile Dosya Açma
Hücre Aralığını Kes Kopyala ve Yapıştır
Boşluk Olan Hücreleri Renklendirme
Zaman Aralığı Ekleme
Aktif Çalışma Sayfası Dışında Tümünü Silme
UserForm Açılırken Efekt Ekleme
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Excel Hücresini Seçme Makrosu
Kopyala ve Değer Olarak Yapıştır
Aktif Hücrenin Sütun Numarasını Bulma
Excel Üzerinden Klasör Açma Kodu
Makro ile Boş Satırları Silme
Satırlardaki Farkı Renklendirme
TextBox Nesnesine Harf Girilmesini Engelleme
Satırları Otomatik Sığdır
Excel Sayfalarında Çarpım Tablosu Oluşturma
Excel Hücrelerini Çözme
C Klasörüne Sanal Dizin Oluşturma
Çalışma Sayfasının Ekran Görünümünü Büyütme
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Tekrar Eden Verileri Farklı Sütunda Yazma
Verileri Birden Çok Sütuna Göre Sıralama

Daha önce yorum yapılmamış!

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