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

02 Ocak 2021 752

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 Alarm Kurma
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
Kopyala ve Özel Yapıştır
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Tek Satırı Kes Kopyala ve Yapıştır
UserForm Üzerinde Dört İşlem
Makrolar ile Txt Dosya Silme
Alarmlı Saat Ekleme Kodu
Aktif Sütuna Göre Diğer Sütunda İşlem
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Negatif Sayıları Poztif Sayıya Çevirme
Yanıp Sönme Efekti Verme Kodu
Gizli Sayfaların Bulunması ve Gösterilmesi
UserForm Açılırken Efekt Ekleme
Sayıları Rastgele Karıştırmak
Roma Rakamlarını Normal Sayılara Dönüştürme
2. Derece Denklemin Grafiğini Çizmek
Metnin İçinden TC Kimlik Numarasını Ayırma
Son Dolu Satırı Başka Sayfaya Kopyala
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Kopyala ve Biçimleri Yapıştır
Aktif Hücrenin Üstüne Satır Ekleme
Sayfadaki Grafikleri Yeniden Boyutlandırma
Kullanıcı Adınızı Bulma
PDF Dosyalarını Birleştirme
Tüm Sütunda İşlem Yapan Döngü
Belirli Kriterlere Sahip Satırları Silme
Seçili Hücrenin Sütun Harfini Bulma
Sütunlardaki Farkı Renklendirme
TextBox Nesnesine Harf Girilmesini Engelleme
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Birden Çok Sütun Ekleme
Tüm Boş Çalışma Sayfalarını Silme
Aktif Çalışma Sayfası Korumasını Kaldırma
Excel Makroları ile Klasör Silme
Aktif Hücrenin Satır Numarasını Bulma
Makro Etkinletirilmezse Sayfalar Gizlenir
A Sütunundaki Verileri C Sütununda Sıralama
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Hücredeki Değer Sıfırdan Büyükse İşlem Yapma
Çalışma Kitabını E-Posta Ekine Ekleme
Seçili Satırların Sayısını Bulma
Birden Çok Çalışma Sayfası Ekleme
Makrolar ile Klasör Kopyalama
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Sayıları Yeni Bir Sayıyla Çarpma

Daha önce yorum yapılmamış!

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