كود لحف القيمة صفر من الخلايا

[احمد ابوزيزو]

السادة اعضاء المنتدي المحترمين

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

المطلوب

كود لحذف القيمة صفر من جميع خلايا الورقة

بالمرفق

الورقة الاولي بها البيانات وبها خلايا ذات قيمة صفر

الكود المطلوب يجعل

الورقة الثانية  تظهر كما بالمرفق ( لنتمكن من النسخ واللصق بدون القيمة صفر )

حذف القيمة صفر من الخلايا.rar

[عبدالله باقشير]

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

 

جرب الكود التالي

Sub Macro1()
    ActiveSheet.UsedRange.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

تحياتي

[احمد ابوزيزو]

الي الاستاذ الفاضل

الي الاستاذ القدير / عبد الله

شكرا جزيلا

[محمد ابو البـراء]

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

وبعد اذن الاستاذ الكبير // عبد الله باقشير

هذه طريقة لحذف الصفر بطريقة ليست بالاكواد لاثراء الموضوع

1 ) اضغط على ctrl + h

2 ) استبدل 0

بــــــــــــــــ

=""

كما موضح في الصورة

 

وهذه صورة بعد التنفيذ

[احمد ابوزيزو]

استاذنا الفاضل / محمد أبو البراء

السلام عليكم

شاكر جدا اهتمام سيادتكم

شاكر جدا للاستاذ / عبد الله

لي وجهه نظر متواضعة

 الحل بطريقتكم يؤدي الي استبدال ( الاصفار) جميعها حتي التي بداخل الارقام مما يؤثر علي البيانات

[الشيباني1]

^{استاذنا القدير عبد الله باقشير  تحية طيبه كيف يمكن تحديد المدى المرغوب حذف الاصفار التي يحتويها ضمن الكود الرائع مع الامتنان}

[عبدالله باقشير]

السلام عليكم

ملحوظة :

الكود الذي اوردته هو تسجيل للخطوات التي قام بها اخي محمد ابو البراء

لكن هو لم يذكر خطوة مهمة

وهي ان تضغط على الزر خيارات

وتشيك على الخيار ( مطابقة حالة الاحرف )

ثم تضغط استبدال الكل .

[عبدالله باقشير]

^{استاذنا القدير عبد الله باقشير  تحية طيبه كيف يمكن تحديد المدى المرغوب حذف الاصفار التي يحتويها ضمن الكود الرائع مع الامتنان}

 

استبدل UsedRange

بالنطاق الذي تريده

مثلا

Range("D3:G16")

[محمد ابو البـراء]

استاذي // عبد الله باقشير

شكراً على التوجيه الصحيح لضبط طريقة الحل

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