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

فيديو: عشوَأة قائمة في Excel
عشوَأة قائمة باستخدام الدوال
في هذا القسم، سأعلمك كيفية خلط عناصر القائمة باستخدام دوال Excel المدمجة.
خلط قائمة باستخدام دالة RAND
يمكن لمستخدمي أي إصدار من Excel فرز قائمة بياناتهم عشوائيًا باستخدام دالة RAND وميزة الفرز المتوفرة في البرنامج—اتبع الخطوات أدناه لتحقيق ذلك بسهولة.
الخطوة 1: أدخل صيغة RAND
حدد الخلية المجاورة للخلية الموجودة أعلى القائمة التي ترغب في خلطها، وأدخل صيغة RAND أدناه، ثم اضغط على «Enter».
=RAND()

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

الخطوة 3: رتّب نتائج RAND لخلط القائمة
1. حدد النطاق "B2:B8"، الذي يحتوي على صيغة RAND.
2. انقر على «فرز وتصفية» > «فرز من الأصغر إلى الأكبر» في مجموعة "التحرير« الموجودة ضمن علامة التبويب »الرئيسية".

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

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

خلط قائمة باستخدام دوال 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> "نطاق> "فرز أو اختيار أو عشوائي«. في مربع الحوار المنبثق »فرز أو اختيار أو عشوائي"، اختر "الصف بأكمله«، ثم انقر على »موافق".

- لتجربة ميزة "فرز أو اختيار أو عشوائي«، يجب أن يكون لديك »Kutools لـ Excel" مثبَّتًا على جهازك. إذا لم يكن Kutools مثبَّتًا لديك،فاضغط هنا لتنزيله وتثبيته.
- لإلغاء الإجراء، اضغط **Ctrl + Z**.
- لخلط بياناتك بطرق أخرى، تفقّد هذا البرنامج التعليمي:فرز أو تحديد الخلايا والصفوف والأعمدة عشوائيًا في Excel بسرعة.
عشوَأة قائمة باستخدام VBA
إذا كنت تفضل خلط القائمة باستخدام طريقة VBA، فاتبع الخطوات التالية.
الخطوة 1: حدد القائمة التي ستقوم بخلطها

الخطوة 2: انسخ كود VBA إلى نافذة الوحدة النمطية
1. اضغط على «Ctrl» + "F11" لفتح محرر 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
في نافذة الكود، اضغط على "F5" أو انقر على الزر
لتشغيل هذا الكود.

النتيجة

مقالات ذات صلة
- كيف تختار خلايا عشوائية في Excel؟
- لديك عمود من القيم (A1:A15) في ورقة عمل، وتحتاج الآن إلى تحديد 5 خلايا عشوائية منه—فكيف تفعل ذلك؟ في هذه المقالة، سنعرض لك بعض الحيل الذكية لاختيار خلايا عشوائيًا في Excel.
- كيف تختار بيانات عشوائية من قائمة دون تكرار؟
- في هذه المقالة، سأشرح لك كيفية استخراج خلية من قائمة دون القيم المكررة. وتُعد الطريقتان التاليتان أسرع الحلول لإتمام هذه المهمة بفعالية.
- كيف يمكن تحديد خلايا عشوائية في Excel بناءً على معايير محددة؟
- على سبيل المثال، إذا احتجتَ إلى اختيار بعض البيانات عشوائيًا بناءً على معيارٍ أو معيارين من نطاق محدود، فكيف يمكنك تحقيق ذلك في Excel؟ تقدّم لك هذه المقالة بعض الحلول الفعّالة.
- كيف يمكن ملء القيم عشوائيًا من قائمة بيانات في Excel؟
- على سبيل المثال، لديك قائمة بأسماء وتحتاج إلى اختيار عدة أسماء عشوائيًا وملئها في خلايا محددة — فكيف تتعامل مع ذلك؟ سأعرض لك هنا بعض الطرق الفعّالة لملء القيم عشوائيًا من قائمة بيانات في Excel.
- مزيد من النصائح والحيل لبرنامج Excel...
أفضل أدوات إنتاجية Office
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
Office Tab يجلب واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، بالإضافة إلى Publisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، وليس في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر مئات نقرات الماوس يوميًا!
جميع إضافات Kutools في مثبِّت واحد!
Kutools for Office تضم حزمة البرامج ملحقات لتطبيقات Excel وWord وOutlook وPowerPoint، بالإضافة إلى Office Tab Pro، مما يجعلها الخيار المثالي للفرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبِّت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- تعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل