كيفية إنشاء مؤقت مربع رسالة لإغلاق مربع الرسائل تلقائيًا بعد وقت معين في Excel؟

عند استخدام مصنف Excel ، يمكنك غالبًا استخدام البرامج النصية لـ VBA لحل المشكلات. وستظهر بعض مربعات الرسائل أثناء تشغيل البرنامج النصي. في بعض الحالات ، قد ترغب في إغلاق بعض مربعات الرسائل المحددة تلقائيًا بعد وقت معين ، بدلاً من إغلاقها يدويًا. في هذه المقالة ، سوف نعرض لك طريقة إنشاء مؤقت مربع الرسائل لإغلاق مربع الرسائل تلقائيًا بعد وقت معين في Excel.

قم بإنشاء مؤقت مربع رسالة لإلغاء مربع الرسالة تلقائيًا بعد وقت معين

قم بإنشاء مؤقت مربع رسالة لإلغاء مربع الرسالة تلقائيًا بعد وقت معين

يوفر لك هنا قالب برنامج نصي لـ VBA لإنشاء مؤقت مربع رسالة.

لنفترض أنك تقوم بتشغيل برنامج VBA النصي لنقل الصفوف بناءً على قيمة الخلية. بعد الانتهاء من الحركة ، تحتاج إلى مربع رسالة يطفو على السطح لإخبارك أن العملية كانت ناجحة وأن مربع الرسائل هذا يحتاج إلى الإغلاق تلقائيًا بعد 4 ثوانٍ (انظر أدناه لقطة الشاشة). . يرجى اتباع الخطوات التالية.

1. افتح ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم قم بإدراج التعليمات البرمجية لـ VBA التي تريد استخدامها لنقل الصفوف بناءً على قيمة الخلية.

2. انسخ كود فبا 1 التالي وضعه قبل الكود الذي تريد تشغيله. انظر لقطة الشاشة أدناه:

كود فبا 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" من الكود الذي تريد تشغيله.

كود فبا 2:

 Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)

ملاحظات: يمكنك تغيير محتوى مربع الرسالة ووقت عرض مربع الحوار حسب احتياجاتك.

4. بعد تشغيل الكود لإجراء العملية ، سيظهر مربع رسالة ثم يغلق تلقائيًا بعد وقت معين (في هذه الحالة يكون 4 ثوانٍ).

افتح Excel Magic باستخدام Kutools AI

• التنفيذ الذكي: تنفيذ عمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك مدفوع بأوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مخصصة لتبسيط سير عملك.
• ترميز VBA: كتابة وتنفيذ كود VBA دون عناء.
• تفسير الصيغة: فهم الصيغ المعقدة بسهولة.
• ترجمة النص: كسر حواجز اللغة داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام الأدوات التي تعمل بالذكاء الاصطناعي. حمل التطبيق الآن وتجربة الكفاءة كما لم يحدث من قبل!

مقالات ذات صلة:

• كيف تظهر مربع رسالة عند النقر فوق خلية معينة في Excel؟
• كيفية نسخ نص من مربع الرسائل في إكسيل؟
• كيف يظهر مربع رسالة عند تنشيط / فتح ورقة عمل محددة في Excel؟
• كيف تنبثق مربع رسالة لعرض نطاق من الخلايا أو قيم الخلايا في إكسيل؟
• كيفية ظهور مربع رسالة منبثق إذا تغيرت قيمة الخلية داخل نطاق في Excel؟