كيف تُنشئ مؤقِّتًا لمربّع الرسالة ليُغلَق تلقائيًّا بعد انقضاء فترة زمنية معيّنة في Excel؟
عند العمل مع مصنفات Excel، قد تحتاج في كثير من الأحيان إلى استخدام نصوص VBA لحل المشكلات. وعادةً ما تظهر مربعات رسائل أثناء تشغيل هذه النصوص. وفي بعض الحالات، قد ترغب في أن يُغلق مربع رسالة معيّن تلقائيًا بعد انقضاء فترة زمنية محددة، بدلًا من الاضطرار إلى إغلاقه يدويًّا. وفي هذه المقالة، سنعرض لك طريقة إنشاء مؤقّت لمربع الرسالة بحيث يُغلق نفسه تلقائيًا بعد مرور الوقت الذي تحدده في Excel.
إنشاء مؤقّت لمربع رسالة لإغلاقه تلقائيًا بعد فترة زمنية معيّنة
إنشاء مؤقّت لمربع رسالة لإغلاقه تلقائيًا بعد فترة زمنية معيّنة
هنا نقدّم لك قالب نص VBA لإنشاء مؤقّت تلقائي لمربّع الرسالة.
افترض أنك تُشغّل نص VBA لنقل الصفوف بناءً على قيمة خلية. بعد اكتمال النقل، سيظهر مربع رسالة يُبلغك بأن العملية قد تمت بنجاح، وسيُغلق تلقائيًا بعد 4 ثوانٍ (كما في لقطة الشاشة أدناه). يُرجى اتباع الخطوات التالية.
1. افتح نافذةMicrosoft Visual Basic for Applications، ثم انقر علىإدراج > وحدة نمطية (Module)، وأدرج كود VBA الذي تريد استخدامه لنقل الصفوف بناءً على قيمة الخلية.
2. انسخ كود VBA التالي وضعه قبل الكود الذي ترغب في تنفيذه. راجع لقطة الشاشة أدناه:
كود VBA 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 2 أدناه، ثم الصقه قبل السطر «End Sub» الخاص بالكود الذي ترغب في تنفيذه.
كود VBA 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
ملاحظة: يمكنك تخصيص محتوى مربع الرسالة ومدة عرضه وفقًا لاحتياجاتك.
4. بعد تشغيل الكود لتنفيذ العملية، يظهر مربع رسالة ثم يُغلق تلقائيًا بعد مرور فترة زمنية معيّنة (في هذه الحالة 4 ثوانٍ).
افتح سحر إكسل مع 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل