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

02 Ocak 2021 857

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
Belirli Bir Metne Sahip Hücreleri Vurgulama
Kullanılan Tüm Sütunları Otomatik Sığdır
Son Dolu Satırın Bir Altına Yazdırma
A1 Referans Stilini Etkinleştirme
Makro Etkinletirilmezse Sayfalar Gizlenir
Seçili Hücrenin Sütun Harfini Bulma
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Bilgisayar Bilgilerini Özetleme
TextBox Nesnesinde Kuruş Göstermek
Seçili Sütunların Sayısını Bulma
Formüllü Hücreleri Renklendir
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Excel ile Faiz Hesaplama Kodu
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Çalışma Kitabını E-Posta Ekine Ekleme
Tüm Boş Çalışma Sayfalarını Silme
Bir Aralıktaki Maksimum Değeri Renklendirme
Sütun Genişliklerini Otomatik Ayarlama
Dosyanın Olduğu Dizin İsmini Bulma
Dolar Okutma Makrosu
Tam Dizin İsmini Bulma
Makrolar ile Klasör Oluşturma
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Sütunlardaki Farkı Renklendirme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Yanıp Sönme Efekti Verme Kodu
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Tek Satırı Kes Kopyala ve Yapıştır
Metnin İçinden TC Kimlik Numarasını Ayırma
Tekrarlayan Verileri Vurgulama
Başka Dosyada Şifreli Userform Oluşturmak
Excel Dosya Silme İşlemi Makrosu
Tek Sütunu Kes Kopyala ve Yapıştır
Cümle Durumuna Dönüştürme
Her Bir Sütundaki Maksimum Değeri Bulma
Yorumları İçeren Hücreleri Renklendirme
Satırları Otomatik Sığdır
Excel Üzerinden Klasör Açma Kodu
Makrolar ile Txt Dosya Silme
Hücre Aralığını Kes Kopyala ve Yapıştır
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Dizileri Döngüye Eklemek
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
TextBox Nesnesine Harf Girilmesini Engelleme
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Formül Bulunan Hücreleri Koruma ve Kilitleme
Makro ile Biçimleri Temizleme
Txt Dosyası Oluşturma
Bir Hücreye Çift Tıklayınca UserForm Açılsın

Daha önce yorum yapılmamış!

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