VBA'da, bir Dizi birden çok değer tutabilen tek bir değişkendir. Bir diziyi bir dizi hücre gibi düşünün: her hücre bir değer depolayabilir. Diziler tek boyutlu (tek bir sütun düşünün), iki boyutlu (birden çok satır ve sütun düşünün) veya çok boyutlu olabilir. Dizi değerlerine dizi içindeki konumları (indeks numarası) ile erişilebilir.
VBA Dizisi Hızlı Sayfası
diziler
AçıklamaVBA KoduOluşturmakDim arr(1 ila 3) Varyant Olarakarr(1) = “bir”
arr(2) = “iki”
arr(3) = “üç”Excel'den OluşturDim arr(1 ila 3) Varyant Olarak
Dim hücre Aralık Olarak, i Tamsayı Olarak
ben = LBound(arr)
Aralıktaki Her Hücre İçin(“A1:A3”)
ben = ben + 1
dizi(i) = hücre.değer
Sonraki hücreTüm Öğeleri OkuDim ben uzun
i için = LBound(arr) için UBound(arr)
MsgBox dizi(i)
sonraki benSildizi silDiziden DizeyeDim sName As String
sName = Katıl(dizi, “:”)Boyutu ArtırReDim Koruma arr(0 - 100)Değeri Ayarladizi(1) = 22
VBA Dizisi Hızlı Örnekleri
Ayrıntılara girmeden önce tam bir örneğe bakalım:
| 12345678910 | Alt DiziÖrnek()String olarak strNames(1 ila 4) DimstrNames(1) = "Shelly"strNames(2) = "Steve"strNames(3) = "Neema"strNames(4) = "Jose"msgbox strNames(3)Alt Bitiş |
Burada tek boyutlu dize dizisini oluşturduk: strNames dört boyutlu (dört değer tutabilir) ve dört değer atadı. Son olarak bir Mesaj Kutusunda 3. değeri görüntülüyoruz.
Bu durumda, bir Array kullanmanın faydası küçüktür: dört yerine yalnızca bir değişken bildirimi gereklidir.
Ancak, bir dizinin gerçek gücünü gösterecek bir örneğe bakalım:
| 12345678 | Alt DiziÖrnek2()Dim strNames(1 ila 60000) As StringDim kadar uzuni = 1 ila 60000 içinstrNames(i) = Hücreler(i, 1).Valuesonraki benAlt Bitiş |
Burada 60.000 değer tutabilen bir Dizi oluşturduk ve diziyi bir çalışma sayfasının A Sütunundan hızla doldurduk.
Dizi Faydaları? - Hız!
Excel çalışma sayfalarına benzer Diziler düşünebilirsiniz:
- Her hücre (veya bir dizideki öğe) kendi değerini içerebilir.
- Her hücreye (veya bir dizideki öğeye) satır ve sütun konumu ile erişilebilir.
- Çalışma Sayfası Örn. hücreler(1,4).değer = "Satır 1, Sütun 4"
- Dizi Örn. arrVar(1,4) = "Satır 1, Sütun 4"
Öyleyse neden Dizilerle uğraşıyorsunuz? Neden değerleri doğrudan Excel'deki hücrelere okuyup yazmıyorsunuz? Bir kelime: Hız!
Excel hücrelerine Okuma / Yazma yavaş bir işlemdir. Dizilerle çalışmak çok daha hızlı!
Dizi Oluştur / Bildir (Dim)
Not: Dizilerin birden çok "boyutu" olabilir. İşleri basit tutmak için, yalnızca tek boyutlu dizilerle çalışarak başlayacağız. Eğitimin ilerleyen bölümlerinde sizi çok boyutlu dizilerle tanıştıracağız.
Statik Dizi
Statik Diziler boyutunu değiştiremeyen dizilerdir. Tersine, Dinamik Diziler boyutunu değiştirebilir. Biraz farklı şekilde ilan edilirler. İlk olarak, statik dizilere bakalım.
Not: Dizinizin boyutu değişmezse, statik bir dizi kullanın.
Statik bir dizi değişkeni bildirmek, dizinin boyutunu tanımlamanız gerekmesi dışında, normal bir değişken bildirmeye çok benzer. Bir dizinin boyutunu ayarlamanın birkaç farklı yolu vardır.
Bir dizinin başlangıç ve bitiş konumlarını açıkça bildirebilirsiniz:
| 123456789101112 | Alt StatikArray1()'1,2,3,4 konumlarıyla dizi oluştururDim arrDemo1(1 - 4) As String'4,5,6,7 konumlu dizi oluştururDim arrDemo2(4 ila 7) kadar Uzun'0,1,2,3 konumlarıyla dizi oluştururDim arrDemo3(0 To 3) As UzunAlt Bitiş |
Veya yalnızca dizi boyutunu girebilirsiniz:
| 123456 | Alt StatikArray2()'0,1,2,3 konumlarıyla dizi oluştururDim arrDemo1(3) As StringAlt Bitiş |
Önemli! Dizilerin varsayılan olarak 0 konumunda başladığına dikkat edin. Dim arrDemo1(3) 0,1,2,3 konumlu bir dizi oluşturur.
beyan edebilirsin Seçenek Tabanı 1 dizi, bunun yerine 1. konumdan başlayacak şekilde modülünüzün en üstünde:
| 12345678 | Seçenek Tabanı 1Alt StatikArray3()'1,2,3 konumlarıyla dizi oluştururDim arrDemo1(3) As StringAlt Bitiş |
Ancak, dizilerin başlangıç ve bitiş konumlarını açıkça belirtmenin çok daha kolay (ve daha az kafa karıştırıcı) olduğunu düşünüyorum.
VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!
Dinamik Dizi
Dinamik Diziler boyutu değiştirilebilen (veya boyutunun tanımlanması gerekmeyen) dizilerdir.
Dinamik Dizi bildirmenin iki yolu vardır.
Varyant Diziler
Dinamik Dizi bildirmenin ilk yolu, diziyi yazacak şekilde ayarlamaktır. varyant.
| 1 | Dim arrVar() Varyant Olarak |
Birlikte Varyant Dizisiy, dizi boyutunu tanımlamanız gerekmez. Boyut otomatik olarak ayarlanacaktır. Dizinin 0 konumuyla başladığını unutmayın (modülünüzün en üstüne Option Base 1 eklemezseniz)
| 12345678910111213 | Alt VariantArray()Dim arrVar() Varyant Olarak'Değerleri Tanımla (Boyut = 0,1,2,3)arrVar = Dizi(1, 2, 3, 4)'Değerleri Değiştir (Boyut = 0,1,2,3,4)arrVar = Array("1a", "2a", "3a", "4a", "5a")'Çıkış Konumu 4 ("5a")MsgBox arrVar(4)Alt Bitiş |
Varyant Olmayan Dinamik Diziler
Varyant olmayan dizilerde, diziye değerler atamadan önce dizi boyutunu tanımlamanız gerekir. Ancak diziyi oluşturma süreci biraz farklıdır:
| 1234567 | Alt DynamicArray1()Dim arrDemo1() Dize Olarak' 1,2,3,4 konumlarıyla diziyi yeniden boyutlandırırReDim arrDemo1(1 - 4)Alt Bitiş |
İlk önce dizi boyutunu atlamanız dışında statik diziye benzer şekilde diziyi bildirirsiniz:
| 1 | Dim arrDemo1() Dize Olarak |
Şimdi dizi boyutunu ayarlamak istediğinizde Yeniden Karartma diziyi boyutlandırmak için komut:
| 12 | ' 1,2,3,4 konumlarıyla diziyi yeniden boyutlandırırReDim arrDemo1(1 - 4) |
ReDim diziyi yeniden boyutlandırır. ReDim ve ReDim Preserve arasındaki fark için aşağıyı okuyun.
ReDim ve ReDim Koru
kullandığınızda Yeniden Karartma komut, dizideki tüm mevcut değerleri temizler. Bunun yerine kullanabilirsiniz ReDim Koru dizi değerlerini korumak için:
| 12 | ' 1,2,3,4 konumlarıyla diziyi yeniden boyutlandırır (Mevcut değerleri koruyarak)ReDim Koruma arrDemo1(1 - 4) |
Basitleştirilmiş Dizi Bildirme
Yukarıdaki her şeyi okuduktan sonra bunalmış hissedebilirsiniz. İşleri basit tutmak için, makalenin geri kalanında çoğunlukla statik dizilerle çalışacağız.
Dizi Değerlerini Ayarla
Dizi değerlerini ayarlamak çok kolaydır.
Statik bir diziyle, dizinin her konumunu birer birer tanımlamanız gerekir:
| 12345678 | Alt DiziÖrnek()String olarak strNames(1 ila 4) DimstrNames(1) = "Shelly"strNames(2) = "Steve"strNames(3) = "Neema"strNames(4) = "Jose"Alt Bitiş |
Bir Varyant Dizisi ile tüm diziyi tek bir satırla tanımlayabilirsiniz (yalnızca küçük diziler için pratiktir):
| 123456 | Alt DiziÖrnek_1Satır()Dim strNames() Varyant OlarakstrNames = Array("Shelly", "Steve", "Neema", "Jose")Alt Bitiş |
Var olmayan bir dizi konumu için bir değer tanımlamaya çalışırsanız, bir Abonelik Aralık Dışı hatası alırsınız:
| 1 | strNames(5) = "Shannon" |
Aşağıda, Dizilere Aralık Atama bölümünde, dizilere hızlı bir şekilde çok sayıda değer atamak için bir döngünün nasıl kullanılacağını göstereceğiz.
Dizi Değeri Al
Dizi değerlerini aynı şekilde getirebilirsiniz. Aşağıdaki örnekte hücrelere dizi değerleri yazacağız:
| 1234 | Aralık("A1").Value = strNames(1)Aralık("A2").Value = strNames(2)Aralık("A3").Value = strNames(3)Aralık("A4").Value = strNames(4) |
VBA Programlama | Code Generator sizin için çalışıyor!
Diziye Aralık Ata
Bir Diziye Aralık atamak için bir döngü kullanabilirsiniz:
| 12345678 | Alt RangeToArray()Dim strNames(1 ila 60000) As StringDim kadar uzuni = 1 ila 60000 içinstrNames(i) = Hücreler(i, 1).Valuesonraki benAlt Bitiş |
Bu, hücre değerlerini diziye atayarak A1:A60000 hücreleri arasında dolaşacaktır.
Aralığa Çıkış Dizisi
Veya bir diziye bir dizi atamak için bir döngü kullanabilirsiniz:
| 123 | i = 1 ila 60000 içinHücreler(i, 1).Value = strNames(i)sonraki ben |
Bu, tersini yapacaktır: A1:A60000 hücrelerine dizi değerleri atayın
2B / Çok Boyutlu Diziler
Şimdiye kadar yalnızca tek boyutlu (1B) dizilerle çalıştık. Bununla birlikte, diziler en fazla 32 boyuta sahip olabilir.
1B diziyi tek bir Excel hücresi satırı veya sütunu gibi, 2B diziyi birden çok satır ve sütun içeren tüm Excel çalışma sayfası gibi düşünün ve 3B dizi, her biri birden çok satır ve sütun içeren birden çok sayfa içeren bir çalışma kitabının tamamı gibidir. 3B diziyi de Rubik Küpü gibi düşünebilir).
Çok Boyutlu Dizi Örnekleri
Şimdi farklı boyutlardaki dizilerle çalışma örneklerini gösterelim.
VBA Programlama | Code Generator sizin için çalışıyor!
1D Dizi Örneği
Bu prosedür, önceki dizi örneklerini tek bir prosedürde birleştirerek dizileri pratikte nasıl kullanabileceğinizi gösterir.
| 1234567891011121314 | Alt DiziEx_1d()Dim strNames(1 - 60000) As StringDim kadar uzun'Dizi'ye Değer Atamai = 1 ila 60000 içinstrNames(i) = Hücreler(i, 1).Valuesonraki benAralığa Çıktı Dizi Değerlerii = 1 ila 60000 içinSheets("Output").Cells(i, 1).Value = strNames(i)sonraki benAlt Bitiş |
2B Dizi Örneği
Bu prosedür, bir 2B dizi örneğini içerir:
| 123456789101112131415161718 | Alt DiziEx_2d()Dim strNames(1 ila 60000, 1 ila 10) As StringDim i Kadar Uzun, j Kadar Uzun'Dizi'ye Değer Atamai = 1 ila 60000 içinj = 1 ila 10 içinstrNames(i, j) = Hücreler(i, j).Valuesonraki jsonraki benAralığa Çıktı Dizi Değerlerii = 1 ila 60000 içinj = 1 ila 10 içinSheets("Çıktı").Cells(i, j).Value = strNames(i, j)sonraki jsonraki benAlt Bitiş |
3B Dizi Örneği
Bu prosedür, birden çok sayfayla çalışmak için bir 3B dizi örneği içerir:
| 12345678910111213141516171819202122 | Alt DiziEx_3d()Dim strNames(1 ila 60000, 1 ila 10, 1 ila 3) As StringDim i Kadar Uzun, j Kadar Uzun, k Kadar Uzun'Dizi'ye Değer Atamak = 1 ila 3 içini = 1 ila 60000 içinj = 1 ila 10 içinstrNames(i, j, k) = Sayfalar("Sayfa" & k).Hücreler(i, j).Valuesonraki jsonraki benSonraki kAralığa Çıktı Dizi Değerlerik = 1 ila 3 içini = 1 ila 60000 içinj = 1 ila 10 içinSheets("Output" & k).Cells(i, j).Value = strNames(i, j, k)sonraki jsonraki benSonraki kAlt Bitiş |
Dizi Uzunluğu / Boyutu
Şimdiye kadar sizi farklı dizi türleriyle tanıştırdık ve dizileri nasıl bildireceğinizi ve dizi değerlerini nasıl alacağınızı/ayarlayacağınızı öğrettik. Daha sonra dizilerle çalışmak için gerekli diğer konulara odaklanacağız.
VBA Programlama | Code Generator sizin için çalışıyor!
UBound ve LBound İşlevleri
Bir dizinin uzunluğunu / boyutunu elde etmenin ilk adımı, dizinin üst ve alt sınırlarını elde etmek için UBound ve LBound işlevlerini kullanmaktır:
| 123456 | Alt UBoundLBound()Dim strNames(1 - 4) As StringMsgBox UBound(strNames)MsgBox LBound(strNames)Alt Bitiş |
İkisini çıkarmak (ve 1 eklemek) size uzunluğu verecektir:
| 1 | GetArrLength = UBound(strNames) - LBound(strNames) + 1 |
Dizi Uzunluğu İşlevi
Tek boyutlu bir dizinin uzunluğunu elde etmek için bir fonksiyon:
| 1234567 | Public Function GetArrLength(a As Variant) As LongIsEmpty(a) iseGetArrLength = 0BaşkaGetArrLength = UBound(a) - LBound(a) + 1BitirBitiş İşlevi |
2B dizinin boyutunu hesaplamanız mı gerekiyor? Eğitimimize göz atın: Dizi Boyutunu Hesaplayın.
Dizide Döngü
Bir dizide döngü yapmanın iki yolu vardır. İlki, dizinin sayı konumlarına karşılık gelen tamsayılar arasında döngü yapar. Dizi boyutunu biliyorsanız, doğrudan belirtebilirsiniz:
| 12345678910111213 | Alt DiziÖrnek_Döngü1()Dim strNames(1 - 4) As StringDim kadar uzunstrNames(1) = "Shelly"strNames(2) = "Steve"strNames(3) = "Neema"strNames(4) = "Jose"i = 1 ila 4 içinMsgBox strNames(i)sonraki benAlt Bitiş |
Ancak dizi boyutunu bilmiyorsanız (dizi dinamikse), önceki bölümdeki LBound ve UBound işlevlerini kullanabilirsiniz:
| 12345678910111213 | Alt DiziÖrnek_Döngü2()Dim strNames(1 - 4) As StringDim kadar uzunstrNames(1) = "Shelly"strNames(2) = "Steve"strNames(3) = "Neema"strNames(4) = "Jose"i = LBound(strNames) için UBound(strNames) içinMsgBox strNames(i)sonraki benAlt Bitiş |
Her Dizi Döngüsü İçin
İkinci yöntem Her Bir Döngü İçindir. Bu, dizideki her bir öğe arasında dolaşır:
| 12345678910111213 | Alt DiziÖrnek_Döngü3()Dim strNames(1 - 4) As StringÖğeyi karartstrNames(1) = "Shelly"strNames(2) = "Steve"strNames(3) = "Neema"strNames(4) = "Jose"strNames'deki Her Öğe İçinMesaj Kutusu ÖğesiSıradaki eşyaAlt Bitiş |
For Her Dizi Döngüsü, tek boyutlu dizilere ek olarak çok boyutlu dizilerle çalışacaktır.
VBA Programlama | Code Generator sizin için çalışıyor!
2B Dizide Döngü
UBound ve LBound işlevlerini ayrıca çok boyutlu bir dizide döngü yapmak için de kullanabilirsiniz. Bu örnekte bir 2B dizide döngü yapacağız. UBound ve LBound İşlevlerinin, üst ve alt sınırları bulmak için dizinin hangi boyutunu belirlemenize izin verdiğine dikkat edin (birinci boyut için 1, ikinci boyut için 2).
| 1234567891011121314151617181920 | Alt DiziÖrnek_Döngü4()Dim strNames(1'den 4'e, 1'den 2) As StringDim i Kadar Uzun, j Kadar UzunstrNames(1, 1) = "Shelly"strNames(2, 1) = "Steve"strNames(3, 1) = "Neema"strNames(4, 1) = "Jose"strNames(1, 2) = "Shelby"strNames(2, 2) = "Steven"strNames(3, 2) = "Nemo"strNames(4, 2) = "Jesse"j = LBound(strNames, 2) için UBound(strNames, 2) içini = LBound(strNames, 1) için UBound(strNames, 1) içinMsgBox strNames(i, j)sonraki bensonraki jAlt Bitiş |
Diğer Dizi Görevleri
Diziyi Temizle
Tüm bir diziyi temizlemek için Silme İfadesini kullanın:
| 1 | strNames'i sil |
Kullanım Örneği:
| 12345678910 | Alt DiziÖrnek()String olarak strNames(1 ila 4) DimstrNames(1) = "Shelly"strNames(2) = "Steve"strNames(3) = "Neema"strNames(4) = "Jose"strNames'i silAlt Bitiş |
Alternatif olarak, dizinin bir kısmını temizleyerek yeniden boyutlandırmak için diziyi ReDim yapabilirsiniz:
| 1 | ReDim strNames(1 - 2) |
Bu, diziyi boyut 2'ye yeniden boyutlandırır, konum 3 ve 4'ü siler.
Sayı Dizisi
UBound ve LBound İşlevlerini (yukarıda tartışılmıştır) kullanarak bir dizinin her boyutundaki konum sayısını sayabilirsiniz.
Ayrıca dizi içinde dolaşarak girilen öğelerin (veya belirli kriterleri karşılayan öğelerin) sayısını da sayabilirsiniz.
Bu örnek, bir dizi nesne arasında döngü yapacak ve dizide bulunan boş olmayan dizelerin sayısını sayacaktır:
| 123456789101112131415 | Alt DiziLoopandCount()Dim strNames(1 - 4) As StringDim i Kadar Uzun, n Kadar UzunstrNames(1) = "Shelly"strNames(2) = "Steve"i = LBound(strNames) için UBound(strNames) içinstrNames(i) "" isen = n + 1Bitirsonraki benMsgBox n & " boş olmayan değerler bulundu."Alt Bitiş |
VBA Programlama | Code Generator sizin için çalışıyor!
Yinelenenleri Kaldır
Bir noktada, bir Diziden kopyaları kaldırmak isteyebilirsiniz. Ne yazık ki, VBA'nın bunu yapmak için yerleşik bir özelliği yoktur. Ancak, bir Diziden kopyaları kaldırmak için bir işlev yazdık (bu öğreticiye dahil etmek için çok uzun, ancak daha fazlasını öğrenmek için bağlantıyı ziyaret edin).
Filtre
VBA Filtre İşlevi, bir Diziyi Filtrelemenize olanak tanır. Bunu, yalnızca filtrelenmiş değerlerle yeni bir dizi oluşturarak yapar. Aşağıda hızlı bir örnek verilmiştir, ancak farklı ihtiyaçlar için daha fazla örnek için makaleyi okuduğunuzdan emin olun.
| 1234567891011121314 | Alt Filter_Match()'Diziyi TanımlaVaryant Olarak Dim strNamesstrNames = Array("Steve Smith", "Shannon Smith", "Ryan Johnson")'Filtre DizisiVaryant Olarak Dim strSubNamesstrSubNames = Filtre(strNames, "Smith")'Sayım Filtrelenmiş DiziMsgBox "Found" & UBound(strSubNames) - LBound(strSubNames) + 1 & " name."Alt Bitiş |
IsArray İşlevi
IsArray İşlevini kullanarak bir değişkenin bir dizi olup olmadığını test edebilirsiniz:
| 123456789101112 | Alt IsArrayEx()'1,2,3 konumlarıyla dizi oluştururDim arrDemo1(3) As String'Normal dize değişkeni oluştururDim str As StringMsgBox IsArray(arrDemo1)MsgBox IsArray(str)Alt Bitiş |
Diziye Katıl
Birleştirme İşlevi ile birlikte tüm diziye hızlı bir şekilde "katılabilirsiniz":
| 123456789101112 | Alt Array_Join()Dim strNames(1 - 4) As StringJoinNames As StringstrNames(1) = "Shelly"strNames(2) = "Steve"strNames(3) = "Neema"strNames(4) = "Jose"joinNames = Join(strNames, ", ")MsgBox birleştirmeAdlarıAlt Bitiş |
VBA Programlama | Code Generator sizin için çalışıyor!
Dizeyi Diziye Böl
VBA Bölme İşlevi, bir metin dizesini, orijinal dizedeki değerleri içeren bir diziye böler. Bir örneğe bakalım:
| 123456789 | Alt Dizi_Split()Dim İsimler() As StringDize Olarak Birleştirilmiş Adları DimjoinNames = "Shelly,Steve,Nema,Jose"İsimler = Böl(birleştirilmiş İsimler, ",")MsgBox Adları(1)Alt Bitiş |
Burada "Shelly,Steve,Nema,Jose" metin dizisini virgül sınırlayıcı (,) kullanarak bir diziye (boyut 4) böldük.
Sabit Dizi
bir dizi yapamam VBA'da sabit olarak bildirilmelidir. Ancak, Dizi olarak kullanılacak bir işlev oluşturarak bu sorunu çözebilirsiniz:
| 123456789 | ' ConstantArray'i tanımlaİşlev ConstantArray()ConstantArray = Dizi(4, 12, 21, 100, 5)Bitiş İşlevi' ConstantArray Değerini AlAlt RetrieveValues()MsgBox ConstantArray(3)Alt Bitiş |
Diziyi Kopyala
VBA kullanarak bir Dizi kopyalamanın yerleşik bir yolu yoktur. Bunun yerine değerleri bir diziden diğerine atamak için bir döngü kullanmanız gerekecektir.
| 12345678910111213141516171819 | Alt CopyArray()Dim Arr1(1 - 100) Kadar UzunDim Arr2(1 - 100) Kadar UzunDim kadar uzun'Dizi1 Oluşturi = 1 ila 100 içinArr1(i) = bensonraki ben'CopyArray1'den Array2'yei = 1 ila 100 içinVarış2(i) = Var1(i)sonraki benMsgBox Dizi2(74)Alt Bitiş |
devrik
Bir diziyi Transpoze etmenize izin verecek yerleşik bir VBA işlevi yoktur. Ancak, 2B Dizinin Yer Değiştirmesi için bir fonksiyon yazdık. Daha fazlasını öğrenmek için makaleyi okuyun.
VBA Programlama | Code Generator sizin için çalışıyor!
İşlev Dönüş Dizisi
VBA geliştiricilerinin sahip olduğu yaygın bir soru, dizi döndüren bir işlevin nasıl oluşturulacağıdır. Zorlukların çoğunun Variant Arrays kullanılarak çözüldüğünü düşünüyorum. Konuyla ilgili bir makale yazdık: VBA İşlev Dönüş Dizisi.
Access VBA'da Dizileri Kullanma
Yukarıdaki Dizi örneklerinin çoğu, Excel VBA'da olduğu gibi Access VBA'da da tam olarak aynı şekilde çalışır. Tek büyük fark, Access verilerini kullanarak bir diziyi doldurmak istediğinizde, Range nesnesi yerine RecordSet nesnesi arasında döngü yapmanız gerekmesidir.
| 1234567891011121314151617181920212223 | Alt RangeToArrayAccess()Hatada Devam Et SonrakiDim strNames() As StringDim kadar uzuniCount'u Uzun Süre KarartınVeritabanı Olarak Dim dbsÖnce Kayıt Kümesi Olarak Karartdbs'yi ayarla = CurrentDbİlk olarak ayarla = dbs.OpenRecordset("tblClients", dbOpenDynaset)ilk ile.MoveLast.Önce TaşıiCount = .RecordCountReDim strNames(1'den iCount'a)i = 1 için iCount içinstrNames(i) = rst.Fields("MüşteriAdı").Sonraki Taşısonraki benİle bitmekilk.Kapatİlk olarak ayarla = Hiçbir şeydbs'yi ayarla = Hiçbir şeyAlt Bitiş |
| Dizi Öğreticileri | |
|---|---|
| Dizi Mega Kılavuzu | Evet |
| Dizi Boyutunu Al | |
| Diziyi Temizle | |
| Filtre Dizisi | |
| Diziyi Transpoze Etme | |
| İşlev Dönüş Dizisi | |
| Yinelenenleri Kaldır | |
