تعديل في كود تصفير قيم

[أبو أنس حاجب]

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

أساتذتي الكرام حفظكم الله

هذا الكود يقوم بتحويل القيم في العمود L التي تكون أصغر من .005 إلى صفر مطلق المطلوب التعديل عليه بحيث يحول أيضاً القيم السالبة التي بين -.005 وما هو أصغر منها إلى صفر مطلق بحيث أن لا يؤثر على الإجمالي.

أظن أن السطر المستهدف في التغيير هو حتى يحقق المطلوب المزدوج

If Abs(Int(t)) <= 0.005 And t.Value <> Empty Then

جزاكم الله كل خير

المرفق:

تغيير في كود تصفير.rar

أبو أنس

[الـعيدروس]

السلام عليكم

جرب هذا التعديل

Sub ChangeToZero()

ActiveSheet.Unprotect

Dim t As Range

Application.ScreenUpdating = False

For Each t In Range("L6:L60000")

If t.Value <= -0# And Not IsEmpty(t.Value) Then t.Value = 0

If Abs(Int(t)) <= 0.005 And Not IsEmpty(t.Value) Then t.Value = 0

Next

Application.ScreenUpdating = True

ActiveSheet.Protect

End Sub

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أبا نصار حفظكم الله

أشكرك على سرعة الرد أولاً.

جزاكم الله كل خير.

كما أرجو مراجعة الشرط المطلوب من طرفي فيما يخص القيم السالبة وهو أن يحول فقط القيم التي تكون بين -.005 وماهو أصغر منها إلى صفر على أن لا يؤثر ذلك على المجموع العام ولكن تعديلكم النبيل يحول كل القيم السالبة إلى صفرية مما يؤثر على الرصيد الإجمالي.

سوف أحاول اختصر المطلوب الذي أريده من الكود بشكل مركب كالتالي:

يقوم الكود بتصفير القيم بشرط إذا كانت بين -0.005 و 0.005 .

والله خير معين

أبو أنس

[أبو أنس حاجب]

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

للرفع أعزكم الله

[الـعيدروس]

السلام عليكم

جرب هكذا

Sub ChangeToZero()

ActiveSheet.Unprotect

Dim t As Range

Application.ScreenUpdating = False

For Each t In Range("L6:L60000")

If t.Value >= -0.005 And t.Value <= 0.005 And Not IsEmpty(t.Value) Then t.Value = 0

If Abs(Int(t)) <= 0.005 And Not IsEmpty(t.Value) Then t.Value = 0

Next

Application.ScreenUpdating = True

ActiveSheet.Protect

End Sub

[أبو أنس حاجب]

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

ياسيدي وأستاذي الفاضل حفظكم الله

جربت هكذا وطلع هو هكذا.

جزاكم الله كل خير ويسر أمركم أين ما كنتم وشملكم الله بمغفرته ورحمته.

أبو أنس