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

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

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

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

---

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

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

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 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

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. بعد ذلك، انقر على زرموافق، وسيتم تظليل الصفوف بشكلٍ متبادل بناءً على المدمج كما هو موضح في لقطة الشاشة أدناه:

---

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

---

مقالات ذات صلة إضافية: