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

02 Ocak 2021 795

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
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Ekran Çözünürlüğünü Bulma
Kopyala ve Özel Yapıştır
Makro ile Git Penceresini Açma
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Sürücü Seri Numarasını Gösterme
Özet Tablo Aralığını Otomatik Güncelleştirme
Boş Hücrelerin Görünmez Alanını Vurgulama
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Aktif Hücrenin Satır Numarasını Bulma
Makro ile Klasör Açma
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Tüm Çalışma Sayfalarını Gösterme
Grafiği Görüntü Olarak Yapıştırma
Dizileri Döngüye Eklemek
Gizlenmiş Makro Örnekleri
Bir Dizeden Sayısal Veriler Elde Etme
Dolar Okutma Makrosu
Roma Rakamlarını Normal Sayılara Dönüştürme
Kare Kökünü Hesaplama
Bir Çalışma Kitabında Kaç Sayfa Var
Program Başlangıcı Kodları
Seçili Satırların Sayısını Bulma
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Metnin İçinden TC Kimlik Numarasını Ayırma
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Cümle Durumuna Dönüştürme
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Excel Hücresine Gitme Makrosu
Sütun Genişliğini Ayarla
TextBox Nesnelerinin Arasında Boşluk Bırakma
Excel Üzerinden Klasör Alma Kodu
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Otomatik Olarak Tarih ve Zaman Ekleme
Tekrarlayan Verileri Vurgulama
Makrolar ile Sonraki Sayfaya Geçmek
Sütunları Otomatik Sığdırma
Son Sütun Numarasını Bulma
Adlandırılmış Aralıkları Vurgulama
Hücredeki Değişikliklerin Kaydını Tutma
Excel Dosya Arama Yapma Makrosu
Yorumları İçeren Hücreleri Renklendirme
Excel Makroları ile Form Çağırma
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Satır Yüksekliklerini Otomatik Ayarlama
ListBbox ve ComboBox Satır Kaydırma
Hoş Geldiniz Mesajı Ekleme
MsgBox ile Uyarı Çıkarma Kodu
Son Satır Numarasını Bulma

Daha önce yorum yapılmamış!

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