اريد كود عند الضغط على زر ، يمسح كل المعادلات ويترك قيمها من جميع الاوراق او المصنف كل

[جمال جبريل]

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

اريد كود عند الضغط على زر ، يمسح كل المعادلات ويترك قيمها من جميع الاوراق او المصنف كل

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

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

إليك الكود التالي عله يفي بالغرض

حمل الكود من هنا

تقبل تحياتي

[جمال جبريل]

والله ممتاز ، بارك الله فيك

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

وبارك الله فيك أخي الفاضل جمال

الحمد لله أن نال الكود إعجابكم وأدى المطلوب ..قل الحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي

[جمال جبريل]

اخي ابو البراء ، بعد استخدامي لهذا الكود ، وبعد فترة او وضعه في ملف اكسل جديد ، لا يعمل ويعطي خطا ، و حاولت كثيرا ، ولا اعرف ما السبب بالضبط 

خطا في الكود.rar

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

أخي الكريم ارفق الملف وليس صورة الخطأ ..

 

[جمال جبريل]

للاسف الموقع يرفض رفع اي ملف ، ورغم ان حجم الملف صغير ، وايضا ملف zip

هل السبب ممكن لان الملف مرتبط بملف اخر؟

الحمد لله الذي بنعمته تتم الصالحات

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

حاول ترفعه على أي موقع خارجي وتضع الرابط هنا

قد يكون السبب ارتباط الملف لملف آخر .. ولكن هذا مجرد احتمال ضعيف.. لا يمكنني الجزم إلا بالإطلاع على الملف المرفق

[جمال جبريل]

الحمد لله الذي بنعمته تتم الصالحات

هناك كود اخر وجدته ، والفرق ما بين الكود الخاص بك ، والكود الاخر ، انه يجب تحديد الورقة التي تريد ان تحذف منها المعادلات ، فهل ممكن تضيف لي كود لتحديد كل الاوراق قبل حذف المعادلات.

الكود :

Sub Test()
    Dim Ws As Worksheet
    Application.ScreenUpdating = False
        For Each Ws In ThisWorkbook.Worksheets
            Ws.UsedRange.Value = Ws.UsedRange.Value
        Next Ws
    Application.ScreenUpdating = True
End Sub
 

 

والغريب ان هذا الكود يعمل 

جداول اكسل لحذفها.rar

تم تعديل أبريل 17, 2016 بواسطه جمال الخطيب