اذهب الي المحتوي
أوفيسنا

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

محمد مصطفى ابو حمزة
 مشاركة

الردود الموصى بها

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

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

قام بنشر
قام بنشر (معدل)

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

اضغط F5

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

T9097F1.jpg

اختر SPECIAL

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

T9097F2.jpg

اختر 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

تم تعديل بواسطه محمد مصطفى.2011
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept