VBA'daki değişkenler dizisi

Question

Kod uzunluğu sorunum hakkında Uzmanlığınızı öğrenmek istiyorum.

Çeşitli Özellikleri, P1, P2, ... P16 ile MyClass adlı bir sınıfım var.

Özelliklere dahil etmek istediğim değerler MyArray adlı bir dizide.

Ben ne yapıyorum Şu anda

, ve iyi çalışıyor ise:

MyClass.P1 = MyArray(0) 
... 
MyClass.P16 = MyArray(15) 

hatlarla çok zaman alır ve kod çok okunabilir değil.

Ben Ancak

For i = 0 to 15 
    array_of_variables(0) = MyArray(0) 
Next 

gibi değişkenlere döngü muktedir istiyorum

, bu 'array_of_variables' nasıl oluşturulacağı hakkında hiçbir fikrim yok.

Ben Array olarak sınıfın bir özellik oluşturarak denedi, ama bu :(VBA doğru değil.

? Bunu başarmak için nasıl bir fikriniz var

Çok teşekkürler, yapın Maxime

Answer 1

Bunu yapmak için kirli bir yöntem istiyorsanız koleksiyon kullanabilirsiniz, önceden tanımlanmış tuşlarla (isimler) tek bir özellik koleksiyonuyla sınıfınızı kurun ve aynı biçimi kullanarak koleksiyonunuza aktarılacak 2 koleksiyon arasındaki eşleşmeyi bulmak ve v edilen değerler. Sanırım bir diziyle aynı şeyi yapabilirsin ama dizilerinde sadece dizine sahip isimleri tanımlayan koleksiyonların aksine, onların içindeki verilerin hizalı olduğundan emin olmalısın.

Answer 2

önerilerinizi o

Option Explicit 

Sub main() 

Dim MyClassInstance As MyClass 
Dim i As Long 

Set MyClassInstance = New MyClass 

With MyClassInstance 
    .Properties = Array(1, 2, 3, 4, 5, 6) 

    For i = LBound(.Properties) To UBound(.Properties) 
     MsgBox .Properties(i) 
    Next i 
End With 

End Sub 

Answer 3

teşekkür olası bir sömürü burada izler senin "Sınıfım" Sınıf Modülü

Public Properties As Variant 

aşağıdaki ve bu

yer deneyin, ben geldi hepsini karıştırarak bir şeyle.

sınıfında böyle özelliği oluşturuldu:

Property Let Target(index, Value) 
    Select Case index 
     Case 0: 
     P1 = Value 
     ... 
     Case 15 
     P16 = Value 
    End Select 
End Property 

Bu şekilde, elimden böyle döngü:

For i = 0 to 15 
    MyClass.Target(i) = MyArray(i) 
Next