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

[hasan81]

السلام عليكم وعلى جميع من في المنتدى

ارجو منكم المساعدة 

يوجد لدي عمود في اكسل يحتوي على قيم موجبة وسالبة 

اريد تحويل القيم السالبة الى صفر دون المساس بالقيم الموجبة

 

[أبو حنــــين]

مرحبا

جرب هذا الكود

Sub aaaa()

Dim c As Range
For Each c In Range("A2:A100")
If c.Value < 0 Then c = 0
Next

End Sub

 

[hasan81]

شكرا لك لردك السريع 

ابو حنين

الكود يعمل 100%

 

 

[ابو عبدالبارى]

الأخ الكريمhasan81

جرب المرفق التالى

abo_abary_تحويل السالب الى صفر.rar

[bachiri401]

السلام عليكم انا مبتدئ لم اعرف كيف ادخل هاته الكود الرجاء المساعدة بالشرح

 

[محمد صلاح يونس]

طب لو عايز اعمل لكل خلايا الاكسل

 

[Ali Mohamed Ali]

وهذا الأمر طبعا فى غاية البساطة تقوم بتحديد ما تشاء من الخلايا التى تحتاج ان تظهر القيم  السالبة فيها ب صفر

وبعد ذلك تعمل كليك يمين وتختار  Format Cells ثم تضغط على Custom وبعد ذلك تكتب هذا التنسيق

#,##0;"0"  ثم  ok -كما بالصورة