اريد برنامج خلط الاسماء

[ابومصعب القحطاني]

السلام عليكم

اشكركم جميعا 

واطلب منكم خدمة بسيطة

اريد برنامج لطلابي لخلط الاسماء بالقرعة

وشكرا لكم

[سليم حاصبيا]

جرب هذا الملف

 

اسماء عشوائية غير مكررة.rar

[ابومصعب القحطاني]

اشكرك ولكنه لم يفتح معي .. يقول : تم تعطيل وحدات لماكرو

ووضعتها مستوى الامان الى اقل من مستحسن ولم يضبط معي

[ياسر خليل أبو البراء]

Sub RandomNames_Salim()
    Const startRow As Byte = 2
    Const endRow As Byte = 31
    Dim g(startRow To endRow), c As Integer, r As Integer

    Do
        c = Application.RandBetween(startRow, endRow)
        
        If Not g(c) Then
            r = r + 1
            Cells(r + 1, "D").Value = Cells(c, "A").Value
            g(c) = True
        End If
    Loop Until r = 30
End Sub

 

[قلم-الاكسل(عبدالعزيز)]

ملف المهندس سليم نجح عندي

شكرا لك طارح الموضوع وللمهندس ياسر وللمهندس سليم

 

[ابومصعب القحطاني]

ماضبط معي

ارجوكم علموني

[ياسر خليل أبو البراء]

ما المشكلة التي واجهتك؟