كيفية تلوين الصفوف المتبادلة للخلايا المدمجة في Excel؟

من المفيد للغاية تنسيق الصفوف المتبادلة بلون مختلف في مجموعة بيانات كبيرة لتسهيل مسح البيانات، ولكن في بعض الأحيان قد تكون هناك خلايا مدمجة ضمن بياناتك. لتسليط الضوء على الصفوف بالتناوب باستخدام لون مختلف للخلايا المدمجة كما هو موضح في لقطة الشاشة أدناه، كيف يمكنك حل هذه المشكلة في Excel؟

تلوين الصفوف المتبادلة للخلايا المدمجة باستخدام التنسيق الشرطي

تلوين الصفوف المتبادلة للخلايا المدمجة باستخدام كود VBA

تلوين الصفوف المتبادلة للخلايا المدمجة باستخدام التنسيق الشرطي

في Excel، يمكن أن يساعدك الميزة القوية - التنسيق الشرطي - في تحقيق هذه المهمة بسرعة قدر الإمكان، يرجى اتباع الخطوات التالية:

1. حدد نطاق البيانات الذي يحتوي على الخلايا المدمجة التي تريد تلوينها بالتبادل، ثم انقر فوق الصفحة الرئيسية > التنسيق الشرطي > قاعدة جديدة، انظر لقطة الشاشة:

2. في مربع الحوار قاعدة التنسيق الجديدة المنبثقة، قم بالعمليات التالية:

• حدد الخيار استخدام صيغة لتحديد الخلايا المراد تنسيقها من قائمة تحديد نوع القاعدة؛
• ثم أدخل هذه الصيغة: =MOD(COUNTA($A$2:$A2),2)=0 في مربع النص تنسيق القيم حيث تكون هذه الصيغة صحيحة.
• ملاحظة: A2 هي الخلية الأولى من نطاق البيانات الخاص بك.

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

4. انقر فوق موافق > موافق لإغلاق مربعات الحوار، وستكون الصفوف التي تحتوي على الخلايا المدمجة مملوءة باللون الذي حددته، انظر لقطة الشاشة:

5. استمر بالنقر فوق الصفحة الرئيسية > التنسيق الشرطي > قاعدة جديدة لفتح مربع الحوار قاعدة التنسيق الجديدة، قم بالعمليات التالية:

• حدد الخيار استخدام صيغة لتحديد الخلايا المراد تنسيقها من قائمة تحديد نوع القاعدة؛
• ثم أدخل هذه الصيغة: =MOD(COUNTA($A$2:$A2),2)=1 في مربع النص تنسيق القيم حيث تكون هذه الصيغة صحيحة.
• بعد ذلك، انقر فوق زر التنسيق لاختيار لون آخر تريد تسليط الضوء عليه على الصفوف.
• ملاحظة: A2 هي الخلية الأولى من نطاق البيانات الخاص بك.

6. وبعد ذلك، انقر فوق موافق > موافق لإغلاق مربعات الحوار، والآن يمكنك رؤية أن نطاق البيانات المحدد تم تظليله بلونين مختلفين بالتناوب بناءً على الخلايا المدمجة كما هو موضح في لقطة الشاشة أدناه:

تلوين الصفوف المتبادلة للخلايا المدمجة باستخدام كود VBA

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

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. بعد ذلك، انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: تلوين الصفوف المتبادلة للخلايا المدمجة

Sub Kutools_AlternateColor()
'Update by ExtendOffice
Dim xRg As Range
Dim xCRg As Range
Dim xIRg As Range
Dim xC1, xC2 As Integer
Dim xR1 As Integer
Dim xCnt As Long
Dim xLColor, xDCR1, xDCR2 As Long
Set xRg = Application.InputBox("Please select the data range:", "KutoolsforExcel", "", Type:=8)
If TypeName(xRg) = "Nothing" Then Exit Sub
Set xCRg = Application.InputBox("Please select the column with the merged cells:", "KutoolsforExcel", "", Type:=8)
If TypeName(xCRg) = "Nothing" Then Exit Sub
Set xIRg = Intersect(xRg, xCRg)
If xIRg Is Nothing Then
MsgBox "the data range doesn't contain merged cells"
Exit Sub
End If
xC1 = xRg.Column
xC2 = xIRg.Column
xR1 = xRg.Row
xLColor = RGB(221, 235, 247)
xDCR1 = RGB(221, 235, 247)
xDCR2 = RGB(250, 232, 222)
xRw = 0
Do
xLColor = xDCR1 + xDCR2 - xLColor
xCnt = Cells(xRw + xR1, xC2).MergeArea.Rows.Count
Cells(xRw + xR1, xC1).Resize(xCnt, xRg.Columns.Count).Interior.Color = xLColor
xRw = xRw + xCnt
Loop While xRw < xRg.Rows.Count - 1
End Sub

3. بعد ذلك، اضغط على مفتاح F5 لتشغيل هذا الكود. في أول مربع منبثق، حدد نطاق البيانات الذي تريد استخدامه، انظر لقطة الشاشة:

4. في مربع الحوار الثاني، حدد العمود الذي يحتوي على الخلايا المدمجة، انظر لقطة الشاشة:

5. وبعد ذلك، انقر فوق زر موافق، سيتم تظليل الصفوف بالتناوب بناءً على الخلايا المدمجة كما هو موضح في لقطة الشاشة أدناه:

فيديو: تلوين الصفوف المتبادلة للخلايا المدمجة

مقالات ذات صلة أكثر:

---

أفضل أدوات إنتاجية لمكتب العمل

Kutools لـ Excel يحل معظم مشاكلك ويزيد من إنتاجيتك بنسبة 80%

• شريط الصيغة الفائق (تحرير سهل للنصوص والصيغ المتعددة الأسطر); تخطيط القراءة (قراءة وتحرير سهل للخلايا الكبيرة العدد); لصق إلى النطاق المُرشح...
• دمج الخلايا/الصفوف/الأعمدة مع الاحتفاظ بالبيانات; تقسيم محتوى الخلايا; دمج الصفوف المكررة والمجموع/المتوسط... منع الخلايا المكررة; مقارنة النطاقات...
• تحديد الصفوف المكررة أو الفريدة; تحديد الصفوف الفارغة (جميع الخلايا فارغة); البحث المتقدم والبحث الضبابي في العديد من المصنفات; اختيار عشوائي...
• نسخ دقيق للخلايا المتعددة دون تغيير مرجع الصيغة; إنشاء تلقائي للمراجع إلى أوراق متعددة; إدراج رموز تعداد نقطي، مربعات اختيار وأكثر...
• تفضيل وإدراج سريع للصيغ، النطاقات، الرسوم البيانية والصور; تشفير الخلايا بكلمة مرور; إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني...
• استخراج النص، إضافة نص، إزالة الأحرف في موضع محدد، إزالة المسافات; إنشاء وطباعة إحصاءات صفحة البيانات; التحويل بين محتويات الخلايا والتعليقات...
• مرشح متقدم (حفظ وتطبيق مخططات التصفية على أوراق أخرى); ترتيب متقدم حسب الشهر/الأسبوع/اليوم، التكرار وأكثر; تصفية خاصة حسب العريض، المائل...
• تجميع المصنفات وأوراق العمل; دمج الجداول بناءً على الأعمدة الرئيسية; تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls، xlsx وPDF...
• تجميع جدول محوري حسب رقم الأسبوع، يوم الأسبوع وأكثر... عرض الخلايا غير المؤمنة، المؤمنة بألوان مختلفة; تمييز الخلايا التي تحتوي على صيغة/اسم...

اقرأ المزيد... تجربة مجانية لمدة 30 يومًا بكامل الميزات... شراء... 

---

Office Tab - يجلب واجهة التبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة بتبويب في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
• فتح وإنشاء مستندات متعددة في تبويبات جديدة لنفس النافذة، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50%، ويقلل من مئات النقرات بالماوس لك كل يوم!

اقرأ المزيد... تجربة مجانية لمدة 30 يومًا بكامل الميزات... شراء...