كيفية تشغيل الماكرو تلقائيًا عند تغيير نتيجة صيغة الخلية؟
لنفترض أن لدي قائمة من الصيغ تعتمد على البيانات في العمود A والعمود B كما هو موضح في لقطة الشاشة التالية، الآن أريد تشغيل كود ماكرو محدد تلقائيًا عندما تتغير نتيجة الصيغة مع تغيير الخلايا المرتبطة بها. هل هناك أي فكرة جيدة لحل هذه المهمة في Excel؟
تشغيل الماكرو تلقائيًا عند تغيير نتيجة صيغة الخلية باستخدام كود VBA
تشغيل الماكرو تلقائيًا عند تغيير نتيجة صيغة الخلية باستخدام كود VBA
يمكن أن يساعدك الكود التالي VBA في تنفيذ كود محدد تلقائيًا عند تغيير خلية نتيجة الصيغة، يرجى القيام بما يلي:
1. انقر بزر الماوس الأيمن على تبويب الورقة الذي تريد استخدامه، ثم اختر عرض الكود من قائمة السياق، في نافذة Microsoft Visual Basic for applications المفتوحة، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:
كود VBA: تشغيل الماكرو تلقائيًا عند تغيير نتيجة صيغة الخلية:
Private Sub Worksheet_Calculate()
'Updateby Extendoffice
Dim Xrg As Range
Set Xrg = Range("C2:C8")
If Not Intersect(Xrg, Range("C2:C8")) Is Nothing Then
Macro1
End If
End Sub
ملاحظة: في الكود أعلاه، C2:C8 هو نطاق خلايا الصيغ التي تريد استخدامها، maco1 هو اسم الماكرو الذي تريد تشغيله تلقائيًا. يرجى تغييره حسب حاجتك.
2. ثم احفظ وأغلق نافذة الكود هذه، الآن، عندما تتغير البيانات في النطاق A2:B8 مما يؤدي إلى تغيير نتيجة الصيغة، يتم تشغيل كود الماكرو الخاص بك فورًا.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد