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

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.

XD Destek İste
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.

#Dizileri İç İçe Döngüye Eklemek
50 Farklı Hazır Makro (VBA) Kodu
Excel Makroları ile Form Çağırma
Sütunu Kes Kopyala ve Yapıştır
Bir Çalışma Kitabında Kaç Sayfa Var
Dizileri Döngüye Eklemek
Bir Aralıktaki Minimum Değeri Renklendirme
Başka Dosyada Şifreli Userform Oluşturmak
Tüm Sütunda İşlem Yapan Döngü
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Aktif Hücrenin Satır Numarasını Bulma
Transparan UserForm Oluşturmak
UserForm Resize Özelliği Eklemek
Gizli Sayfaların Bulunması ve Gösterilmesi
Excel Menüsüne Ekleme Yapma Kodu
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Giriş Kutusu ve Mesaj Yazma İşlemi
Yorumları İçeren Hücreleri Renklendirme
Dizileri İç İçe Döngüye Eklemek
Satırlardaki Farkı Renklendirme
Otomatik Sıra Numarası Ekleme
56 Koşula Kadar Biçimlendirme Yapma
Kullanılan Tüm Sütunları Otomatik Sığdır
Label Nesnesine Kayan Yazı Ekleme
56 Renk Kodunu Sıralama
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Hücre Aralığını Kes Kopyala ve Yapıştır
Hücrenin Arka Plan Rengini Değiştirme
Excel Makroları ile Dosya Sayısını Bulma
Sayıları Rastgele Karıştırmak
2. Satırdaki Bilgileri Silmek
Top 10 Değeri Renklendirme
Excel Crackleme İşlemi Makrosu
Excel Makroları ile Klasör Silme
Seçili Satırların Sayısını Bulma
Hücrenin Rengini Değiştirme
Makrolar ile Eliptik Form Oluşturma
UserForm Kapatma Kodu
Tek Satırı Kes Kopyala ve Yapıştır
Tek Hücreyi Kes Kopyala ve Yapıştır
Aktif Hücrenin Sütun Numarasını Bulma
Aktif Satırı ve Sütunu Vurgulama
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Excel Üzerinden Klasör Açma Kodu
Excel Makroları ile Hücreye Saat Ekleme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Hesap Makinesini Açma
Son Sütun Numarasını Bulma
Tek Sütunu Kes Kopyala ve Yapıştır
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Kopyala ve Değer Olarak Yapıştır
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Aşağıdaki resimde olduğu gib bir tablonuz olduğunu ve belirtildiği gibi sütun eklemeniz gerektiğini varsayalım.

bir seferde çoklu sütun ekleme

Excel kullanıcıları burada genelde sütunlara tek tek seçerek birden fazla seferde sütun ekleme işlemini yapmaktadır. Bunu bir tık kısaltmanın yolu ise:

Sütunları birbiri ardına seçin (seçerken Ctrl tuşunu basılı tutun, fare ile bir kerede seçim yapmayın).
Sütun başlığını sağ tıklayın ve Ekle'yi seçin - bu, seçilen sütunların her biri için araya bir sütun ekler.

bir seferde çoklu sütun ekleme
Yükleniyor...