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

02 Ocak 2021 524

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
Bir Değeri Renklendirme
Metni Tersten Yazdırma
Bir Aralığa Alfabenin Harflerini Ekleme
Sütun Genişliğini Ayarla
Formül Bulunan Hücreleri Koruma ve Kilitleme
Toplu Satır Silme
İstenilen Şart Sağlanmıyorsa Kayıt Gerçekleşmesin
Aktif Hücrenin Sütun Numarasını Bulma
Bir Sayfadaki Veriyi Diğer Sayfalara Kopyalama
İçinde Bulunduğumuz Günü Bulma
Seçili Her Satırdan Sonra Bir Satır Ekleme
Sayıyı Çift ya da Çiftin Katı Yapma
Hesap Makinesini Açma
Belirli Metni Vurgulama
Kullanılan Tüm Sütunları Otomatik Sığdır
Seçilmiş Alanı Kes Kopyala ve Yapıştır
C Klasörüne Sanal Dizin Oluşturma
Bilgisayardaki Sürücü İsimlerini Listeleme
Özet Tablo Aralığını Otomatik Güncelleştirme
2. Satırdaki Bilgileri Silmek
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Belli Sütunlarda Alfabetik Sıralama
Adlandırılmış Aralıkları Vurgulama
Kopyala ve Biçimleri Yapıştır
Hücredeki Değişikliklerin Kaydını Tutma
Hangi Günde Olduğunu Bulma
Bir Aralıktaki Maksimum Değeri Renklendirme
Excel Makroları ile Hücreye Saat Ekleme
Dizinde Klasör Araması Yapma
Sayfadaki Ad Tanımlamaları Silme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
TextBox Nesnesine Harf Girilmesini Engelleme
Özel Sayfaları Yazdırma
Excel Seçenekleri Penceresini Açma
Bir Çalışma Kitabında Kaç Sayfa Var
Excel Alarm Kurma
Excel Menüsüne Ekleme Yapma Kodu
Bir Dizindeki Son Dosyanın Adını Bulma
R1C1 Referans Stilini Etkinleştirme
Açıklama İçeren Tüm Hücreleri Vurgulama
Hedef Aramayı Kullanma
Checkbox ile Exceli Kapatıp Açmak
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Cümle Durumuna Dönüştürme
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Hücre Aralığını Görüntüye Dönüştürme
Excel Dosya Silme İşlemi Makrosu
Tüm Satırda İşlem Yapan Döngü
Makro Çalışırken İmlecin Hareket Etmemesi
Transparan UserForm Oluşturmak

Daha önce yorum yapılmamış!

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