Calculation

[عصام مسعد]

السلام عليكم

احتاج الى كود يتم التحكم فيه عن طريق الزرار وهذا الكود يقوم بتشغيل 

Calculation Automatic 

لمده 10 ثوانى فقط ثم بعد ذلك يقوم بعمل

Application.Calculation = xlManual

مع الشكر

تم تعديل ديسمبر 14, 2015 بواسطه essammosaad

[عصام مسعد]

في 12/14/2015 at 21:21, essammosaad said:

السلام عليكم

احتاج الى كود يتم التحكم فيه عن طريق الزرار وهذا الكود يقوم بتشغيل 

Calculation Automatic 

لمده 10 ثوانى فقط ثم بعد ذلك يقوم بعمل

Application.Calculation = xlManual

مع الشكر

اتمنى ان اجد  حل لذلك الموضوع

[ياسر خليل أبو البراء]

أخي الكريم عصام

جرب الكود التالي عله يكون المطلوب إن شاء الله

Sub Wait10Seconds()
    Application.Calculation = xlManual
        Application.Wait (Now + TimeValue("0:00:10"))
    Application.Calculation = xlAutomatic
End Sub

تقبل تحياتي