كيفية إنشاء مؤقت مربع رسالة لإغلاق مربع الرسالة تلقائيًا بعد فترة زمنية معينة في Excel؟
عند استخدام مصنف Excel، قد تستخدم غالبًا نصوص VBA لحل المشكلات. وسيظهر بعض مربعات الرسائل أثناء تشغيل النص البرمجي. في بعض الحالات، قد ترغب في إغلاق بعض مربعات الرسائل المحددة تلقائيًا بعد فترة زمنية معينة، بدلاً من إغلاقها يدويًا. في هذه المقالة، سنوضح لك طريقة إنشاء مؤقت مربع رسالة لإغلاق مربع الرسالة تلقائيًا بعد فترة زمنية معينة في Excel.
إنشاء مؤقت مربع رسالة لإغلاق مربع الرسالة تلقائيًا بعد فترة زمنية معينة
إنشاء مؤقت مربع رسالة لإغلاق مربع الرسالة تلقائيًا بعد فترة زمنية معينة
هنا نقدم قالب نص VBA لإنشاء مؤقت مربع رسالة.
لنفترض أنك تقوم بتشغيل نص VBA لنقل الصفوف بناءً على قيمة الخلية. بعد الانتهاء من النقل، ستحتاج إلى ظهور مربع رسالة ينبثق ليُخبرك بأن العملية كانت ناجحة ويجب أن يتم إغلاق هذا المربع تلقائيًا بعد 4 ثوانٍ (انظر لقطة الشاشة أدناه). يرجى اتباع الخطوات التالية.
1. افتح نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة، ثم أدخل كود VBA الذي تريد استخدامه لنقل الصفوف بناءً على قيمة الخلية.
2. انسخ الكود التالي VBA code 1 وضعه قبل الكود الذي تريد تشغيله. انظر لقطة الشاشة أدناه:
VBA code 1:
Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal xHwnd As LongPtr, _
ByVal xText As String, _
ByVal xCaption As String, _
ByVal xMsgBoxStyle As VbMsgBoxStyle, _
ByVal xwlange As Long, _
ByVal xTimeOut As Long) _
As Long
3. انسخ الكود التالي VBA code 2 وضعه قبل السطر "End Sub" الخاص بالكود الذي تريد تشغيله.
VBA code 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
ملاحظة: يمكنك تغيير محتوى مربع الرسالة ومدة عرض مربع الحوار حسب احتياجاتك.
4. بعد تشغيل الكود لتنفيذ العملية، سيظهر مربع رسالة ثم يغلق تلقائيًا بعد فترة زمنية معينة (في هذه الحالة هي 4 ثوانٍ).
اكتشف سحر Excel مع Kutools AI
- التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
- الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
- برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
- تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
- ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
مقالات ذات صلة:
- كيفية ظهور مربع رسالة عند النقر على خلية معينة في Excel؟
- كيفية نسخ النص من مربع الرسالة في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد