Vba aracılığıyla bir diziye yeni bir değer nasıl eklenir?

Mevcut bir diziye yeni bir değer eklemek için elemanlarını yeniden tanımlayacak dinamik bir diziye sahip olmanız gerekir ve bunu yaptığınızda eski elemanların değerlerini korumanız gerekir. Bu, tanımladığınız yeni öğeye yalnızca değeri eklemenize ve parçanın geri kalanını olduğu gibi bırakmanıza yardımcı olur.

Aşağıda iki öğeyi tanımladığınız bir diziniz var. Bu dinamik bir dizi olduğundan, iki öğeyi tanımlamak ve ardından bu öğelere değer eklemek için bir “ReDim” ifadesine sahipsiniz.

Daha sonra bu diziye üçüncü bir öğe ekleyeceğiz.

VBA’da bir diziye yeni bir değer ekleyin

1. Öncelikle, değerini eklemek istediğiniz yeni öğe de dahil olmak üzere her iki öğeyi de korumak için “Preserve” anahtar sözcüğüyle birlikte “ReDim” ifadesini kullanmanız gerekir.
2. Daha sonra dizide olmasını istediğiniz elemanları tanımlamanız gerekir. Burada üç elemente sahip olmanız gerekiyor, bu yüzden bunun için 1’den 3’e kadar olan sayıları kullanıyoruz.
3. Daha sonra yeni tanımladığınız element olan üçüncü elemente değer katmanız gerekiyor.
4. Sonunda, yeni öğelerle birlikte tüm öğeleri hemen pencerede almak için debug.print’i kullanın.

 Option Explicit Option Base 1 Sub vba_array_add_value() Dim myArray() As Variant ReDim myArray(2) myArray(1) = 5 myArray(2) = 10 ReDim Preserve myArray(1 To 3) myArray(3) = 15 Debug.Print myArray(1) Debug.Print myArray(2) Debug.Print myArray(3) End Sub

Birkaç kelimeyi daha sizinle paylaşayım.

• Daha sonra koddaki diziye daha fazla değer eklemeniz gerektiğini biliyorsanız, diziyi başlangıçta dinamik dizi olarak bildirmelisiniz.
• Bu yöntemi kullanarak yalnızca dizinin sonuna yeni bir öğe ekleyebilirsiniz.