هل احد يشرح خاصية random sort ?

[Ali Tawfeek]

من فضلكم هناك خاصية تسمى Random Sort و معناها هى فرز مجموعة من البيانات و لكن بشكل عشوائى فكيف لى ان انفذها حيث عندى مجمو عة ضخمة من البيانات و اريد عمل فرز عشوائ لها و شكرا

[علي السحيب]

راجع الرابط التالي:

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

[Ali Tawfeek]

شكرا لك اخى الكريم على المساعدة و التعاون

[Ali Tawfeek]

اخى الكريم انى قد راجعت الرابط و انه معروض بشكل ممتاز و لكن لى سؤالى

ان الاخ الكريم محمد طاهر قد عرض الفرز العشوائى بطريقة الدوال و هذا ممتاز و لكن لى طلب و هو

1) كيف لى نقل الارقام المختارة عشوائيا و نقصها من اجمالى الارقام

2) كيف لى ضمان عدم حصول اى تكرار فى الارقام حيث لوحظ انه من الممكن ان يحصل تكرار و شكرا

[محمد حجازي]

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

أعتقد أنه لا يمكن عمل ذلك إلا بكود الـ VBA ، وأعتقد أن الدوال لا تملك المقدرة على تجاوز هذه العقبات.

[Ali Tawfeek]

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

[محمد حجازي]

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

فقط أرفق مثال لأقوم بشرح الطريقة عليه .

[Ali Tawfeek]

السلام عليكم

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

Sort

[محمد حجازي]

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

آسف أخي على التأخر .... و لكن ظروووف العمل.

جرب هذا الكود الذي كتبته على عجالة و أعطني ملاحظاتك عليه :

Sub MySort()
   Dim MyValues() As Double
   Dim MyV As Long
   Dim UValue As Long
   Dim MyRange As Range
   Set MyRange = Application.InputBox(prompt:="حدد المجال", Type:=8)
   UValue = Application.InputBox(prompt:="حدد  الحد الأعلى لهذه الأرقام", Type:=1)
   ReDim MyValue(0)
   For Each MyCell In MyRange.Cells
     MyV = Int(Rnd * UValue)
     For i = 0 To UBound(MyValue)
       If MyValue(i) = MyV Then
         MyV = Int(Rnd * UValue)
         i = -1
       End If
     Next i
     MyCell.Value = MyV
     MyValue(UBound(MyValue)) = MyV
     ReDim Preserve MyValue(UBound(MyValue) + 1)
   Next MyCell
End Sub

على فكرة ، توجد الوظيفة Random Number Generation التي تقوم بنفس المهمة ، وهذه الوظيفة موجودة ضمن الوظائف الإضافية Data Analysis ، و سوف أقوم إن شاء الله بشرحها عما قريب .

Sort.zip

[Ali Tawfeek]

شكرا لك اخى الكريم محمد حجازى ولكن اود ان اذكرك انى لا اعرف كيف لى ان استخدم هذا الكود فى ورقة عمل الاكسل و فهل لى من ذكر ذلك

[Ali Tawfeek]

السلام عليكم

اود ان اذكر انى قد وجدت حل لدالة الفرز العشوائى Random Number Generation فى منتدى الاحصائيون العرب و اود ان اخذ راى الاخوة فى اوفسينا و ايضا ان اشكر اعضاء المنتدى على الجهد المبذول و اليكم الرابط الخاص بالموضوع

http://www.arabicstat.com/forums/forum17/222.html

(y)

[محمد حجازي]

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

الأخ ali fathi ، راجع الرابط التالي :

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