VBA UserForm صفيف

Question

وحاليا، لدي جداول البيانات إكسل مع بعض البيانات وزر الأمر الذي يخلق في UserForm الذي يعرض مجموعة فرعية من تلك البيانات. وقد تم تصميم UserForm في الطريقة التي يجعل البيانات أسهل لمشاهدة. المشكلة أن أواجه هو أنني أود زر الأمر لجعل مثيلات متعددة من بلدي UserForm بحيث يكون كل شكل يمكن أن تظهر مجموعة مختلفة من البيانات.

وأنا جميلة جديدة لVBA لذلك أي اقتراحات أو مجرد مكان بالنسبة لي للبدء سيكون موضع تقدير كبير. شكرا.

Answer 1

تأكد من أن يتم تعيين الخاصية ShowModal من UserForm إلى False يمكن أن تظهر وإلا حالة واحدة فقط من UserForm في آن واحد.

وبعد ذلك، أنها بسيطة مثل:

Dim ufArray(0 To 4) As UserForm1
Dim i As Integer

For i = 0 To 4
    Set ufArray(i) = New UserForm1
Next i

For i = 0 To 4
    Load ufArray(i)
    ufArray(i).Show
Next i

ولإظهار خمس نسخ مستقلة عن UserForm1