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

02 Ocak 2021 825

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
Excel Hücresini Seçme Makrosu
Kullanılan Tüm Sütunları Otomatik Sığdır
Hücredeki Değişikliklerin Kaydını Tutma
Makro Etkinletirilmezse Sayfalar Gizlenir
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Her Kapatma İşleminde Otomatik Olarak Kaydetme
2. Satırdaki Bilgileri Silmek
Dizileri Döngüye Eklemek
Özet Tablo Aralığını Otomatik Güncelleştirme
R1C1 Referans Stilini Etkinleştirme
Birden Çok Çalışma Sayfası Ekleme
Roma Rakamlarını Normal Sayılara Dönüştürme
Belli Sütunlarda Alfabetik Sıralama
Excel Seçenekleri Penceresini Açma
UserForm Üzerine CommandButton Ekleme
Sayılara Yeni Bir Sayı Ekleme
Api ile Bilgisayar Adını Bulmak
Tarih ve Saatten Tarihi Kaldırma
Giriş Kutusu ve Mesaj Yazma İşlemi
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Seri Numaralarını Ekleme
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Sürücü Seri Numarasını Gösterme
Yazı Efekti Verme Kodu
Kapanış Mesajı Ekleme
Sütun Genişliğini Ayarla
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Excel Makro Modulü Silme Kodu
TextBox Nesnelerinin Arasında Boşluk Bırakma
MsgBox ile Uyarı Çıkarma Kodu
Excel Makro ile Hücreye Veri Yazma
Makro ile Dosya Açma
UserForm Kapatma Kodu
Dolar Okutma Makrosu
Makrolar ile Klasör Oluşturma
Excel Dosya Arama Yapma Makrosu
Sayıları Yeni Bir Sayıyla Çarpma
Seçili Hücrenin Sütun Harfini Bulma
Sendkey Yöntemi ile F Q Klavye Dönüşümü
Tüm Sütunda İşlem Yapan Döngü
Klasörde Dosya Araması Yapma
Makrolar ile Dosyaları Kopyalama
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Excel Hücresine Gitme Makrosu
Tüm Çalışma Sayfalarını Gösterme
Negatif Sayıları Poztif Sayıya Çevirme
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
İçinde Bulunduğumuz Günü Bulma
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Metin Sarmayı Kaldırma

Daha önce yorum yapılmamış!

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