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

02 Ocak 2021 827

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
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Grafiği Görüntü Olarak Yapıştırma
Hücredeki Değere Göre İşlem Yapma
Çalışma Sayfasını Kaydetme
Birleştirilmiş Tüm Hücreleri Ayırma
Otomatik Olarak Tarih ve Zaman Ekleme
Kilitlenmemiş Hücreleri Seçme İşlemi
Sürücü Seri Numarasını Gösterme
Satırlardaki Farkı Renklendirme
Excel Makro ile Hücreye Veri Yazma
Hücreye Girilen Değerleri Farklı Bir Sayfaya Kaydetme
Label Nesnesine Kayan Yazı Ekleme
Son Satır Numarasını Bulma
Aktif Çalışma Sayfası Korumasını Kaldırma
Belirli Metni Vurgulama
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Kopyala ve Özel Yapıştır
Son Dolu Satırı Başka Sayfaya Kopyala
Belli Sütunlarda Alfabetik Sıralama
Zaman Aralığı Ekleme
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Aktif Satırı ve Sütunu Vurgulama
Dizileri İç İçe Döngüye Eklemek
Belirli Kriterlere Sahip Satırları Silme
Açılışta Üç Kere Şifre Hakkı Vermek
Makrolar ile Klasör Oluşturma
Bir Sayfadaki Veriyi Diğer Sayfalara Kopyalama
Cümle Durumuna Dönüştürme
Tam Dizin İsmini Bulma
Excel ile Demo Yapma Makrosu
Makro ile Biçimleri Temizleme
Dar Kenar Boşluğu Yazdırma
Formül Bulunan Hücreleri Koruma ve Kilitleme
Sütun Genişliğini Ayarla
Hücrenin Rengini Değiştirme
Tekrar Eden Verileri Farklı Sütunda Yazma
Makro ile Klasör Açma
Hatalı Hücreleri Renklendirme
Sütunlardaki Farkı Renklendirme
Sürücü Adı Kontrolü Yapma
Excel Kapanırken Otomatik İşlem Yaptırma
Excel Makro Modulü Silme Kodu
Seçili Alandan İstenilen Karakteri Kaldırma
Tekrarlayan Verileri Vurgulama
Aktif Hücreye Açıklama Ekleme
2. Satırdaki Bilgileri Silmek
X Sayı Atlayarak Satır Gizleme
ListBbox ve ComboBox Satır Kaydırma
Hücrenin Arka Plan Rengini Değiştirme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama

Daha önce yorum yapılmamış!

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