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

[mohamed322]

 

برجاء المساعدة

أظهار البنود.xls

تم تعديل سبتمبر 10, 2019 بواسطه mohamed322

[mohamed322]

تم تعديل الملف

أظهار البنود.xls

[نبيل عبد الهادي]

اذا كنت تقصد اخفاء قيمة الصفر

اخفاء  Hidezero

اظهار showzero

أظهار البنود (1).xls

[mohamed322]

أولاً شكراااا على الأهتمام وأتمنى فى الشيت الجديد يكون موضح

 

 

أظهار البنود.xls

تم تعديل سبتمبر 11, 2019 بواسطه mohamed322

[mohamed322]

أريد حذف القيم التى تحتوى على صفر مع حذف المسمى الخاصة بها

كشف.xls

[سليم حاصبيا]

جرب هذا الملف

 

kashF.xlsm

[mohamed322]

أولا شكراااا جدااا بس بنود الأستقطاع مش بتظهر كلها

 

تم تعديل سبتمبر 15, 2019 بواسطه mohamed322

[سليم حاصبيا]

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

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

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

      

 

[Ali Mohamed Ali]

كود ممتاز استاذ سليم بارك الله فيك وجعله الله فى ميزان حسناتك

[mohamed322]

شكراااا جدااا ممكن الكود فى الأكسيل تطبيق عملى ويمسح المسمى إلى بجانب الصفر

تم تعديل سبتمبر 15, 2019 بواسطه mohamed322

[نبيل عبد الهادي]

استاذ سليم ... منكم نستفيد ونتعلم ......ولكم فائق الشكر والتقدير

[mohamed322]

ممكن لو سمحت الكود فى الأكسيل مش عارف أطبقة عندى لو أمكن التطبيق عملى فى الأكسيل وشكراااا

[مجدى لطفى]

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

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