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

02 Ocak 2021 809

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
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Makro ile Biçimleri Temizleme
Son Dolu Satırın Bir Altına Yazdırma
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Excel Makroları ile Dosya Silme
Kare Kökünü Hesaplama
Excel ile Demo Yapma Makrosu
X Sayı Atlayarak Satır Gizleme
Belirli Metni Vurgulama
Tüm Satırda İşlem Yapan Döngü
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Çalışma Kitabının Yedeğini Oluşturma
Hücredeki Değişikliklerin Kaydını Tutma
Excel Makroları ile İşlemci Bilgilerini Bulma
Cümle Durumuna Dönüştürme
UserForm Resize Özelliği Eklemek
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Seri Numaralarını Ekleme
Dizinde Klasör Araması Yapma
Hücrenin Arka Plan Rengini Değiştirme
Kullanıcı Adınızı Bulma
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Excel Makroları ile Dosya Taşıma
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
Aktif Çalışma Sayfası Korumasını Kaldırma
Her Bir Sütundaki Maksimum Değeri Bulma
Negatif Sayıları Vurgulama
Hücre Aralığını Kes Kopyala ve Yapıştır
Tek Hücreyi Kes Kopyala ve Yapıştır
Hedef Aramayı Kullanma
Excel Üzerinden Klasör Alma Kodu
Çalışma Kitabının Kaç Kez Açıldığını Öğrenme
UserForm Açılırken Efekt Ekleme
Bir Dizeden Sayısal Veriler Elde Etme
Aktif Çalışma Sayfası Dışında Tümünü Silme
Son Dolu Satırı Başka Sayfaya Kopyala
Excel Hücresine Gitme Makrosu
Excel Alarm Kurma
PDF Dosyalarını Birleştirme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Başka Dosyada Şifreli Userform Oluşturmak
Makrolar ile Sonraki Sayfaya Geçmek
Excel Menüsüne Ekleme Yapma Kodu
Boş Hücrelerin Görünmez Alanını Vurgulama
Sayfaların Seçilmesini Sağlama
Excel Makroları İle Not Defterini Açmak
Transparan UserForm Oluşturmak
Tüm Satırları ve Sütunları Gösterme

Daha önce yorum yapılmamış!

YARARLI KISAYOLLAR
Kaydet / Alternatif Shift F12
Bugünün Tarihini Yazma Ctrl Shift ;
Bir Ekran Sola Git Alt PgUp
Satır/Sütun/Hücre Ekleme Ctrl +
Yeni Sayfa Ekleme Shift F11
Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...