- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhabalar,
Aşağıdaki kodda görüleceği üzere;
arrSiz1 ve arrSiz2 adında iki dizi mevcut,
Bu iki diziyi bir Collection nesnesi içine ekleyerek; farklı durmlara göre bir Collection item' i olarak çağırmak istiyordum,
Yalnız bunu başaramadım, yardımcı olabilir misiniz?
teşekkürler,
iyi Çalışmalar.
Aşağıdaki kodda görüleceği üzere;
arrSiz1 ve arrSiz2 adında iki dizi mevcut,
Bu iki diziyi bir Collection nesnesi içine ekleyerek; farklı durmlara göre bir Collection item' i olarak çağırmak istiyordum,
Yalnız bunu başaramadım, yardımcı olabilir misiniz?
teşekkürler,
iyi Çalışmalar.
Kod:
Public Coll As Collection
Public arrSiz1() As Variant
Public arrSiz2() As Variant
Sub arraySize()
Dim arrTest As Variant
ReDim arrSiz1(1 To 7)
ReDim arrSiz2(1 To 7)
Set Coll = New Collection
arrSiz1(1) = "XS"
arrSiz1(2) = "S"
arrSiz1(3) = "M"
arrSiz1(4) = "L"
arrSiz1(5) = "XL"
arrSiz1(6) = "XXL"
arrSiz1(7) = "T"
arrSiz2(1) = "'1-2"
arrSiz2(2) = "'3-4"
arrSiz2(3) = "'5-6"
arrSiz2(4) = "'7-8"
arrSiz2(5) = "'9-10"
arrSiz2(6) = "'11-12"
arrSiz2(7) = "T"
Coll.Add arrSiz1, 1
Coll.Add arrSiz2, 2
arrTest = Coll(0)
end Sub