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

02 Ocak 2021 801

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
UserForm Nesnesine Otomatik Buton Ekleme
Excel Makroları ile Form Çağırma
Excel Makro ile Hücreye Veri Yazma
Excel Kitabındaki Sayfa Adlarının Listelenmesi
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Seçili Sütunların Sayısını Bulma
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
Grafiği Görüntü Olarak Yapıştırma
Bilgisayar Bilgilerini Özetleme
Birleştirilmiş Tüm Hücreleri Ayırma
Tüm Sütunda İşlem Yapan Döngü
Label Nesnesine Kayan Yazı Ekleme
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Aktif Hücrenin Temel Bilgilerini Bulma
Excel Makroları ile İşlemci Bilgilerini Bulma
Bir Sayfadaki Veriyi Diğer Sayfalara Kopyalama
Dosyanın Olduğu Dizin İsmini Bulma
Bilgisayardaki Sürücü İsimlerini Listeleme
Tek Sütunu Kes Kopyala ve Yapıştır
Makro ile Boş Satırları Silme
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
Excel Makro Modulü Silme Kodu
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Negatif Sayıları Poztif Sayıya Çevirme
Sütunlardaki Farkı Renklendirme
Boş Hücrelerin Görünmez Alanını Vurgulama
Makrolar ile Klasör Oluşturma
Disk Sürücü Kapasitesini Gösterme
Aktif Hücreye Günün Tarihini Yazma
TextBox Nesnelerinin Arasında Boşluk Bırakma
Otomatik Olarak Tarih ve Zaman Ekleme
Api ile Bilgisayar Adını Bulmak
Satır Yüksekliklerini Otomatik Ayarlama
Sütunları Otomatik Sığdırma
Makrolar ile Klasör Silme
Tam Dizin İsmini Bulma
Hücreye Girilen Değerleri Farklı Bir Sayfaya Kaydetme
Excel Sayfalarında Çarpım Tablosu Oluşturma
Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Aktif Hücreye Açıklama Ekleme
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Cümle Durumuna Dönüştürme
Metin Sarmayı Kaldırma
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Hücre Biçimlendir Yazı Tipi Penceresini Açma
Ondalık Sayıları Tam Sayıya Çevirme
Satır Yüksekliğini Ayarla
Hangi Günde Olduğunu Bulma

Daha önce yorum yapılmamış!

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