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

أريد حذف القيم التى تحتوى على صفر


mohamed322
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

استاذ نبيل  ====

 كود جيد والى الامام لكن ارجو تقبل هذه الملاحظات:

1-لا حاجة لعمل تنسيق على كامل خلايا الورقة (Cells.Select) طالما انه يهمك فقط نطاق معين منها

2-لا حاجة للــ  SELECT (هذا الأمر التي يستعمله اكثر الناس مع انه لا لزوم له الا في بعض الحالات) لانه يهدر

          وقت الاكسل(و لو لجزء من مليون من الثّانية الذي تعتبره الذاكرة شيئاً مهماً)

3- تغيير التحديد الى A1  ايضا لا لزوم له

الكود كما يجب ان يكون

Sub Hidezerovalue()
 Range("B3:J6").NumberFormat = "0; -0;;@"
End Sub
'=============================
Sub showzerovalue()
 Range("B3:J6").NumberFormat = "General"
End Sub

      

 

  • Like 2
رابط هذا التعليق
شارك

  • 2 weeks later...

استاذ @سليم حاصبيا

أمل دعمكم في أن يتم تعديل الكود ليكون عرض الأرقام حال الإخفاء أو الإظهار بتنسيق رقمي مثال 12,000 

رابط هذا التعليق
شارك

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