كيفية تغيير القيمة بناءً على لون الخلية في Excel؟
تتحدث هذه المقالة عن تغيير قيمة الخلية تلقائيًا بناءً على لون الخلفية في Excel. على سبيل المثال ، إذا كانت الخلايا تملأ باللون الأحمر في التحديد ، فقم بتعبئة هذه الخلايا بالرقم 1 ، ولخلايا لون الخلفية الزرقاء ، املأ الرقم 0.
قم بتغيير القيمة بناءً على لون الخلية باستخدام كود VBA
قم بتغيير القيمة بناءً على لون الخلية باستخدام كود VBA
يمكنك تشغيل رمز VBA أدناه لتغيير القيمة بناءً على لون الخلية في Excel. الرجاء القيام بما يلي.
1. حدد النطاق الذي تريد تغيير القيم بناءً على لون الخلفية ، ثم اضغط قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ والصق رمز فبا أدناه في نافذة الوحدة النمطية.
كود فبا: قم بتغيير القيمة بناءً على لون الخلية في إكسيل
Sub ChangeValueBasedOnCellColor()
Dim rg As Range
Dim xRg As Range
Set xRg = Selection.Cells
Application.DisplayAlerts = False
For Each rg In xRg
With rg
Select Case .Interior.Color
Case Is = 255 'Red
.Value = 1
Case Is = 15773696 'Blue
.Value = 0
End Select
End With
Next
Application.DisplayAlerts = False
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود ، ثم يمكنك رؤية جميع الخلايا الحمراء في النطاق المحدد ممتلئة بالرقم 1 ، ويتم ملء الخلايا الزرقاء بالرقم 0 كما هو موضح أدناه.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!