انتقل إلى المحتوى الرئيسي

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


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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ufff... great!!... very good... thank you
This comment was minimized by the moderator on the site
Ufff... buenisimo!!... muy bien... gracias
This comment was minimized by the moderator on the site
Hi. Thanks for this - it's really useful. Is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
Hi thebankman,This is the default application system sounds in windows. You can turn it off as shown in the screenshot below.
This comment was minimized by the moderator on the site
Thanks Crystal. Much appreciated
This comment was minimized by the moderator on the site
Hi. is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
It is really nice, but on my codes I'm using the "GetAsyncKeyState" function to recognize the entry status for my data (using an scan gun) and the "MsgBoxTimeout" function is affecting the "GetAsyncKeyState" function. Without the "MsgBoxTimeOut" everything is working normal, when I include it, is like disactivate the "GetAsyncKeyState" function, but both not want to work together. Have you any suggestion?
This comment was minimized by the moderator on the site
You are just perfect... :lol: :lol: :lol: 8) 8) 8)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations