سؤال بخصوص MsgBox

[nash60]

                                                      بسم الله الرحمن الرحيم  

 

تحية واحتراما للجميع  :

 

  مرفق ملف اكسيل وبداخل الكود  موضح به المطلوب وهو باختصار  الرسائل MsgBox  الالية التي تبقي تعمل

 

مع الكود وتنتهي لوحدها بدون الضغط انتر او موافق  فالرجاء من الاخوة الخبراء وجميع الاخوة الافاضل

 

ممن يستطيع ان لا يبخل علينا واجره على الله .

 

   والسلام عليكم ورحمة الله وبركاته

update.rar

[nash60]

وينكم يا اخوان يا افاضل بدون ذكر الاسماء والالقاب

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

السلام عليكم 

 

إستبدل الكود السابق بهذا 

 

Private Sub CommandButton1_Click()
Set WshShell = CreateObject("WScript.Shell")
    Sheets("السعودية").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
       
    WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "يتم تحديث سوق السعودية!", 0
    
    Sheets("السعودية").Select
    WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "تم تحديث سوق السعودية!", 0
    
    Selection.QueryTable.Refresh BackgroundQuery:=False
    
    WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "يتم تحديث سوق الكويت!", 0
    
    Sheets("الكويت").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
     WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "تم تحديث سوق الكويت!", 0
      
     WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "يتم تحديث سوق أبو ظبي!", 0
    Sheets("ابو ظبي").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "تم تحديث سوق أبو ظبي!", 0
    Sheets("الرئيسة").Select

End Sub

 

 

للأمانة فهذه الطريقة للاستاذ محمد صالح وتجدونها هنا 

 

http://www.officena.net/ib/index.php?showtopic=39926&hl=

 

 

شاهد المرفق

update.rar

[nash60]

وعليكم السلام ورحمة الله وبركاته :

 

اشكرك اخي عبد الله وجزاك الله خيرا انت والاخ محمد  صالح

 

وشكرا لكم جميعا