Bu makalede, VBA Kodunu kullanarak dizi boyutunu bulmak için adım adım kılavuz sunuyoruz.
VBA Kodunu Kullanarak Bir Dizinin Boyutu Nasıl Bulunur?
Excel VBA kodunu kullanarak dizi boyutunu bulmak için adımları izleyin.
- Adım 1: İlk önce temel ile başlayalım, VBA'da varyant veri türü olarak bir değişken tanımlayın.
Kod:
Sub Array_Size () Dim MyArray As Variant End Sub
- Adım 2: Bu değişken için ARRAY işlevini kullanın ve aşağıda gösterildiği gibi bazı değerler atayın.
Kod:
Alt Array_Size () Dim MyArray As Variant MyArray = Array ("Oca", "Şub", "Mar", "Nis", "Mayıs", "Haz", "Tem") Son Alt
- Adım 3: Tamam, “MyArray” dizi adına bazı değerler atadık.
Bu dizi değerlerini hücrelere depolamak için bir döngü yazmamız gerekiyorsa, döngünün kaç kez çalışması gerektiğine karar vermemiz gerektiğini varsayalım. Bu, dizinin sahip olduğu değerlerin sayısına bağlıdır.
Tamam, şimdi “MyArray” dizi adına atanan değerlerin sayısına bakın, diziye atanmış toplam 7 değer var, bu yüzden artık bir dizinin değerlerini hücrelere depolamak için döngünün kaç kez çalışması gerektiğini biliyoruz .
- Adım 4: VBA'da FOR döngüsü yazmak için başka bir değişkeni tamsayı olarak bildirin.
Kod:
Alt Array_Size () Dim MyArray Varyant olarak MyArray = Array ("Jan", "Şub", "Mar", "Nis", "May", "Jun", "Tem") Dim k As Tam Sayı k = 1 ila 7 Sonraki k End Sub
- Adım 5: Burada, FOR döngüsünü 1'den 7'ye kadar açtık, aşağıda gösterildiği gibi saklamak için CELLS özelliği yazarak döngü içinde.
Kod:
Alt Array_Size () Dim MyArray Varyant olarak MyArray = Array ("Oca", "Şub", "Mar", "Nis", "May", "Jun", "Tem") Dim k As Integer for k = 1 to 7 Hücreler (k, 1) .Değer = Dizim (k) Sonraki k End Sub
- Adım 6: Tamam, şimdi bir F8 fonksiyon tuşuna basarak kodu satır satır yürütün. F8 tuşuna ilk kez basıldığında makroyu başlatacaktır.
- Adım 7: Şimdi F8'e basın, dizi değeri atama satırına atlayacaktır.
- Adım 8: Şu an itibariyle dizi adı “MyArray” içinde hiçbir değer yoktur ve F8'e basın ve belirtilen tüm değerler dizi değişkenine atanacaktır.
- Adım 9: Şimdi döngü çalışmaya başlayacak ve F8 tuşuna 2 kez basacak ve A1 hücresinde hangi değeri aldığımızı görecek.
- Hata !!! Bekleyin, dizi değişkenindeki ilk değerimiz "Jan", ancak sonucu, hala ilk değer döngüsü çalışırken ikinci değer "Feb" olarak aldık.
- Adım 10: Bunun nedeni, dizi değerleriniz 1'den değil sıfırdan başladığında, başlangıç döngüsünü sıfır olarak dahil etmemiz gerektiğidir.
- Adım 11: Döngünün başlangıç pozisyonu benzer şekilde biten bir düşürüldüğünde 1 azaltılmalıdır, bu nedenle bitişi 7 yerine 6 yapın.
- Adım 12: Döngü başlangıcı ve bitişi bir kez daha yapmamız gereken ince ayarlara karar verdikten sonra, yani CELLS özelliğinde dinamik hücre seçici olarak "k" değişkenini kullandık, ancak döngümüz sıfırdan başladığından, hücre sıfırla başlamıyor , bu nedenle "k" değişkenine artı 1 ekleyin.
Kod:
Alt Array_Size () Dim MyArray Varyant olarak MyArray = Array ("Jan", "Şub", "Mar", "Nis", "May", "Jun", "Tem") Dim k As Tamsayı k = 0 ila 6 Hücreler (k + 1, 1) .Değer = Dizim (k) Sonraki k End Sub
- Adım 13: Şimdi döngüyü ilk kez çalıştırdığınızda “k” değeri sıfırdır ve artı 1 eklediğimiz için “k” değeri 1 olacaktır, dolayısıyla A1 hücresini ifade eder.
- Adım 14: Şimdi kodu çalıştırın ve dizinin tüm değerleri hücrelerde saklanacaktır.
Bununla birlikte, bu örnekte, döngünün başlama ve bitirme boyutuna manuel olarak karar verdik, ancak dizinin boyutu LBOUND & UBOUND işlevleri kullanılarak kolayca belirlenebilir.
Bir Dizinin Boyutunu Otomatik Olarak Bul
- Adım 1: Yukarıya döngü başlangıç ve bitiş noktalarını dahil ettiğimizde, dizinin sahip olduğu değerlerin sayısını manuel olarak saydık, ancak diziyi başlatmak için LBOUND işlevini kullanın ve bu geçiş için “MyArray” değişken adını kullanın.
- Adım 2: Ve son dizi boyutunu belirlemek için UBOUND işlevini kullanın ve “MyArray” dizi adını girin.
Kod:
Alt Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Şub", "Mar", "Nis", "May", "Jun", "Tem") Dim k As Integer for k = Lboubd (MyArray ) UBound (Dizim) Hücrelerine (k + 1, 1) .Değer = Dizim (k) Sonraki k End Sub
- Adım 3: Tamam şimdi satırı satır koduyla başlatın ve döngü başlangıç noktasına ulaşana kadar F8 tuşuna basın.
- Adım 4: Şimdi önce imlecinizi “LBound (MyArray)” üzerine getirin ve ne yazdığını görün.
- Adım 5: Sıfır olduğunu söylediği başlangıç noktası numarası, şimdi imleci “UBound (MyArray)” üzerine getirin ve ne yazdığını görün.
Dizi boyutunun 6 olduğunu söylüyor, bu yüzden manuel olarak başlatıp bitirmekten bahsettiğimiz gibi, UBOUND ve LBOUND bizim için sayıları otomatik olarak seçer.
