توليد كلمات عشوائية

[مختار حسين محمود]

السلام عليكم  اخوانى بالمنتدى

 

أنا بصدد عمل مولد كلمات ( وليس أرقاماً ) عشوائية  وأحتاج خبراتكم فى  هذا الموضوع

 

نفرض أن لدينا عمودين   A , B

 

العمود A  به كلمات لغة انجليزية                                 ( خلى بالك يلى فى بالى )

العمود B به ترجمة  هذه الكلمات

 

المطلوب كود توليد 10 كلمات عشوائية من العمود A وترجمتها المقابلة من العمود B وبدون تكرار 

 

ووضع ذلك فى المدى    F2:G11  ووفى كل ضغطة زر تتبدل الـ 10 كلمات وترجمتها  بــ 10 أخرى

 

 

برجاء تطبيق ذلك على المرفق

 

Random word Generator.rar

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

الأخ الحبيب الغالي مختار ..

مين اللي في بالك .. اللي في بالك ربنا يهنيه يا سيدي

إليك الملف المرفق (بس متنساش لو عجبك الحل يختاره كأفضل إجابة)

Random Word Generator.rar

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

السلام عليكم

 

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

 

ائراءا للموضوع

بدون استخدام معادلات على الخلايا

Sub kh_Start()
Dim obj
Dim Lr As Integer, iRnd As Integer, i As Integer
Lr = Cells(Rows.Count, "A").End(xlUp).Row - 1
'========================================
Set obj = CreateObject("Scripting.Dictionary")
'========================================
Do
    iRnd = Int((Rnd * Lr) + 1)
    If Not obj.Exists(iRnd) Then
        i = i + 1
        obj.Add iRnd, i
        Range("F2").Cells(i, 1).Resize(1, 2).Value = Range("A2").Cells(iRnd, 1).Resize(1, 2).Value
    End If
    If i = 10 Then Exit Do
Loop

Set obj = Nothing
End Sub

المرفق 2003

Random word Generator2.rar

[مختار حسين محمود]

السلام عليكم أخى وأستاذى ياسر 

 

السلام عليكم أستاذى وأستاذنا جميعنا  العلامة القدير عبدالله  باقشير 

 

شرف لى أن تردا على طلبى هذا وبهذه السرعة .  جعل الله عملكما خالصا لوجهه الكريم وفى ميزان حسناتكما

 

أخى ياسر بصراحة كنت أقصدك أنت  لان الموضوع بداية برنامج تعليم لغة انجليزية بإذن الله تعالى

 

والآن أنا فى ورطــــــــــة   حلان ما أروعهما وما أيسرهما  فلا أملك إلا أن أرفع القبعة لك ولأستاذى الفاضل عبدالله باقشير

 

 سأحدد اجابتك  أخى ياسر  كأفضل اجابة  لأنك كنت الأسرع والأسبق فى الرد.

 

أما أستاذى الفاضل عبدالله   فيكفيه أن تلميذه ياسر قدم اجابة تقارن باجابة أستاذه    تحياتى لكم

تم تعديل مارس 14, 2015 بواسطه مختار حسين محمود

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

بسم الله ما شاء الله ..

صحيح حرمتني من أفضل إجابة ، بس استفدنا أحسن استفادة

بارك الله فيك وجزاك الله كل خير

[مختار حسين محمود]

أسأل الله العلى القدير ألا يحرمنا جميعنا من النظر الى وجهه الكريم

 

 

:fff:

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

أخي الحبيب مختار

إجابة الأستاذ عبد الله أفضل من إجابتي ..

لابد من إعطاء كل ذي حقٍ حقه ..

أنا لا أقبل إلا بأفضل إجابة .. وهي للأخ الكبير عبد الله باقشير

[مختار حسين محمود]

صدقا قلت أخى ياسر

 

بعد مقارنتى للكودين وجدت كود الأستاذ عبدالله أفضل

 

والأفضلية للأقصر والأبسط والذى لا يعتمد على معادلات على الخلايا  

 

لكما منى      

[salimhebboul]

[هانى محمد]

فين ملف العمل ؟!!!!!!!!!!!!

[salimhebboul]

Random word Generator2.xls