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

02 Ocak 2021 676

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
Sayılara Yeni Bir Sayı Ekleme
Grafik Türünü Değiştirme
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Hücredeki Değişikliklerin Kaydını Tutma
Makrolar ile Klasör Silme
Seçili Hücrenin Sütun Harfini Bulma
Seçili Sütunların Sayısını Bulma
Makrolar ile Txt Dosyası Oluşturma
Bilgisayardaki Sürücü Sayısını Bulma
Çoklu Bulma ve Karşısındaki Değeri Listeleme
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Küp Kökünü Hesaplama
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Sayıyı Çift ya da Çiftin Katı Yapma
Excel Açılırken Otomatik İşlem Yaptırma
Excel Hücresine Gitme Makrosu
Hücredeki Değere Göre Yeni Sayfa Ekleme
Makrolar ile Klasör Kopyalama
Hücrenin Arka Plan Rengini Değiştirme
Aktif Hücreye Açıklama Ekleme
Son Dolu Satırın Bir Altına Yazdırma
Dar Kenar Boşluğu Yazdırma
Label Nesnesine Kayan Yazı Ekleme
Metinden Konuşma Oluşturma
Hangi Günde Olduğunu Bulma
Bir Dizeden Sayısal Veriler Elde Etme
Sütunları Otomatik Sığdırma
Dizileri Döngüye Eklemek
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
Seçili Aralığa Ait Bilgilerin Listelenmesi
A Sütunundaki Verileri C Sütununda Sıralama
Boşluk Olan Hücreleri Renklendirme
Hatalı Hücreleri Renklendirme
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Otomatik Olarak Tarih ve Zaman Ekleme
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Makro ile Biçimleri Temizleme
UserForm Açılırken Efekt Ekleme
Kilitlenmemiş Hücreleri Seçme İşlemi
Excel Sayfalarındaki Resimleri Silmek
Aktif Hücrenin Üstüne Satır Ekleme
R1C1 Referans Stilini Etkinleştirme
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
Sendkey Yöntemi ile F Q Klavye Dönüşümü
Formüllü Hücreleri Renklendir
Son Satır Numarasını Bulma
Formu Kapatma Makro Kodu
Grafiği Görüntü Olarak Yapıştırma
ListBbox ve ComboBox Satır Kaydırma

Daha önce yorum yapılmamış!

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