Variant Diziler

Variant Diziler kullanmanın avantajları aşağıdaki gibidir:

• Birçok hücrenin değerleri tek bir değişken içinde tutulur
• Bu değişkenin üyeleri manipüle edilebilir.
• Aralığa tek seferde geri yazılabilir
• Dizilerin içinde döngü yapmak, hücrelerde döngü yapmaktan daha hızlıdır.

Aşağıdaki örnekte variant dizide bulunan her değere 100 eklendikten sonra hücrelere yazdırılır. Bu yöntem çok daha hızlıdır.

Sub Variant_Dizi()

'variant diziler için parantez gerekli değildir
Dim AdetDegeri As Variant
Dim r As Long

'AdetTablosu ad yöneticisinde tanımlanmıştır
AdetDegeri = Range("AdetTablosu").Value
For r = 1 To UBound(AdetDegeri)
    AdetDegeri(r, 1) = AdetDegeri(r, 1) + 100
Next r

Range("AdetTablosu") = AdetDegeri
    
End Sub

Paylaş: