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

02 Ocak 2021 830

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
Yazı Efekti Verme Kodu
Makrolar ile Klasör Oluşturma
Aktif Hücreye Günün Tarihini Yazma
Hücre Biçimlendir Yazı Tipi Penceresini Açma
Yorumları Yazdırma
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Ad Yöneticisindeki Tüm Adları Görünür Yapmak
Makro ile Klasör Açma
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Seçili Aralığa Ait Bilgilerin Listelenmesi
Seçili Aralığı PDF Olarak Kaydetme
Excel Sayfalarındaki Resimleri Silmek
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Makrolar ile Dosyaları Kopyalama
Son Dolu Satırı Başka Sayfaya Kopyala
Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
Belirli Metni Vurgulama
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Her Bir Sütundaki Maksimum Değeri Bulma
Klavyeye Makro Atama ve Çalıştırma
Aktif Çalışma Sayfasını Koruma
Tüm Çalışma Kitaplarını Aynı Anda Kapatma
Çift Satırlı Msgbox Örneği
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Makrolar ile Txt Dosyası Oluşturma
Excel Makroları ile Klasör Silme
Seçili Alanda Yinelenenleri Vurgulama
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Tüm Satırda İşlem Yapan Döngü
Aktif Hücrenin Üstüne Satır Ekleme
Zaman Aralığı Ekleme
Metni Tersten Yazdırma
Dördüncü Sütunda İşlem Yapılınca Çalışan Makro
Excel Makroları ile Dosya Taşıma
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Kopyala ve Özel Yapıştır
Excel Satır Silme Kodu
MsgBox ile Uyarı Çıkarma Kodu
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
2. Satırdaki Bilgileri Silmek
Cümle Durumuna Dönüştürme
Bir Çalışma Kitabında Kaç Sayfa Var
Boş Hücreleri Vurgulama
Excel Üzerinden Klasör Alma Kodu
Bağlantılı Resim Ekleme
PDF Dosyalarını Birleştirme
Tam Dizin İsmini Bulma

Daha önce yorum yapılmamış!

YARARLI KISAYOLLAR
Yeni Kitap Oluşturma Ctrl N
Yardım F1
Kes / Alternatif Shift Delete
Eğik Yazdırma Ctrl T
Bul Penceresini Açma / Alternatif Shift F5
Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...