كيف تُضيف خلفية أو تعبئة بلون عشوائي للخلايا في Excel؟

باستخدام VBA (Visual Basic for Applications)، يمكنك تعيين لون تعبئة عشوائي تلقائيًا لكل خلية ضمن النطاق المحدد. يُعد هذا الحل مثاليًا عندما تريد أن تحمل كل خلية لونًا مختلفًا، وتحتاج إلى تكرار هذه العملية بانتظام لمجموعات بيانات متنوعة.

1. اضغطAlt+F11 لفتح محرر Microsoft Visual Basic for Applications.

2. في محرر VBA، انقر فوقإدراج > وحدة نمطيةلإنشاء وحدة جديدة.

3.انسخ والصق كود VBA التالي في نافذة الوحدة النمطية (ولا تقم بتعديل الكود):

VBA: إضافة خلفية أو تعبئة اللون للخلايا بلون عشوائي

Sub TrimExcessSpaces()
Dim rng As Range
Dim WorkRng As Range
Dim xRed As Byte
Dim xGreen As Byte
Dim xBule As Byte
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBule = Application.WorksheetFunction.RandBetween(0, 255)
rng.Pattern = xlSolid
rng.PatternColorIndex = xlAutomatic
rng.Interior.Color = VBA.RGB(xRed, xGreen, xBule)
Next
End Sub

4. اضغطF5 أو انقر فوق زرتشغيللتنفيذ وحدة الماكرو.

5. عند المطالبة، حدد نطاق الخلايا الذي تريد تعبئته بألوان عشوائية، ثم انقر فوقموافق.

6.سيتم تعبئة الخلايا المحددة بألوان عشوائية. ولتكرار هذه العملية على نطاق آخر، شغّل وحدة الماكرو مرة أخرى وحدد النطاق الجديد.

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

1. حدد النطاق الكامل للخلايا التي ترغب في ملء بعضها عشوائيًا بلون الخلفية. وللحصول على أفضل النتائج، تأكد من أن بياناتك خالية من الخلايا المدمجة أو التنسيقات الأخرى التي قد تؤثر على التحديد.

2. انتقل إلى علامة التبويبKutools في الشريط، واخترنطاق، ثم انقر فوقفرز عشوائي.

3.في مربع الحوار، انتقل إلى علامة التبويبتحديد. أدخل عدد الخلايا التي ترغب في تحديدها عشوائيًا في مربععدد الخلايا المراد تحديدها، وفعّل الخيارخلية، ثم انقر فوقموافقللتأكيد.

4.سيتم تمييز (تحديد) عدد الخلايا المحددة. ولتطبيق تعبئة اللون، انتقل إلى علامة التبويبالصفحة الرئيسية، وانقر فوق السهم بجانبتعبئة اللون، ثم اختر لونًا. وسيتم تلوين الخلايا المحددة فورًا.

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

فرز الخلايا عشوائيًا في عمود أو نطاق

تحديد خلايا عشوائيًا

إنشاء سلاسل عشوائية