اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

وطلب اخر

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

شكرا

رابط هذا التعليق
شارك

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

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

 

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

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

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

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

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

شكرا

رابط هذا التعليق
شارك

اخي الكريم

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

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

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

شكرا

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information