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

02 Ocak 2021 848

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
Sağ Tık ile Açılan Menüye Ekleme Yapma
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Txt Dosyası Oluşturma
Sendkey Yöntemi ile F Q Klavye Dönüşümü
Kopyala ve Biçimleri Yapıştır
Klavyeye Makro Atama ve Çalıştırma
Sürücü Adı Kontrolü Yapma
Satır Yüksekliklerini Otomatik Ayarlama
Makrolar ile Txt Dosya Silme
Aç Penceresini Açan Makro
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Makro ile Git Penceresini Açma
Kare Kökünü Hesaplama
Excel Üzerinden Klasör Açma Kodu
Kopyala ve Değer Olarak Yapıştır
Tek Satırı Kes Kopyala ve Yapıştır
Negatif Sayıları Poztif Sayıya Çevirme
İçindekiler Tablosu Oluşturma
Sayılara Yeni Bir Sayı Ekleme
Hücre Biçimlendir Yazı Tipi Penceresini Açma
Aralıklı Olarak Satır Silme
Dolar Okutma Makrosu
İstenilen Şart Sağlanmıyorsa Kayıt Gerçekleşmesin
56 Koşula Kadar Biçimlendirme Yapma
Makrolar ile Klasör Oluşturma
Çalışma Kitabını E-Posta Ekine Ekleme
Excel Crackleme İşlemi Makrosu
Gizlenmiş Makro Örnekleri
Sürücü Seri Numarasını Gösterme
A Sütunundaki Verileri C Sütununda Sıralama
Yanıp Sönme Efekti Verme Kodu
A1 Referans Stilini Etkinleştirme
Seçili Sütunların Sayısını Bulma
PDF Dosyalarını Birleştirme
Makro Çalışırken İmlecin Hareket Etmemesi
Api ile Bilgisayar Adını Bulmak
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Seçili Her Satırdan Sonra Bir Satır Ekleme
Hoş Geldiniz Mesajı Ekleme
Aktif Çalışma Sayfası Dışında Tümünü Silme
Hedef Aramayı Kullanma
TextBox Nesnesinde Kuruş Göstermek
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Hücrenin Rengini Değiştirme
Makrolar ile Sonraki Sayfaya Geçmek
ComboBox Nesneleri ile Toplama Yapma
UserForm Nesnesine Otomatik Buton Ekleme
Aktif Sütuna Göre Diğer Sütunda İşlem
Aktif Satırı ve Sütunu Vurgulama
Excel Tam Ekran Yapma

Daha önce yorum yapılmamış!

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