رساله الاكسل MsgBox

[أيهاب ممدوح]

الاخوة الأعزاء

كيف اجعل msgbox يختفي تلقائيا بعد فترة 5 ثواني مثلا

او  أي فكرة اخري تجعل الكود يستكمل طريقه بدون الوقوف عند الرساله وتأكيدها بok

وطلب اخر

وهو كود لفتح الملف عند توقيت معين

شكرا

[عبدالله المجرب]

بالنسبة للطلب الأول 

هذا كود للأستاذ ماس (محمد صالح)

 

ضعه في زر أمر ونفذ الكود 

Sub Abu_Ahmed()
Set WshShell = CreateObject("WScript.Shell")
Result = WshShell.Popup("سيتم كتابة 5 في الخلية A1! بعد ثلاث ثواني", 2, "تنبيه", 65)
[A1] = 5
End Sub

[أيهاب ممدوح]

شكرا اخي العزيز عبد الله

بارك الله فيك وجعلك نفعا للجميع

[أيهاب ممدوح]

الاخ ابو احمد الاخوة الاعزاء

ممكن جعل الكود يعمل مباشر دون زر استدعاء

معني اخر يوجد كود يوزرفورم يفتح وبلا يظهر الملف يقوم الموظف بستجيل حضورة ثم يقوم الملف يالتسجيل الحضور وارساله الي الايميل وكل هذا يأخذ 20 ثانيه اريد ان تضهر رساله تفيد بالانتظار لمده خمس ثواني ثم تختفي تلقائيا ويستكمل الكود العمل بشكل طبيعي

شكرا

[عبدالله المجرب]

هل ممكن تضع الملف الذي به الكود للتعديل عليه

[أيهاب ممدوح]

مرفق الملف اخوتي

الرقم السري ehab123

ehab.rar

[أبو إيمان]

هل تقصد عند اختيار حضور صباحي أو مسائي يظهر الرسالة تلقائيا أم ماذا

[أيهاب ممدوح]

اخي الكريم

اقصد ان الموظف عند فتح البرنامج يظهر الفورم يختار منه اسمه ونوع الحضور او الانصراف ثم يضغط زر حضور وبالتالي يقوم البرنامج بتسجيل الحضور وارساله الي الايميل ثم يغلق البرنامج تلقائيا بعد 20 ثانيه تقريبا من وقت الضغط علي زر حضور

كل ما اريده بعد الضغط علي حضور تظهر رساله تفيد الموظف بالانتظار حتي يغلق البرنامج نفسه ثم تختفي الرساله تلقائيا ليكمل البرنامج عمله

ظهور الرساله بعد الضغط علي زر الحضور

شكرا

[أيهاب ممدوح]

للرفع

[أيهاب ممدوح]

للرفع

[أبو إيمان]

عند وضع كود الاستاذ عبد الله يتم تنفيذ الحدث تلقائيا  

تم تعديل مايو 9, 2014 بواسطه أبو إيمان

[أيهاب ممدوح]

بصراحه انا مش فاهم حضرتك انت عايز توصل الي ايه ؟؟؟

حضرتك قولت كلام انا مش فاهم منه اي حاجه ارجوا الشرح

[أبو إيمان]

أخي الفاضل أي كلام تقصد