كيفية إنشاء مؤقت مربع رسالة لإغلاق مربع الرسالة تلقائيًا بعد فترة زمنية معينة في 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؟