مختار حسين محمود قام بنشر مارس 14, 2015 مشاركة قام بنشر مارس 14, 2015 السلام عليكم اخوانى بالمنتدى أنا بصدد عمل مولد كلمات ( وليس أرقاماً ) عشوائية وأحتاج خبراتكم فى هذا الموضوع نفرض أن لدينا عمودين A , B العمود A به كلمات لغة انجليزية ( خلى بالك يلى فى بالى ) العمود B به ترجمة هذه الكلمات المطلوب كود توليد 10 كلمات عشوائية من العمود A وترجمتها المقابلة من العمود B وبدون تكرار ووضع ذلك فى المدى F2:G11 ووفى كل ضغطة زر تتبدل الـ 10 كلمات وترجمتها بــ 10 أخرى برجاء تطبيق ذلك على المرفق Random word Generator.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 14, 2015 مشاركة قام بنشر مارس 14, 2015 الأخ الحبيب الغالي مختار .. مين اللي في بالك .. اللي في بالك ربنا يهنيه يا سيدي إليك الملف المرفق (بس متنساش لو عجبك الحل يختاره كأفضل إجابة) Random Word Generator.rar 5 رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله باقشير قام بنشر مارس 14, 2015 أفضل إجابة مشاركة قام بنشر مارس 14, 2015 السلام عليكم جزاكم الله خيرا اخي الكريم ياسر ائراءا للموضوع بدون استخدام معادلات على الخلايا 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 4 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر مارس 14, 2015 الكاتب مشاركة قام بنشر مارس 14, 2015 (معدل) السلام عليكم أخى وأستاذى ياسر السلام عليكم أستاذى وأستاذنا جميعنا العلامة القدير عبدالله باقشير شرف لى أن تردا على طلبى هذا وبهذه السرعة . جعل الله عملكما خالصا لوجهه الكريم وفى ميزان حسناتكما أخى ياسر بصراحة كنت أقصدك أنت لان الموضوع بداية برنامج تعليم لغة انجليزية بإذن الله تعالى والآن أنا فى ورطــــــــــة حلان ما أروعهما وما أيسرهما فلا أملك إلا أن أرفع القبعة لك ولأستاذى الفاضل عبدالله باقشير سأحدد اجابتك أخى ياسر كأفضل اجابة لأنك كنت الأسرع والأسبق فى الرد. أما أستاذى الفاضل عبدالله فيكفيه أن تلميذه ياسر قدم اجابة تقارن باجابة أستاذه تحياتى لكم تم تعديل مارس 14, 2015 بواسطه مختار حسين محمود 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 14, 2015 مشاركة قام بنشر مارس 14, 2015 بسم الله ما شاء الله .. صحيح حرمتني من أفضل إجابة ، بس استفدنا أحسن استفادة بارك الله فيك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر مارس 14, 2015 الكاتب مشاركة قام بنشر مارس 14, 2015 أسأل الله العلى القدير ألا يحرمنا جميعنا من النظر الى وجهه الكريم :fff: 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 14, 2015 مشاركة قام بنشر مارس 14, 2015 أخي الحبيب مختار إجابة الأستاذ عبد الله أفضل من إجابتي .. لابد من إعطاء كل ذي حقٍ حقه .. أنا لا أقبل إلا بأفضل إجابة .. وهي للأخ الكبير عبد الله باقشير رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر مارس 14, 2015 الكاتب مشاركة قام بنشر مارس 14, 2015 صدقا قلت أخى ياسر بعد مقارنتى للكودين وجدت كود الأستاذ عبدالله أفضل والأفضلية للأقصر والأبسط والذى لا يعتمد على معادلات على الخلايا لكما منى 1 رابط هذا التعليق شارك More sharing options...
salimhebboul قام بنشر ديسمبر 7, 2018 مشاركة قام بنشر ديسمبر 7, 2018 رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر ديسمبر 7, 2018 مشاركة قام بنشر ديسمبر 7, 2018 فين ملف العمل ؟!!!!!!!!!!!! رابط هذا التعليق شارك More sharing options...
salimhebboul قام بنشر ديسمبر 8, 2018 مشاركة قام بنشر ديسمبر 8, 2018 Random word Generator2.xls رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان