انتقل إلى المحتوى الرئيسي

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

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

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

لون صفوف بديلة للخلايا المدمجة برمز VBA


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

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

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

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

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

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

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

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

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

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


لون صفوف بديلة للخلايا المدمجة برمز VBA

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

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم اضغط إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة.

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

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


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


المزيد من المقالات ذات الصلة:

  • تصفية كافة البيانات ذات الصلة من الخلايا المدمجة
  • لنفترض أن هناك عمودًا من الخلايا المدمجة في نطاق بياناتك ، والآن ، تحتاج إلى تصفية هذا العمود بخلايا مدمجة لإظهار جميع الصفوف المرتبطة بكل خلية مدمجة كما هو موضح في لقطات الشاشة التالية. في Excel ، تتيح لك ميزة التصفية تصفية العنصر الأول المرتبط بالخلايا المدمجة ، في هذه المقالة ، سأتحدث عن كيفية تصفية جميع البيانات ذات الصلة من الخلايا المدمجة في Excel؟
  • نسخ ولصق الخلايا المدمجة في خلايا مفردة
  • عادةً ، عند نسخ الخلايا المدمجة ولصقها في خلايا أخرى ، سيتم لصق الخلايا المدمجة مباشرةً. لكنك تريد لصق هذه الخلايا المدمجة في خلايا مفردة كما هو موضح في لقطة الشاشة التالية ، بحيث يمكنك التعامل مع البيانات حسب حاجتك. في هذه المقالة ، سأتحدث عن كيفية نسخ الخلايا المدمجة ولصقها في خلايا مفردة.
  • امسح محتويات الخلايا المدمجة المتعددة
  • إذا كانت لديك ورقة عمل كبيرة تحتوي على عدة خلايا مدمجة ، والآن ، فأنت تريد مسح جميع محتويات الخلايا المدمجة مع الاحتفاظ بالخلايا المدمجة. عادة ، يمكنك محاولة تطبيق وظيفة Find and Replace لتحديد جميع الخلايا المدمجة أولاً ، ثم الضغط على مفتاح Delete لحذف القيمة ، ومع ذلك ، ستصلك رسالة تحذير "لا يمكننا فعل ذلك لخلية مدمجة". في هذه الحالة ، كيف يمكنك مسح القيم في الخلايا المدمجة مع ترك الخلايا المدمجة بسرعة في Excel؟
  • عدد الخلايا المدمجة تلقائيًا
  • كيف يمكننا ملء أرقام السلسلة في قائمة خلايا مدمجة مختلفة الحجم في Excel؟ أول ما يدور في أذهاننا هو سحب مقبض الملء التلقائي لملء الخلايا المدمجة ، ولكن في هذه الحالة ، سنحصل على رسالة التحذير التالية ، ولا يمكننا ملء الخلايا المدمجة.

  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
А еще у вас неверная формула:)
Ну нет такой формулы - СЧЕТЧИК
Правильнее СЧЕТЗ =)
This comment was minimized by the moderator on the site
Hello, Влад
The formulas in this article have been translated, so you can try the below formulas in English:
=MOD(COUNTA($A$2:$A2),2)=0
=MOD(COUNTA($A$2:$A2),2)=1
Please try, hope it can help you!
This comment was minimized by the moderator on the site
Здравствуйте!
Спасибо за статью

У меня есть некоторое замечание
= ОСТАТ (СЧЕТЧИК ($ A $ 2: $ A 2), 2) = 0
правильно , сменить на ;
= ОСТАТ (СЧЕТЧИК ($ A $ 2: $ A 2); 2) = 0

но даже после этого не работает
This comment was minimized by the moderator on the site
Hello, Vlad
The formulas in this article have been translated, so you can try the below formulas in English:
=MOD(COUNTA($A$2:$A2),2)=0
=MOD(COUNTA($A$2:$A2),2)=1

Please try, hope it can help you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations