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

كيفية تغيير قيمة الخلية أو اللون المحدد عند تحديد خانة الاختيار في إكسيل؟

تتحدث هذه المقالة عن تغيير قيمة أو لون خلية محددة بواسطة مربع اختيار. على سبيل المثال ، عند تحديد خانة اختيار معينة ، سيتم تغيير القيمة أو لون الخلفية لخلية محددة تلقائيًا. يرجى اتباع الطرق التالية خطوة بخطوة للتعامل معها.

قم بتغيير قيمة خلية محددة عند تحديد خانة الاختيار باستخدام الصيغة
قم بتغيير قيمة خلية محددة عند تحديد خانة الاختيار برمز VBA
قم بتغيير لون الخلية المحدد عند تحديد خانة الاختيار برمز VBA


قم بتغيير قيمة خلية محددة عند تحديد خانة الاختيار باستخدام الصيغة

لنفترض أنك بحاجة إلى ملء الخلية A1 بالقيمة "اختبار" عند تحديد خانة الاختيار 1. وإفراغ الخلية عند إلغاء تحديد خانة الاختيار. الرجاء القيام بما يلي.

تحتاج إلى ربط خانة الاختيار بخلية معينة أولاً ، ثم تطبيق الصيغة لتحقيق ذلك.

1. لربط خانة الاختيار بخلية معينة ، يرجى تحديدها ، ثم إدخال = مرجع الخلية في شريط الصيغة واضغط على مفتاح الإدخال. هنا أقوم بربط مربع الاختيار 1 بالخلية C2 بإدخال = C2 في شريط الصيغة بعد تحديد خانة الاختيار.

لخانة الاختيار ActiveX Control ، يرجى النقر بزر الماوس الأيمن عليها وتحديدها عقارات من قائمة النقر بزر الماوس الأيمن. وفي عقارات في مربع الحوار ، أدخل الخلية المرتبطة في ملف لينكدسل ، ثم أغلق مربع الحوار. انظر لقطة الشاشة:

2. حدد الخلية التي تريد تغيير قيمتها (هنا أحدد A1) ، ثم أدخل الصيغة = IF (C2، "Test"، "") في شريط الصيغة ، واضغط على أدخل مفتاح. انظر لقطة الشاشة:

ملاحظات: في الصيغة ، C2 هي الخلية المرتبطة في خانة الاختيار 1 ، "اختبار" هي القيمة التي تحتاج إلى عرضها في الخلية A1 عند تحديد خانة الاختيار.

يمكنك رؤية النتائج كما هو موضح أدناه لقطات الشاشة بعد تحديد أو إلغاء تحديد خانة الاختيار المقابلة.


قم بتغيير قيمة خلية محددة عند تحديد خانة الاختيار برمز VBA

يمكنك أيضًا تغيير قيمة خلية محددة عند تحديد خانة الاختيار برمز VBA. الرجاء القيام بما يلي.

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة مع قيمة الخلية التي تريد تغييرها بناءً على خانة الاختيار ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز فبا أدناه في رمز نافذة.

كود فبا: قم بتغيير قيمة خلية محددة عند تحديد خانة الاختيار

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value:", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

ملاحظات: في الكود ، ChekBox1 هو اسم خانة الاختيار (عناصر تحكم ActiveX). يمكنك تغييره كما تريد.

3. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. حدد خلية فارغة (A1) تريد تغيير قيمتها بناءً على خانة الاختيار ، وحدد خانة الاختيار 1 في ورقة العمل الخاصة بك. الآن أ كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى إدخال القيمة التي تريد أن يتم ملؤها في الخلية الفارغة المحددة ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

ثم يتم عرض القيمة المحددة في الخلية المحددة على الفور. وعند إلغاء تحديد خانة الاختيار ، ستكون الخلية فارغة.

ملاحظات: سيذكرك هذا الرمز بإدخال قيمة النص بشكل دائري عند تحديد خانة الاختيار في كل مرة.


قم بتغيير لون الخلية المحدد عند تحديد خانة الاختيار برمز VBA

سيوضح لك هذا القسم كيفية تغيير لون الخلية المحدد عند تحديد خانة الاختيار برمز VBA.

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة بلون الخلية الذي تريد تغييره بناءً على مربع الاختيار ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز فبا أدناه في نافذة التعليمات البرمجية.

كود فبا: قم بتغيير لون الخلية المحدد عند تحديد خانة الاختيار

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

ملاحظات: في الكود ، ChekBox1 هو اسم خانة الاختيار (عناصر تحكم ActiveX). يمكنك تغييره كما تريد.

3. حدد خلية تريد تغيير لون خلفيتها ، ثم حدد خانة الاختيار. يمكنك أن ترى أن لون التعبئة للخلية المحددة قد تغير إلى اللون الأحمر. وسيتم ملء الخلية المحددة بدون لون خلفية بعد إلغاء تحديد خانة الاختيار. انظر لقطات الشاشة:


مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations