كيفية البحث عن لون الخلفية وإرجاعه مع قيمة البحث في Excel؟
لنفترض أن لديك جدولًا كما هو موضح أدناه. الآن تريد التحقق مما إذا كانت القيمة المحددة موجودة في العمود A ثم إرجاع القيمة المقابلة مع لون الخلفية في العمود C. كيف تحقق ذلك؟ يمكن أن تساعدك الطريقة الواردة في المقالة في حل المشكلة.
Vlookup وإرجاع لون الخلفية مع قيمة البحث بواسطة وظيفة معرّفة من قبل المستخدم
Vlookup وإرجاع لون الخلفية مع قيمة البحث بواسطة وظيفة معرّفة من قبل المستخدم
يرجى القيام بما يلي للبحث عن قيمة وإرجاع قيمتها المقابلة مع لون الخلفية في Excel.
1. في ورقة العمل تحتوي على القيمة التي تريد مشاهدتها ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وحدد عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
2. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ رمز VBA أدناه في نافذة التعليمات البرمجية.
كود VBA 1: Vlookup وإرجاع لون الخلفية بقيمة البحث
Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Range(xDic.Keys(I)).Interior.Color = _
Range(xDic.Items(I)).Interior.Color
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
End Sub
3. ثم اضغط إدراج > وحدة، وانسخ رمز VBA 2 أدناه في نافذة الوحدة النمطية.
كود VBA 2: Vlookup وإرجاع لون الخلفية بقيمة البحث
Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepColor = ""
xDic.Add Application.Caller.Address, ""
Else
LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
End If
End Function
4. بعد إدخال الرمزين ، انقر فوق الأدوات > مراجع حسابات. ثم تحقق من ملف وقت تشغيل البرنامج النصي لـ Microsoft في مربع المراجع - VBAProject صندوق المحادثة. انظر لقطة الشاشة:
5. اضغط على قديم + Q مفاتيح للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة والعودة إلى ورقة العمل.
6. حدد خلية فارغة مجاورة لقيمة البحث ، ثم أدخل الصيغة =LookupKeepColor(E2,$A$1:$C$8,3) في شريط الصيغة ، ثم اضغط على مفتاح Enter.
ملاحظات: في الصيغة ، E2 يحتوي على القيمة التي ستبحث عنها ، 1 دولار أسترالي: 8 دولارات كندية هو نطاق الجدول والرقم 3 يعني أن القيمة المقابلة التي ستعيدها تقع في العمود الثالث من الجدول. يرجى تغييرها كما تريد.
7. استمر في تحديد خلية النتيجة الأولى ، واسحب مقبض التعبئة لأسفل للحصول على جميع النتائج مع لون الخلفية. انظر لقطة الشاشة.
مقالات ذات صلة:
- كيفية نسخ تنسيق المصدر لخلية البحث عند استخدام Vlookup في Excel؟
- كيفية البحث وإرجاع تنسيق التاريخ بدلاً من الرقم في إكسيل؟
- كيفية استخدام vlookup و sum في Excel؟
- كيفية البحث عن قيمة الإرجاع في الخلية المجاورة أو التالية في إكسيل؟
- كيفية البحث عن القيمة وإرجاع صواب أو خطأ / نعم أو لا في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!