كيفية تشغيل الماكرو بناءً على قيمة الخلية في Excel؟
لنفترض أن لدي أكواد ماكرو متعددة في المصنف الخاص بي ، والآن ، أريد تشغيل هذه الرموز بناءً على قيمة الخلية. في هذه المقالة سوف أتحدث عن عدة مواقف قد تتعرض لها في عملك اليومي عند استخدام برنامج Excel.
قم بتشغيل الماكرو أو تشغيله إذا كانت قيمة الخلية أكبر أو أقل من قيمة معينة برمز VBA
قم بتشغيل الماكرو أو تشغيله إذا كانت قيمة الخلية تساوي نصًا محددًا برمز VBA
قم بتشغيل الماكرو أو تشغيله إذا كانت قيمة الخلية أكبر أو أقل من قيمة معينة برمز VBA
على سبيل المثال ، إذا كانت القيمة في الخلية A1 بين 10 و 50 ، فقم بتشغيل الماكرو 1 ، وإذا كانت القيمة أكبر من 50 ، فقم بتشغيل الماكرو 2. لحل هذه الوظيفة في Excel ، يرجى تطبيق رمز VBA التالي.
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد تنفيذ الماكرو استنادًا إلى قيمة الخلية ، ثم اختر عرض الرمز من قائمة السياق ، وفتح Microsoft Visual Basic للتطبيقات نافذة ، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:
كود فبا: قم بتشغيل الماكرو إذا كانت قيمة الخلية أكبر أو أقل من:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
ملاحظة: في الكود أعلاه:
A1 هي الخلية التي تحتوي على القيمة المحددة التي تريد تشغيل الماكرو بناءً عليها ؛
الحالة من 10 إلى 50: ماكرو 1: يعني إذا كانت القيمة بين 10 و 50 ، قم بتشغيل Macro1 ؛
الحالة> 50: ماكرو 2: يعني إذا كانت القيمة أكبر من 50 ، قم بتشغيل Macro2.
يرجى تغيير أسماء ومعايير وحدات الماكرو هذه حسب حاجتك ، ويمكنك أيضًا إضافة المزيد من المعايير التالية الإطار النصي.
2. ثم احفظ وأغلق نافذة الكود هذه ، الآن ، عندما تكون القيمة التي تدخلها بين 10 و 50 في الخلية A1 ، سيتم تشغيل Macro1 ، إذا كانت القيمة المدخلة أكبر من 50 ، فسيتم تنفيذ Macro2.
قم بتشغيل الماكرو أو تشغيله إذا كانت قيمة الخلية تساوي نصًا محددًا برمز VBA
إذا كنت ترغب في تشغيل الماكرو استنادًا إلى نص معين في خلية ، على سبيل المثال ، لتشغيل الماكرو 1 إذا تم إدخال النص "حذف" وتشغيل الماكرو 2 إذا تمت كتابة النص "إدراج". الكود التالي يمكن أن يقدم لك خدمة.
1. انقر بزر الماوس الأيمن فوق الورقة التي تريد تنفيذ الماكرو بناءً على قيمة الخلية ، ثم اختر عرض الرمز من قائمة السياق ، وفتح Microsoft Visual Basic للتطبيقات نافذة ، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:
كود فبا: قم بتشغيل الماكرو إذا كانت قيمة الخلية نصًا محددًا
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
ملاحظة: في الكود أعلاه ، "حذف"و"إدراج"هي نصوص الخلية التي تريد تشغيل وحدات الماكرو بناءً عليها ، و Macro1 و Macro2 هي وحدات الماكرو التي تريد تنفيذها بناءً على النص. يرجى تغييرها حسب حاجتك.
2. ثم احفظ هذا الرمز وأغلق النافذة ، الآن ، عند إدخال النص "حذف" في الخلية A1 ، يتم تشغيل الماكرو 1 ، وإذا تم إدخال النص "إدراج" ، فسيتم تنفيذ الماكرو 2.
مقالات ذات صلة:
كيفية تشغيل الماكرو عندما تتغير قيمة الخلية في إكسيل؟
كيفية تشغيل الماكرو تلقائيًا قبل الطباعة في Excel؟
كيفية تشغيل الماكرو بناءً على القيمة المحددة من القائمة المنسدلة في Excel؟
كيفية تشغيل الماكرو بالنقر فوق الارتباطات التشعبية في Excel؟
كيف يتم تشغيل الماكرو عند تحديد الورقة من مصنف؟
أفضل أدوات إنتاجية المكتب
ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!














