مسح اي قيمه تساوي صفر

[ابو حمادة]

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

 

الاساتذه الكراام

هل يوجد كود يمسح اي قيمة تساوي صفر في النطاق (A6:LV) الى اخر صف به بيانات فى العمود (B)

ولكم جزيل الشكر والاحترم

 

[Ali Mohamed Ali]

وعليكم السلام-تفضل

Sub DelZeros()
     Dim c As Range
    
     For Each c In Selection
         If c.Value = 0 Then c.ClearContents
     Next c
 End Sub
وهذا كود أخر

Sub RemoveZeros()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
  If Rng.Value2 = 0 Then Rng.ClearContents
Next Rng
End Sub
وأيضا يمكن مسح الخلايا المساوية للصفر وعدم إظهار الصفر وذلك عن طريق :

Excel Option

ثم Advanced

ثم نختار Display Option For this work sheet

وبعدين نحذف العلامة من على Show Zero وذلك كما بالصورة

بارك الله فيك

[ابو حمادة]

5 ساعات مضت, ali mohamed ali said:

وعليكم السلام-تفضل

Sub DelZeros()
     Dim c As Range
    
     For Each c In Selection
         If c.Value = 0 Then c.ClearContents
     Next c
 End Sub
وهذا كود أخر

Sub RemoveZeros()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
  If Rng.Value2 = 0 Then Rng.ClearContents
Next Rng
End Sub
وأيضا يمكن مسح الخلايا المساوية للصفر وعدم إظهار الصفر وذلك عن طريق :

Excel Option

ثم Advanced

ثم نختار Display Option For this work sheet

وبعدين نحذف العلامة من على Show Zero وذلك كما بالصورة

بارك الله فيك

شكرا استاذي واخى الفاضل على هذا العمل الرائع

جعله لله في ميزان حسناتك