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

02 Ocak 2021 732

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
Boş Hücrelerin Görünmez Alanını Vurgulama
Negatif Sayıları Poztif Sayıya Çevirme
Aktif Hücreye Açıklama Ekleme
Excel Sayfalarında Çarpım Tablosu Oluşturma
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Hoş Geldiniz Mesajı Ekleme
Makro ile Boş Satırları Silme
Bilgisayardaki Sürücü İsimlerini Listeleme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Makrolar ile Klasör Oluşturma
Şarta Göre Satır Açma ve Renklendirme
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Metnin İçinden TC Kimlik Numarasını Ayırma
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Makro ile Web Sitesini Açmak
Excel ile Demo Yapma Makrosu
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Seçimi Yazdırma
Aktif Hücrenin Sütun Numarasını Bulma
Tüm Çalışma Sayfalarını Gösterme
Satırları Otomatik Sığdır
Makrolar ile Klasördeki Dosyayı Taşıma
Disk Sürücü Kapasitesini Gösterme
Bağlantılı Resim Ekleme
Hesap Makinesini Açma
Tüm Çalışma Kitaplarını Aynı Anda Kapatma
Grafiği Görüntü Olarak Yapıştırma
Excel Açılırken Otomatik İşlem Yaptırma
ComboBox Nesneleri ile Toplama Yapma
Özel Sayfaları Yazdırma
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Verileri Tek Sütuna Göre Sıralama
Sayıları Yeni Bir Sayıyla Çarpma
UserForm Üzerine CommandButton Ekleme
TextBox Nesnesine Harf Girilmesini Engelleme
UserForm Açılırken Efekt Ekleme
Makro ile Hızlı Doldurma
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Satırı Kes Kopyala ve Yapıştır
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Belirli Bir Metne Sahip Hücreleri Vurgulama
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Makro Etkinletirilmezse Sayfalar Gizlenir
Program Başlangıcı Kodları
Hücre Aralığını Görüntüye Dönüştürme
Excel Dosya Arama Yapma Makrosu
Makrolar ile Klasör Kopyalama
Metni Tersten Yazdırma

Daha önce yorum yapılmamış!

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