اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

كيف اجعل 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 ثانيه تقريبا من وقت الضغط علي زر حضور

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

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

شكرا

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information