طريقتين لحذف جميع البيانات بدون المعادلات

[محمد مصطفى ابو حمزة]

الطريقة الاولى

اضغط F5

يظهر الشكل التالى

اختر SPECIAL

ليظهر الشكل التالى

اختر CONSTANts

وتاكد ان علامات الصح تحت FORMULAS موجودة بالكامل

ثم اضغط على OK

ثم DEL من الكيبورد

الطريقة الثانية

عن طريق هذا الكود

Sub ClearAllButFormulas()

	Dim wks As Worksheet

	For Each wks In Worksheets

		'iلتفادى الخطأ فى حالة وجود معادلات فقط

		On Error Resume Next

		wks.Cells.SpecialCells _

		  (xlCellTypeConstants, 23).ClearContents

		On Error GoTo 0

	Next

	Set wks = Nothing

End Sub

تم تعديل مارس 19, 2012 بواسطه محمد مصطفى.2011

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

استاذ محمد

بداية موفقة انشاء الله

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

[Ahmed Elbhiry]

احسنت محمد بارك الله فيك

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

مشاركة ممتازة

وان شاء الله نرك اخي محمد متفاعلاً اكثر

[محمد مصطفى ابو حمزة]

شكرا للردود وان شاء الله اكون فعال ومتفاعل فى المشاركات

[mhrrd]

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

اريد مسح صفحات معينة ومن صفوف معينة

[محمد مصطفى ابو حمزة]

اخشى انى لم افهم السؤال اخى هل من الممكن التوضيح اكثر

[cat101]

نريد مسح الشيت من الخلية A12 الى DK1000

وشكرا جزيلا

مسح بدون المعادلات.rar

[Ahmed Elbhiry]

تم تعديل الكود بملفك على حسب طلبك

مسح بدون المعادلات.rar