تقريب الجزء العشرى

[kinggraphic]

احبائى الافاضل
لفد طرحت فى السابق موضوع تقريب خاص وتفاعلتم وافدوتنى جدا
المره دى عاوز تقريب مختلف
عاوز اى جزء عشرى اقل من النصف يتحول الى نصف مثال ( 1.1 الى 1.4 تتحول الى 1.5 )
واى جزء عشرى بعد النصف يصبح واحد صحيح مثال (1.6 الى 1.9 تتحول الى 2 )

مع الاستفسار لو تم جمع تلك القيم هل ستعتبر انها القيم القديمه ام الجديده
يعنى هيجمعها على انها 1.1 وله 1.5
وهناك ملف مرفق ملف التقريب.rar

[جمال عبد السميع]

أنظر أخى لعله المطلوب

ملف التقريب.rar

[رجب جاويش]

أخى الحبيب / جمال ( أبو محمود )

بعد أجمل تحية

تسلم ايديك

ولاثراء الموضوع

هذه دالة معرفة للتقريب

Function ragab(cl As Range)
On Error Resume Next
x = cl - Int(cl)
ragab = IIf(x > 0.5, Int(cl) + 1, IIf(x = 0, cl, Int(cl) + 0.5))
If cl = "" Or WorksheetFunction.IsText(cl) = True Then ragab = ""
End Function

ويتم استخدامها كالاتى

=ragab(A2)

دالة معرفة للتقريب.rar

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / جمال عبد السميع

الاستاذ العملاق / رجب جاويش

بارك الله فيكم

عندما اجد موضوع فيه اكثر من حل وبالاخص لكم

ويظهر فيه جليا التنافس في تقديم العون وفعل الخير من خلالكم

اجد رواائع كثيرة نتعلم منها جميعا

زادكم الله من فضله ومن علمه

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

[رجب جاويش]

أخى الحبيب / حمادة عمر

جزاك الله كل خير على هذا المرور العطر والكلمات الطيبة

[نــــ حلمي ــوّار]

اشكركم اساتذتي الأجلاء على ماقدمتموه

طرحتم فأبدعتم

الاستاذ / جمال عبد السميع

الاستاذ/ رجب جاويش

الاستاذ / حمادة عمر

دمتم ودام عطائكم وجزاكم الله خيراً . ولا تحرمونا من جديدكم . متابع بتشوق، جاري الاستفادة

[حسن الحاوى]

الاستاذ / جمال عبد السميع

الاستاذ / رجب جاويش

بارك الله فيكم وزادكم الله من علمه

[أبو محمد عباس]

 

الاستاذ والاخ الحبيب ابو محمود المحترم

الاستاذ والاخ الحبيب رجب جاويش المحترم

ما شاء الله تبارك الرحمن حلول رائعة واعمالكم في الحقيقة كلها رائعة

والاروع منها تسابق الاساتذة لعمل الخير وحلول مختلفة من اجل ان يرتقي هذا الصرح الكبير للافضل والاحسن بجهودكم وبقية الاساتذة الكرام

ادام الله عليكم نعمة العلم والمعرفة واعطاكم الصحة والعافية وحفظكم من كل سوء

تقبل الله منكم ومنا صالح الاعمال

 

[احمد عبد الناصر]

السلام عليكم

 

تحياتي للجميع , اسعد الله اوقاتكم 

 

زيادة في الخير و حبا في المشاركة مع الاساتذة الكرام هذه محاولة 

=CEILING(A2,0.5)

+ملف التقريب.rar

[رائد 1982]

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

[kinggraphic]

شكرا جزيل لك الاساتذه 
على المعادلات البسيطه منها والمعقده