Skip to main content

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

Author: Amanda Li Last Modified: 2025-05-30

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

A screenshot illustrating the randomization result in Excel

فيديو: خلط قائمة في Excel


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

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

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

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

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

حدد الخلية المجاورة للخلية العلوية من القائمة التي تريد خلطها، أدخل الصيغة أدناه لـ RAND واضغط على "Enter".

=RAND()

RAND formula in a cell

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

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

RAND formula applied to other cells

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

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

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

Sort Smallest to Largest option on the ribbon

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

Selecting the 'Expand the selection' option

النتيجة

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

The list is randomized

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

إذا كنت أحد مستخدمي إصدارات Excel الأحدث، على سبيل المثال، Excel for 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 في نقرتين

إذا كنت متعبًا من استخدام الصيغ وتنوي استخدام مساعدة إضافة، يمكن لميزة Sort/Select Range Randomly الخاصة بـ Kutools for Excel مساعدتك في تنفيذ الفرز العشوائي بسهولة أكبر وبمزيد من الخيارات. الرجاء القيام بما يلي:

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

أولاً، حدد القائمة التي تريد خلطها. وبعد ذلك حدد "Kutools" > "Range" > "Sort/Select Range Randomly". في مربع الحوار المنبثق "Sort/Select Range Randomly"، حدد "الصفوف بأكملها"، ثم انقر على "موافق".

Select the Entire rows option in the dialog to shuffle the list

ملاحظة:

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

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

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

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

The list to be shuffled is selected

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

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

Click Insert > Module in the VBA editor

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" أو انقر على Run button الزر لتشغيل هذا الكود.

The run button in the code window

النتيجة

The list is shuffled

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