كيف يمكنك تعتيم خلايا في Excel بناءً على قيمة في عمود آخر أو اختيار من قائمة منسدلة؟
في مهام Excel العملية، غالبًا ما تواجه سيناريوهات تتطلب جعل البيانات أكثر بروزًا بصريًا أو أقل وضوحًا بناءً على قيمة خلية مرتبطة. ومن بين المتطلبات الشائعة: تعتيم الخلايا تلقائيًا (أي تخفيفها أو جعلها غير نشطة بصريًا) عندما يحتوي عمود آخر على قيمة معيّنة، أو عند اختيار عنصر من قائمة منسدلة.
يُسهّل هذا التنسيق الديناميكي تفسير مجموعات البيانات الكبيرة، ويدعم سير العمل عند الحاجة إلى تقييد الإدخال، كما يوضّح العناصر التي لا يمكن تنفيذها حاليًا. على سبيل المثال، قد يؤدي تغيير حالة المشروع إلى «منجزة» إلى تعتيم وصف المهمة تلقائيًا.
يقدّم هذا المقال عدة طرق فعّالة لتعتيم الخلايا استنادًا إلى قيم عمود آخر أو اختيار من قائمة منسدلة في Excel، ويشمل كلاً من طرق التنسيق الشرطي القياسية وأساليب VBA الأكثر تقدمًا للمتطلبات المعقدة. وستجد أيضًا اقتراحات لاستكشاف الأخطاء وإصلاحها، إضافة إلى نصائح استخدام عملية ترشدك خطوة بخطوة.
تعتيم الخلايا بناءً على عمود آخر أو اختيار من قائمة منسدلة
VBA: أتمتة تعتيم الخلايا بناءً على عمود آخر أو قائمة منسدلة
تعتيم الخلايا بناءً على عمود آخر أو اختيار من قائمة منسدلة
افترض أن لديك عمودين: يحتوي العمود A على بياناتك الأساسية (مثل المهام أو الأوصاف)، بينما يحتوي العمود B على مؤشرات الحالة أو العلامات (مثل «YES»/«NO» أو خيارات من قائمة منسدلة). قد ترغب في تعتيم العناصر في العمود A بصريًّا بناءً على القيم الموجودة في العمود B. فعلى سبيل المثال، عندما تحتوي خلية في العمود B على القيمة «YES»، تظهر الخلية المقابلة في العمود A بلون رمادي لتُشير إلى أنها غير نشطة أو تم إنجازها. أما إذا احتوت خلية في العمود B على أي قيمة أخرى غير «YES»، فيحتفظ العمود A بمظهره الطبيعي.
يناسب هذا الأسلوب أوراق إدارة المهام، والقوائم المرجعية، وسير العمل، أو أي ورقة يتحكم فيها عمود الحالة بتنسيق عمودٍ آخر. فهو يحافظ على تنظيم بياناتك وسهولة استخدامها، بشرط أن تكون الأعمدة منظمة ومتوافقة (تأكد من محاذاة الصفوف بشكل صحيح).
1. حدد الخلايا في العمود A التي تريد تعتيمها تلقائيًا بناءً على العمود الآخر. على سبيل المثال، حددA2:A100 (اختر فقط الخلايا التي تتطابق مع النطاق المستخدم في العمود B). ثم انتقل إلىالصفحة الرئيسية > استخدم تنسيق الشروط > قاعدة جديدة.
2. في مربع حوارقاعدة تنسيق جديدة، انقراستخدم صيغة لتحديد الخلايا التي سيتم تنسيقها. أدخل هذه الصيغة=B2=«YES» في المربع المعنونتنسيق القيم حيث تكون هذه الصيغة صحيحة، والتي تتحقق مما إذا كانت القيمة في الخلية المقابلة من العمود B هي «YES»:
3. بعد ذلك، انقر على زرتنسيق. في مربع حوارتعيين تنسيق الخلية، اختر لونًا رماديًا من تبويبتعبئة، وسيكون هذا هو لون الخلفية المستخدم لتعتيم الخلايا.
4. بعد ضبط اللون، انقرموافقلإغلاق نافذة تعيين تنسيق الخلية، ثم انقر مرة أخرىموافقلتطبيق قاعدة التنسيق الجديدة.
من الآن فصاعدًا، كلما احتوى العمود B على القيمة «YES»، ستظهر الخلية المقابلة في العمود A بلون رمادي تلقائيًا. وحالما يتغيّر محتوى العمود B إلى قيمة أخرى — مثل «NO» أو خلية فارغة — يعود مظهر العمود A فورًا إلى حالته الطبيعية. هذه الطريقة فورية ولا تتطلب أي تحديث يدوي بعد الإعداد.
نصائح:لتطبيق هذا مع قائمة منسدلة في العمود B، تكون العملية مشابهة. ويكون هذا الأسلوب مفيدًا بشكل خاص عندما يستخدم عمود التحكم خيارات قياسية، مثل حالة المشروع («قيد التنفيذ»، «منجز»)، أو خانات تحديد («تم»، «قيد الانتظار»)، أو قوائم تحقق تحتوي قيمًا مسموحًا بها محددة.
لإنشاء قائمة منسدلة في العمود B (عمود التحكم):
- حدد الخلايا في العمود B التي ترغب في إضافة قائمة منسدلة إليها.
- انقربيانات > التحقق من صحة البيانات.
- في مربع حوار التحقق من صحة البيانات، اخترقائمةمن القائمة المنسدلة لـالسماح. في مربعالمصدر، اكتب أو حدد نطاق الخلايا الذي يحتوي القيم المسموح بها (مثل: YES,NO).
الآن، لديك قائمة منسدلة في كل خلية من العمود B، مما يسمح للمستخدمين باختيار أحد الخيارات المحددة:
كرّر إعداداستخدم تنسيق الشروطكما سبق، باستخدام صيغة تطابق العنصر الذي تريد أن يُفعّل التنسيق الرمادي (مثل: =B2=«YES»). بعد تطبيق «استخدم تنسيق الشروط»، ستتحول خلاياك المستهدفة في العمود A تلقائيًا إلى اللون الرمادي كلما تم اختيار «YES» من القائمة المنسدلة في العمود B.
نصائح وإرشادات إضافية:
- تأكد من أن نطاق «استخدم تنسيق الشروط» في العمود A يتوافق مع منطقة البيانات ويرتبط بمراجع العمود B. إذا لم تتطابق، فقد لا يُطبَّق التنسيق كما هو متوقع.
- عند نسخ البيانات أو ملئها في الأعمدة، تحقق من أن المراجع (مثل: B2) تتجدد بشكلٍ مناسب.
- لتحقيق أفضل النتائج، امسح أي تنسيق قديم من النطاقات قبل تطبيق القواعد الجديدة.
- لإزالة التأثير الرمادي، غيّر قيمة التفعيل في العمود B أو احذف قاعدة «استخدم تنسيق الشروط».
- إذا كانت ورقة العمل مشتركة، فتأكد من أن المستخدمين على دراية بالقيم التي ستُفعِّل التنسيق.
إذا لم يعمل تنسيق الشروط كما هو متوقع، فتأكد من أن خلايا العمود B تحتوي بالضبط على القيم التي تختبرها الصيغة — بدون مسافات زائدة، مع استخدام الحروف الكبيرة والصغيرة الصحيحة (ما لم تكن تستخدم مطابقة غير حساسة لحالة الأحرف)، وتحقق من عدم وجود أحرف مخفية.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
VBA: أتمتة تعتيم الخلايا بناءً على عمود آخر أو قائمة منسدلة
للسيناريوهات الأكثر تقدمًا—مثل تطبيق التنسيق دفعة واحدة، أو التعامل مع شروط متعددة ومعقدة، أو عندما لا تلبّي حدود وقواعد «التنسيق الشرطي» احتياجاتك—يمكنك استخدام كود VBA لأتمتة تعتيم الخلايا.
حالات الاستخدام الشائعة:
- تعتيم الصف بأكمله أو نطاقات محددة تلقائيًا بناءً على اختيارات من القوائم المنسدلة أو أي منطق مرتبط بعمود آخر.
- الحفاظ على تنسيق متسق تلقائيًا حتى بعد استيراد البيانات أو تحديث الورقة عبر ماكرو.
- تطبيق قواعد شرطية متعددة تتجاوز حدود ميزة التنسيق الشرطي المدمجة.
1. انقرأدوات المطور > Visual Basicلفتح محرر VBA ()Alt+F11 اختصار). في نافذة VBA، انقرإدراج > وحدة نمطية. في الوحدة النمطية الجديدة، انسخ والصق الكود التالي:
Sub GreyOutCellsBasedOnAnotherColumn()
Dim ws As Worksheet
Dim lastRow As Long
Dim checkCol As String
Dim dataCol As String
Dim i As Long
Dim triggerValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
'----- Set parameters here -----
Set ws = ActiveSheet ' Or: Set ws = ThisWorkbook.Sheets("Sheet1")
checkCol = "B" ' Column to check (e.g., B)
dataCol = "A" ' Column to grey out (e.g., A)
triggerValue = "YES" ' Value that triggers grey out. Change as needed: "YES", "Complete", etc.
'----- Find last row in the check column -----
lastRow = ws.Cells(ws.Rows.Count, checkCol).End(xlUp).Row
For i = 2 To lastRow ' Assumes header in row 1
If ws.Cells(i, checkCol).Value = triggerValue Then
ws.Cells(i, dataCol).Interior.Color = RGB(191, 191, 191) ' Grey fill
Else
ws.Cells(i, dataCol).Interior.ColorIndex = xlNone ' Remove fill if condition not met
End If
Next i
End Sub2. لتشغيل الماكرو، اضغطF5مع تنشيط نافذة الكود. يقوم الماكرو بفحص كل صف في ورقة العمل—بدءًا من الصف 2 (ليبقى الصف الأول كعنوان)—ويتحقق من العمود B عن القيمة المُفعِّلة (افتراضيًا: «YES»). إذا وجدها، يملأ الخلية المقابلة في العمود A باللون الرمادي. وإذا لم تكن القيمة موجودة، يُزيل أي تعبئة رمادية سابقة (يعيد الخلية إلى مظهرها الافتراضي).
يمكنك تخصيص المعلمات التالية في الكود:
- checkCol: العمود المراد التحقق منه (مثل: «B»)
- dataCol: العمود المراد تعتيمه (مثل: «A»)
- triggerValue: القيمة التي يجب مطابقتها لتفعيل التعبئة الرمادية (مثل: «YES»، «منجز»، أو قيمة الصاد في قائمتك)
تحذيرات ونصائح:
- يُغيّر هذا الماكرو خلفيات الخلايا بشكلٍ دائم. إذا كنت ترغب في تحديث الألوان فورًا عند تغيير البيانات، ففكّر في إعادة تشغيل الماكرو بعد كل تحديث، أو استخدم برمجة حدث Worksheet_Change (المخصصة للمستخدمين المتقدمين فقط).
- لا يتأثر هذا الأسلوب بعدد الخلايا أو حدود قواعد «استخدم تنسيق الشروط»، مما يجعله مثاليًا للنطاقات الديناميكية الكبيرة أو عند وجود العديد من الشروط.
- إذا قمت بتشغيل الماكرو عن طريق الخطأ وترغب في إزالة التعبئة الرمادية، فما عليك سوى تشغيله مرة أخرى بعد مسح القيم ذات الصلة أو تعديلها.
- يمكنك توسيع جملة الشرط «If» لإضافة شروط أكثر، مثل تعتيم الخلايا بناءً على خيارات متعددة، أعمدة إضافية، أو منطق أكثر تعقيدًا.
يوفّر استخدام VBA لتعتيم الخلايا يدويًا أو تلقائيًا أقصى درجات المرونة للحلول المعقدة أو الواسعة النطاق أو المصممة خصيصًا في Excel.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل