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

02 Ocak 2021 850

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çık Excel Kitaplarını Yerleştirme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Birleştirilmiş Tüm Hücreleri Ayırma
Yorumları İçeren Hücreleri Renklendirme
Sayıları Yeni Bir Sayıyla Çarpma
Verileri Tek Sütuna Göre Sıralama
Belirli Bir Metne Sahip Hücreleri Vurgulama
Excel Hücresini Seçme Makrosu
Satırları Otomatik Sığdır
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
Label Nesnesine Kayan Yazı Ekleme
56 Renk Kodunu Sıralama
Tek Sütunu Kes Kopyala ve Yapıştır
UserForm Üzerinde Dört İşlem
Bir Aralıktaki Minimum Değeri Renklendirme
Hatalı Hücreleri Renklendirme
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Excel Açılırken Otomatik İşlem Yaptırma
Çoklu Bulma ve Karşısındaki Değeri Listeleme
Sayılara Yeni Bir Sayı Ekleme
Checkbox ile Exceli Kapatıp Açmak
Aktif Çalışma Sayfasını Koruma
Hücre İçerisine Kelime Ekleme
Bir Aralığa Alfabenin Harflerini Ekleme
Tekrar Eden Verileri Farklı Sütunda Yazma
Seçili Alanda Yinelenenleri Vurgulama
Kare Kökünü Hesaplama
Çalışma Sayfasını Kaydetme
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Excel Makroları ile Klasör Arama
Excel ile Faiz Hesaplama Kodu
Sendkey Yöntemi ile F Q Klavye Dönüşümü
X Sayı Atlayarak Satır Gizleme
Excel Satır Silme Kodu
Seçili Her Satırdan Sonra Bir Satır Ekleme
Bir Aralıktaki Maksimum Değeri Renklendirme
Otomatik Sıra Numarası Ekleme
Hangi Günde Olduğunu Bulma
Seçili Aralığa Ait Bilgilerin Listelenmesi
UserForm Kapatma Kodu
Negatif Sayıları Vurgulama
Seçili Satırların Sayısını Bulma
Aktif Satırı ve Sütunu Vurgulama
Yanlış Yazılmış Hücreleri Vurgulama
Birden Çok Sütun Ekleme
Dizileri Döngüye Eklemek
Çalışma Kitabının Kaç Kez Açıldığını Öğrenme
Negatif Sayıları Poztif Sayıya Çevirme
Satır Yüksekliğini Ayarla
Şeffaf UserForm Oluşturma Kodu

Daha önce yorum yapılmamış!

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