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

02 Ocak 2021 832

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
Dar Kenar Boşluğu Yazdırma
Ad Yöneticisindeki Tüm Adları Görünür Yapmak
Birleştirilmiş Tüm Hücreleri Ayırma
Pivot Tablo Alt Toplamlarını Gizleme
Bir Dizindeki Son Dosyanın Adını Bulma
TextBox Nesnelerinin Arasında Boşluk Bırakma
Kullanılan Tüm Sütunları Otomatik Sığdır
Kopyala ve Değer Olarak Yapıştır
Bir Aralıktaki Maksimum Değeri Renklendirme
Dizileri Döngüye Eklemek
Sütunları Otomatik Sığdırma
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Kopyala ve Biçimleri Yapıştır
Tam Dizin İsmini Bulma
Sayılara Yeni Bir Sayı Ekleme
Verileri Tek Sütuna Göre Sıralama
Şarta Göre Satır Açma ve Renklendirme
UserForm Üzerinde Dört İşlem
UserForm Nesnesine Otomatik Buton Ekleme
2. Satırdaki Bilgileri Silmek
Satırı Kes Kopyala ve Yapıştır
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Kullanıcı Adınızı Bulma
ListBbox ve ComboBox Satır Kaydırma
Hatalı Hücreleri Renklendirme
Sayıları Yeni Bir Sayıyla Çarpma
Label Nesnesine Kayan Yazı Ekleme
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Seçili Aralığa Ait Bilgilerin Listelenmesi
Cümle Durumuna Dönüştürme
Gizli Sayfaların Bulunması ve Gösterilmesi
Otomatik Sıra Numarası Ekleme
Makrolar ile Klasör Oluşturma
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Hücredeki Değer Sıfırdan Büyükse İşlem Yapma
Excel Makroları ile İşlemci Bilgilerini Bulma
Yardım Menüsünü Açma
Aktif Sütuna Göre Diğer Sütunda İşlem
Dizinde Klasör Araması Yapma
Belli Sütunlarda Alfabetik Sıralama
Ekran Çözünürlüğünü Bulma
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Hesap Makinesini Açma
Tüm Sütunda İşlem Yapan Döngü
Sağ Tık ile Açılan Menüye Ekleme Yapma
Hücre Biçimlendir Yazı Tipi Penceresini Açma
Tüm Satırda İşlem Yapan Döngü
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Excel Hücresine Gitme Makrosu
Transparan UserForm Oluşturmak

Daha önce yorum yapılmamış!

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