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

02 Ocak 2021 845

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
Tüm Boş Çalışma Sayfalarını Silme
Makro ile Klasör Açma
Transparan UserForm Oluşturmak
Excel Makroları ile Form Çağırma
Dizinde Klasör Araması Yapma
Dosyanın Olduğu Dizin İsmini Bulma
Program Başlangıcı Kodları
Klasörde Dosya Araması Yapma
Bilgisayardaki Sürücü İsimlerini Listeleme
Salt Okunur Excel Dosyasını Kontrol Etme
Seçili Aralığa Ait Bilgilerin Listelenmesi
Bilgisayardaki Sürücü Sayısını Bulma
Makrolar ile Txt Dosyası Oluşturma
R1C1 Referans Stilini Etkinleştirme
Api ile Bilgisayar Adını Bulmak
Satır Yüksekliklerini Otomatik Ayarlama
Yanıp Sönme Efekti Verme Kodu
Kilitlenmemiş Hücreleri Seçme İşlemi
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Şarta Göre Satır Açma ve Renklendirme
Satırlardaki Farkı Renklendirme
Boş Hücreleri Sıfırlarla Değiştirme
PDF Dosyalarını Birleştirme
Kare Kökünü Hesaplama
Aktif Sütuna Göre Diğer Sütunda İşlem
UserForm Üzerine CommandButton Ekleme
Boş Hücrelerin Görünmez Alanını Vurgulama
Tüm Çalışma Sayfalarını Gösterme
Makro Etkinletirilmezse Sayfalar Gizlenir
Select Case Kullanımı
Seçili Her Satırdan Sonra Bir Satır Ekleme
Hücrenin Arka Plan Rengini Değiştirme
Aktif Hücreye Günün Tarihini Yazma
Alarmlı Saat Ekleme Kodu
UserForm Nesnesine Otomatik Buton Ekleme
Makro ile Boş Satırları Silme
X Sayı Atlayarak Satır Gizleme
Makro ile Web Sitesini Açmak
Dizileri İç İçe Döngüye Eklemek
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Roma Rakamlarını Normal Sayılara Dönüştürme
Çalışma Sayfasını Kaydetme
56 Koşula Kadar Biçimlendirme Yapma
Top 10 Değeri Renklendirme
Sütun Genişliğini Ayarla
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
UserForm Açılırken Efekt Ekleme
Hedef Aramayı Kullanma
ComboBox Nesneleri ile Toplama Yapma
Sütunda Yazılı Olanlardan Sayfa Adı Yapma

Daha önce yorum yapılmamış!

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