مطلوب اظهار فورم بشكل عشوائي ..؟؟

[سما محمد]

السلام عليكم

الاساتذة الكرام

في الملف المرفق عدد 5 يوزرفورم وبصفحة الاكسيل زر يعمل علي اظهار الفورم رقم 1

والفورم رقم 1 به زر اريد عند الضغط عليه ان يقوم باظهار احد اليوزرفورم الاربعة الاخري

بشكل عشوائي اي بدون ترتيب

هل يمكن عمل ذلك ؟؟

شكرا لكم

 

Book1.rar

[عبدالله باقشير]

السلام عليكم

 

استخدم الكود ادناه للزر في فورم 1

 

Private Sub CommandButton1_Click()
Dim i As Integer
i = Int(Rnd * 4) + 1
Select Case i
    Case 1: UserForm2.Show
    Case 2: UserForm3.Show
    Case 3: UserForm4.Show
    Case 4: UserForm5.Show
End Select
End Sub

 

في امان الله

[يحيى حسين]

السلام عليكم و رحمة الله 

أستخدم هذا الكود 

Private Sub CommandButton1_Click()
Select Case WorksheetFunction.RandBetween(2, 5)
    Case 2
        UserForm2.Show
    Case 3
        UserForm3.Show
    Case 4
        UserForm4.Show
    Case 5
        UserForm5.Show
End Select
End Sub

[يحيى حسين]

السلام عليكم 

عذرا اخي خبور لمى انتبه لحلك 

[عبدالله باقشير]

السلام عليكم

نورت المنتدى اخي يحي

تقبل تحياتي وشكري

[حمادة عمر]

السلام عليكم

الاخت الفاضلة المهندسة / سما محمد

 

هنيئا لك الحل للرائعين العملاقين

 

العملاق القدير / عبدالله باقشير

العملاق القدير / يحيى حسين

 

فالموضوع الذي يجمعهم يكن ذلك شرف للموضوع ذاته

ياليتني صاحب هذا السؤال

جزاكم الله خيرا

[سما محمد]

فعلا فعلا عمالقة

جزاكم الله خيرا