إيقاف تحديث الشاشة Screen Updating

[خالد الشاعر]

الاساتذة الخبراء

 

برجاء الافادة ما الفرق بين كل من 

 

Application.ScreenUpdating = False

 

Debug.Assert Application.ScreenUpdating

 

 

و ايهما اكثر فعالية حيث انى جربت الثاني كان افضل

 

ولكم جزيل الشكر والاحترام

[مختار حسين محمود]

أستاذ خالد أقول لك بعد عملية بحث فى الانترنت أنه هناك فارق بين الجملتين

 

Application.ScreenUpdating=False
تستخدم لايقاف screen flickering أو وميض الشاشة واهتزازها أثناء عمل الكود

 

أما Debug.Assert Application.ScreenUpdating
تستخدم فى ايقاف كود به قيمة خاطئة فاذا كان فى الكود قيمة خاطئة فهذه الجملة بتوقف عمل الكود

 

فى المرفق أربعة أمثلة لأكواد مختلفة  الثلاثة الأولى تعمل أما الأخير لا يعمل بسبب

وجود الجملة Debug.Assert Application.ScreenUpdating دى مع كلمة false  فى الكود

بعكس الكود الثالث

 

هذا ما أعرفه  انتظر رأى باقى الزملاء عل وعسى تكون هناك اجابات أخرى تحياتى لك

 

للأسف تعذر رفع الملف لأسباب لا أعرفها لذلك اليك الأكواد

Sub test1()
    Application.ScreenUpdating = True
           
    MsgBox Application.ScreenUpdating
End Sub
Sub test2()
    Application.ScreenUpdating = False
           
    MsgBox Application.ScreenUpdating
End Sub
 
Sub test3()
     
    Application.ScreenUpdating = True
    
    Debug.Assert Application.ScreenUpdating
    
    MsgBox Application.ScreenUpdating
     
End Sub

Sub test4()
     
    Application.ScreenUpdating = False
    
    Debug.Assert Application.ScreenUpdating
   
   'الكود توقف لان به قيمة حاطئة بعكس الكود الثالث
    
    
    MsgBox Application.ScreenUpdating
     
End Sub

تحياتى لك

تم تعديل أبريل 26, 2015 بواسطه مختار حسين محمود

[خالد الشاعر]

استاذ مختار

 

جزاك الله كل خير