اختيار رقم عشوائي وحذف التكرار

[أسمى]

السلام عليكم

ارجو من حضرتكم مساعدتي في الاتي:

اختيار رقم عشوائي من مجموعة ارقام وهذا موجود ضمن الرابط التالي

http://www.officena.net/ib/index.php?showt...0&hl=رقم+عشوائي

ولكن المشكلة اني اريد ان احذف الارقام المتكررة .

ارجو منكم المساعدة بالسرعة الممكنة لاني على عجلة من امري

ولكم جزيل الشكر

[محمد حجازي]

السلام عليكم ...

تابعي الرد في الموضوع السابق:

http://www.officena.net/ib/index.php?showtopic=530

[أسمى]

شكرا لك اخ محمد لكن اريد ايضا ان يعطي اشارة معينة اذا كان هناك رقمين متشابهين اي اذا كان الخلية b1 تساوي 20 والخليه b10 تساوي 20 ايضا اريد ان يقوم بحذف هذا التكرار فما هي الطريقة المناسبة لذلك ولك جزيل الشكر .

[محمد حجازي]

السلام عليكم ...

فقط وضحي ما تريدين:

- هل تريدين إرجاع إحدى القيم الموجودة في الجدول بشكل عشوائي؟

- أم تريدين تعبئة الجدول بمجموعة من الأرقام العشوائية (الغير مكررة)؟

[أسمى]

انا اسفة لعدم توضيح المطلوب وسوف احاول مرة اخرى

سيتم ادخال حوالي 5000 رقم بواسطة لوحة المفاتيح على عدة كمبيوترات وسيتم جمع هذا الارقام في ملف واحد وبالتاكيد سيكون هناك بعض الارقام المتكررة وما اريده :

1- ان يتم حذف الارقم المتكررة او نقلها الى عمود اخر .

2- ان يتم اختيار 25 رقم بشكل عشوائي وهذا موجود في البرنامج المرفق .

لكن تبقى المشكلة في حذف الارقام المتكررة .

[محمد حجازي]

السلام عليكم ...

بالنسبة لـ 1 جربي الكود التالي:

Sub Inquire()
Dim MyRange As Range
Set MyRange = Application.InputBox(prompt:="أدخل مجال الأرقام", Title:="تنقيح", Type:=8)
If MyRange Is Nothing Then Exit Sub
For Each MyCell In MyRange.Cells
If Application.WorksheetFunction.CountIf(MyRange, MyCell.Value) > 1 Then
MyCell.ClearContents
End If
Next MyCell
End Sub

وقومي بإزالة الفراغات بواسطة الكود الموجود في المشاركة التالية:

http://www.officena.net/ib/index.php?showtopic=4883

[أسمى]

شكرا لك اخ محمد ولكن لي طلب اخر :

كيف استطيع ان اظهر الخلية التي اختارها بشكل عشوائي امامي على الشاشة بحيث تصبح هذه الخلية نشطة

فلو اعطا الرقم العشواي 10 الموجود في الخلية b100 تكون هذا الخليه نشطة

[محمد حجازي]

السلام عليكم ...

أضيفي السطر التالي للكود السابق :

Me.Range("B2:B20").Find(MyRondomValue).Select

وذلك قبل السطر التالي مباشرة:

MsgBox "الرقم هو" & "   " & MyRondomValue, vbOKOnly, "فريق أوفيسنا"

[أسمى]

الف شكر لك اخ محمد ولكن بالنسبة لكود حذف التكرار اين اضعه

اسفة جدا لكثرة اسئلتي ولكني مبتدئة في الاكسل وعندي برنامج هام.

[محمد حجازي]

السلام عليكم ...

ضعيه تحت الكود السابق (في الموديل) ، ومن ثم اذهبي إلى :

Tools > Macro> Macros

لتظهر لك نافذه يوجد فيها الإجراءات الموضوعة في الموديل ، شغلي ما تريدين منها.