Collection içine dizi ekleme

[tamer42]

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.

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

 

[tamer42]

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.

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

Arkadaşlar aşağıdaki gibi bir çözüm ürettim ama;
umarım her koşulda doğru çalışacaktır.

teşekkürler, iyi çalışmalar.

    Coll.Add (arrSiz1)
    Coll.Add (arrSiz2)

    arrTest() = Coll(1)