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

02 Ocak 2021 789

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
56 Renk Kodunu Sıralama
Excel Alarm Kurma
Tarih ve Saatten Tarihi Kaldırma
Makro ile Klasör Açma
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Son Sütun Numarasını Bulma
İçinde Bulunduğumuz Günü Bulma
Son Satır Numarasını Bulma
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Kopyala ve Özel Yapıştır
Formüllü Hücreleri Renklendir
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Sütunları Otomatik Sığdırma
Program Başlangıcı Kodları
MsgBox Nesnesi ile Cevap Seçeneği Sunma
A Sütunundaki Verileri C Sütununda Sıralama
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Kullanılan Tüm Sütunları Otomatik Sığdır
Aktif Hücreye Günün Tarihini Yazma
Sendkey Yöntemi ile F Q Klavye Dönüşümü
Çalışma Kitabını E-Posta Ekine Ekleme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Excel Makro ile Hücreye Veri Yazma
Açık Excel Kitaplarını Yerleştirme
Seçili Aralığı PDF Olarak Kaydetme
Excel Hücresine Gitme Makrosu
Seçili Alanda Yinelenenleri Vurgulama
Kullanıcı Adınızı Bulma
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Formu Kapatma Makro Kodu
Seri Numaralarını Ekleme
Makrolar ile Klasör Silme
Checkbox ile Exceli Kapatıp Açmak
Makrolar ile Txt Dosyası Oluşturma
Her Bir Sütundaki Maksimum Değeri Bulma
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Excel Makroları ile Klasör Silme
56 Koşula Kadar Biçimlendirme Yapma
PDF Dosyalarını Birleştirme
Excel ile Demo Yapma Makrosu
Adlandırılmış Aralıkları Vurgulama
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Hedef Aramayı Kullanma
Giriş Kutusu ve Mesaj Yazma İşlemi
Makro ile Açılan Liste Oluşturma
TextBox Nesnesine Harf Girilmesini Engelleme
Grafiği Görüntü Olarak Yapıştırma
Excel Satır Silme Kodu
Makro ile Web Sitesini Açmak
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma

Daha önce yorum yapılmamış!

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