كيف يمكن تشغيل ماكرو تلقائيًا عند تغيُّر قيمة خلية في Excel؟
عادةً في Excel، يمكنك الضغط على مفتاح F5 أو زر التشغيل لتنفيذ كود VBA. لكن، هل سبق أن حاولت تشغيل ماكرو معيّن تلقائيًا عند تغيُّر قيمة خلية؟ في هذه المقالة، سأعرض لك بعض الحيل السريعة للتعامل مع هذه المهمة في Excel.
تشغيل أو استدعاء ماكرو عند تغيّر قيمة خلية معيّنة باستخدام كود VBA
تشغيل أو استدعاء ماكرو عند تغيّر قيمة أي خلية ضمن نطاق باستخدام كود VBA
تشغيل أو استدعاء ماكرو عند تغيّر قيمة خلية معيّنة باستخدام كود VBA
لتشغيل كود ماكرو تلقائيًا عند تغيُّر قيمة خلية، يُمكنك استخدام الكود التالي. اتبع الخطوات التالية:
1. انقر بزر الماوس الأيمن على لسان الورقة التي تريد تنفيذ الماكرو فيها عند تغيُّر قيمة الخلية، ثم اخترعرض الكودمن القائمة السياقية. وفي نافذةمايكروسوفت فيجوال بيسك للتطبيقاتالمفتوحة، انسخ والصق الكود التالي في الوحدة (Module) الفارغة:
كود VBA: تشغيل ماكرو عند تغيّر قيمة الخلية:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Call Mymacro
End If
End Sub
ملاحظة: في الكود أعلاه،A1 هي الخلية المعيّنة التي تريد تشغيل الكود بناءً عليها، وMymacro هو اسم الماكرو الذي تريد تشغيله. يُرجى تعديلها حسب احتياجاتك.
2. ثم احفظ وأغلق نافذة الكود. الآن، كلما أدخلتَ أو غيّرتَ قيمة في الخلية A1، سيتم تشغيل الكود المعيّن فورًا.
تشغيل أو استدعاء ماكرو عند تغيّر قيمة أي خلية ضمن نطاق باستخدام كود VBA
إذا كنت ترغب في تشغيل ماكرو عند تغيُّر قيمة أي خلية ضمن نطاق معيَّن، فقد يساعدك الكود التالي.
1. انقر بزر الماوس الأيمن على لسان الورقة التي تريد تنفيذ الماكرو فيها عند تغيّر قيمة الخلية، ثم اخترعرض الكودمن القائمة السياقية. وفي نافذةمايكروسوفت فيجوال بيسك للتطبيقاتالمفتوحة، انسخ والصق الكود التالي في الوحدة (Module) الفارغة:
كود VBA: تشغيل ماكرو عند تغيّر قيمة أي خلية ضمن نطاق:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
Call Mymacro
End If
End Sub
ملاحظة: في الكود أعلاه،A1:B100 هي الخلايا المعيّنة التي تريد تشغيل الكود بناءً عليها، وMymacro هو اسم الماكرو الذي تريد تشغيله. يُرجى تعديلها وفقًا لاحتياجاتك.
2. ثم احفظ وأغلق نافذة الكود. الآن، كلما أدخلتَ أو غيّرتَ قيمةً في أي خلية ضمن النطاق A1:B100، سيتم تنفيذ الكود المعيّن فورًا.
إزالة جميع الماكرو من عدة ملفات عمل
Kutools لـ Excel's إزالة جميع الماكروهات بالدفعةيمكنك أداة إزالة جميع الماكرو من استخراج البيانات من عدة ملفات عمل حسب حاجتك.حمّل وجرّب مجانًا Kutools لـ Excel الآن!
Kutools لـ Excel: مع أكثر من 300 إضافة مفيدة لبرنامج Excel، جرّبها مجانًا دون أي قيود لمدة 30 يومًا.حمّل وجرّب مجانًا الآن!
مقالات ذات صلة:
كيف يمكن تشغيل ماكرو تلقائيًا قبل الطباعة في Excel؟
كيف يمكن تشغيل ماكرو تلقائيًا بناءً على قيمة معيّنة في خلية Excel؟
كيف يمكن تشغيل ماكرو بناءً على القيمة المختارة من قائمة منسدلة في Excel؟
كيف يمكن تشغيل ماكرو عند النقر على روابط تشعبية في Excel؟
كيف يمكن تشغيل ماكرو تلقائيًا عند تحديد ورقة في ملف العمل؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل