KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

خلط قائمة في Excel (دورة تعليمية سهلة خطوة بخطوة)

المؤلفأماندا ليتاريخ التعديل

يُعد الفرز العشوائي طريقةً سريعةً وسهلةً لضمان ظهور جميع العناصر باحتمال متساوٍ. في هذا البرنامج التعليمي، سنوضح لك كيفية عشوَأة أو خلط قائمة في Excel بخطواتٍ بسيطةٍ وقليلة.

لقطة شاشة توضح نتيجة العشوائية في Excel

فيديو: عشوَأة قائمة في Excel


عشوَأة قائمة باستخدام الدوال

في هذا القسم، سأعلمك كيفية خلط عناصر القائمة باستخدام دوال Excel المدمجة.

خلط قائمة باستخدام دالة RAND

يمكن لمستخدمي أي إصدار من Excel فرز قائمة بياناتهم عشوائيًا باستخدام دالة RAND وميزة الفرز المتوفرة في البرنامج—اتبع الخطوات أدناه لتحقيق ذلك بسهولة.

الخطوة 1: أدخل صيغة RAND

حدد الخلية المجاورة للخلية الموجودة أعلى القائمة التي ترغب في خلطها، وأدخل صيغة RAND أدناه، ثم اضغط على «Enter».

=RAND()

صيغة RAND في خلية

الخطوة 2: املأ صيغة RAND في الخلايا الأخرى

انقر مرتين على مقبض الملء (المربع الأخضر الصغير في الزاوية السفلية اليمنى من الخلية) لتطبيق الصيغة تلقائيًا على الخلايا الموجودة أسفلها.

صيغة RAND مطبَّقة على خلايا أخرى

الخطوة 3: رتّب نتائج RAND لخلط القائمة

1. حدد النطاق "B2:B8"، الذي يحتوي على صيغة RAND.

2. انقر على «فرز وتصفية» > «فرز من الأصغر إلى الأكبر» في مجموعة "التحرير« الموجودة ضمن علامة التبويب »الرئيسية".

خيار الفرز من الأصغر إلى الأكبر على الشريط

3. في مربع الحوار المنبثق، اختر «توسيع التحديد»، ثم انقر على «فرز».

اختيار خيار 'توسيع التحديد'

النتيجة

الآن، كل شيء جاهز! تم خلط القائمة كما هو موضح أدناه.

تمت عشوَنة القائمة

ملاحظة: دالةRAND في Excelمتقلبة: فهي تعيد حساب نتيجتها عند كل تغيير في ورقة العمل. لذلك، تتغير الأرقام في العمود B فورًا بعد الفرز. إذا أردت خلط القائمة مرة أخرى، كررالخطوة3. وإلا، يمكنك ببساطة حذف العمود الذي يحتوي على دالة RAND.
خلط قائمة باستخدام دوال RANDARRAY وSORTBY وROWS (Excel 365/2021)

إذا كنت من مستخدمي إصدارات Excel الأحدث، مثل Excel لـ Microsoft 365 أو Excel 2021 أو Excel للويب، فإن صيغRANDARRAY وSORTBY وROWS ستساعدك على خلط القائمة بسرعة في الموضع الذي تحدده.

الخطوة 1: أدخل صيغة RANDARRAY وSORTBY وROWS

حدد خلية فارغة حيث تريد عرض النتيجة العشوائية، ثم اكتب الصيغة أدناه (تأكد من استبدال ")A2:A8« في الصيغة بالنطاق الفعلي للقائمة التي ترغب في خلطها)، وبعد ذلك اضغط على »Enter".

=SORTBY(A2:A8,RANDARRAY(ROWS(A2:A8)))

ملاحظة:
  • تُرجع Excel خطأ «#SPILL!» عندما لا يكون نطاق الامتداد (مثل B2:B8 في هذه الحالة) فارغًا.
  • الصيغة ديناميكية: فهي تُعيد حساب نتيجتها تلقائيًا مع كل تغيير في ورقة العمل. ولخلط القائمة مرة أخرى، اضغط على "F9".
  • نتيجة الصيغة (القائمة المُعشوَّة) غير قابلة للتعديل. إذا كنت بحاجة إلى تحرير القائمة المُعشوَّة، فاتبع الخطوة التالية.

(اختياري) الخطوة 2: انسخ والصق نتيجة الصيغة لجعلها قابلة للتعديل

إذا كنت ترغب فقط في رؤية نتيجة عشوائية، يمكنك تخطي هذه الخطوة. أما إذا أردت تعديل القائمة المخلوطة عشوائيًا، فعليك نسخ نتيجة الصيغة ولصق القيم.

1. حدد نتيجة الصيغة، ثم اضغط على «Ctrl» + «C» لنسخها.

2. انقر بزر الماوس الأيمن على الخلية التي تريد نسخ النتيجة إليها. (يمكنك أيضًا لصق القيمة في موقعها الأصلي.)

3. اختر خيار «لصق القيم» من قائمة النقر بزر الماوس الأيمن.

النتيجة

ستحصل الآن على قائمة مخلوطة وقابلة للتعديل، كما هو موضح أدناه.


اخلط قائمة في Excel باستخدام Kutools بنقرات 2

إذا كنت قد سئمت من استخدام الصيغ وترغب في اللجوء إلى ملحقٍ مساعد، فإن ميزةفرز أو اختيار أو عشوائيفيKutools لـ Excelستسهّل عليك تنفيذ الفرز العشوائي بشكلٍ أسرع وأسهل مع خيارات إضافية. يُرجى اتباع الخطوات التالية:

Kutools لـ Excelيقدّم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة.مزوّد بقدرات الذكاء الاصطناعي، ويقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات سهلة بلا جهد.معلومات مفصلة عن Kutools لـ Excel...         تجربة مجانية...

أولاً، حدد القائمة التي ترغب في خلطها. ثم اختر "Kutools> "نطاق> "فرز أو اختيار أو عشوائي«. في مربع الحوار المنبثق »فرز أو اختيار أو عشوائي"، اختر "الصف بأكمله«، ثم انقر على »موافق".

تحديد خيار 'الصفوف بالكامل' في مربع الحوار لخلط القائمة

ملاحظة:

عشوَأة قائمة باستخدام VBA

إذا كنت تفضل خلط القائمة باستخدام طريقة VBA، فاتبع الخطوات التالية.

ملاحظة: لا يمكنك التراجع بعد تشغيل ماكرو VBA. لذلك، قم بإنشاء نسخة من القائمة في مكان آخر تحسبًا لاحتياجك إلى البيانات الأصلية مستقبلاً.

الخطوة 1: حدد القائمة التي ستقوم بخلطها

تم تحديد القائمة المراد خلطها

الخطوة 2: انسخ كود VBA إلى نافذة الوحدة النمطية

1. اضغط على «Ctrl» + "F11" لفتح محرر VBA، ثم انقر على «إدراج» > «وحدة نمطية» لفتح نافذة كود الوحدة.

انقر إدراج > وحدة نمطية في محرر VBA

2. انسخ والصق كود VBA أدناه في نافذة الوحدة المفتوحة.

Sub RandomSort()
'Update by ExtendOffice
Dim xRg As Range
Dim xNum, xF, xI As Integer
Dim xWSh, xAWSh As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xAWSh = Application.ActiveSheet
Set xRg = ActiveWindow.RangeSelection
Set xWSh = Worksheets.Add
xNum = xRg.Count
For xF = xNum To 1 Step -1
    xI = WorksheetFunction.RandBetween(1, xF)
    xWSh.Range("A1").Value = xRg.Item(xI)
    xRg.Item(xI) = xRg.Item(xF)
    xRg.Item(xF) = xWSh.Range("A1")
Next
xWSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

الخطوة 3: شغّل كود VBA

في نافذة الكود، اضغط على "F5" أو انقر على الزرزر التشغيل لتشغيل هذا الكود.

زر التشغيل في نافذة الكود

النتيجة

تم خلط القائمة

ملاحظة: إذا أردت خلط القائمة مرة أخرى، كررالخطوة3.