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

02 Ocak 2021 821

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
Sütunlardaki Farkı Renklendirme
Ekran Çözünürlüğünü Bulma
Grafik Türünü Değiştirme
Çoklu Bulma ve Karşısındaki Değeri Listeleme
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Excel Hücrelerini Çözme
Seçili Her Satırdan Sonra Bir Satır Ekleme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Disk Sürücü Kapasitesini Gösterme
Makro ile Hızlı Doldurma
Toplu Sütun Silme
Tarih ve Saatten Tarihi Kaldırma
Seçili Hücrenin Sütun Harfini Bulma
Ad Yöneticisindeki Tüm Adları Görünür Yapmak
Seçimdeki Alternatif Satırları Vurgulama
Gizli Sayfaların Bulunması ve Gösterilmesi
Aktif Sütuna Göre Diğer Sütunda İşlem
Hücre Aralığını Kes Kopyala ve Yapıştır
Excel Açılırken Otomatik İşlem Yaptırma
Excel Makroları ile Dosya Sayısını Bulma
Tek Hücreyi Kes Kopyala ve Yapıştır
Top 10 Değeri Renklendirme
Excel Makroları ile Hücreye Saat Ekleme
Kopyala ve Biçimleri Yapıştır
Excel Üzerinden Klasör Açma Kodu
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Aktif Çalışma Sayfası Korumasını Kaldırma
Hücredeki Değişikliklerin Kaydını Tutma
56 Renk Kodunu Sıralama
Birden Çok Sütun Ekleme
UserForm Kapatma Kodu
Sütun Genişliğini Ayarla
Pivot Tablo Alt Toplamlarını Gizleme
Açıklama İçeren Tüm Hücreleri Vurgulama
Yazı Efekti Verme Kodu
Sendkey Yöntemi ile F Q Klavye Dönüşümü
Dolar Okutma Makrosu
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Bir Değeri Renklendirme
Aralıklı Olarak Satır Silme
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Ondalık Sayıları Tam Sayıya Çevirme
Sütun Genişliklerini Otomatik Ayarlama
Açık Excel Kitaplarını Yerleştirme
Tekrar Eden Verileri Farklı Sütunda Yazma
Hesap Makinesini Açma
Şarta Göre Satır Açma ve Renklendirme
Metnin İçinden TC Kimlik Numarasını Ayırma
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Makrolar ile Eliptik Form Oluşturma

Daha önce yorum yapılmamış!

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