التقريب فى الاكسيل

[h63]

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

كل ما هو 0.1 او 0.2 او 0.3 او 0.4 يقرب الى 0.5

كل ماهو 0.6 او 0.7 او 0.8 او 0.9 يقري الى واحد صحيح

[ابو اسامة العينبوسي]

السلام عليكم

على اعتبار ان الرقم في A1

=IF(A1>=0.5,ROUNDUP(A1,0),ROUNDDOWN(A1,0))

[h63]

السلام عليكم

كيف اطبقها مع العلم بانى التطبيق فى نفس الخلية وليس فى خلية اخرى

New__________Microsoft_Excel.rar

[عادل حنفي]

اخي العزيز ابو اسامه بعد اذنك

اخي h63

لقد جهزت لك هذا اثناء رد استاذنا ابو اسامه

فليسمح لي

Book1.rar

[ابو اسامة العينبوسي]

السلام عليكم

استخدم الداله

 round(a1,0)

[h63]

السلام عليكم

شكرا لتفاعلكم معى

بالنسبة للاخ aah_aah2008 هذا بعيد عما اريده تماما فانا اعلم دوال التقريب جيدا

ما اريده هو عند رصد درجة اعمال السنه فى عمود معين يصبح الاتى فى نفس العمود وليس فى عمود اخر :-

عند كتابة الرقم 1.1 يصبح 1.5

عند كتابة الرقم 1.2 يصبح 1.5

عند كتابة الرقم 1.3 يصبح 1.5

عند كتابة الرقم 1.4 يصبح 1.5

عند كتابة الرقم 1.5 يصبح 1.5

عند كتابة الرقم 1.6 يصبح 2

عند كتابة الرقم 1.7 يصبح 2

عند كتابة الرقم 1.8 يصبح 2

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

وشكرا

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

السلام عليكم

حسب فهمي للموضوع انك تعمل على ادخال قيم

يعني الخلايا بدون صيغ

انظر الى المرفق

بعد ما تنتهي من الادخالات حدد الخلايا التي تريد تقريبها

واضغط الزر

سيقوم بالتقريب حسب طلبك في الخلايا المحددة على شرط الا تكون صيغة

لانها سيحولها الى قيمة

وهذه ايضا معادلة للقيام بذلك:

IF(A4-INT(A4)=0;A4;IF(A4-INT(A4)<=0.5;INT(A4)+0.5;INT(A4)+1))

فرضا ان القيمة موجودة في الخلية A4

New__________Microsoft_Excel.rar

تم تعديل مايو 29, 2008 بواسطه خبور خير

[h63]

السلام عليكم

خير الكلام ما قل ودل

احسنت

[h63]

الاخ العزيز / خبور

قرأت الكود فهو صحيح مائة بالمائة ولا يخطر على بالى على الاقل

ولكن يه ثغرة بسيطة جدا0

هل يستطيع الكود ان يتخطى اى رمز باللغة العربية فى مجال الاخلايا المحددة بمعنى :-

طبعا ممكن ان يتخلل الارقام هذه اى حرف باللغة العربية مثل غ او م وهكذا 0اذا لم تستطع فيكفى ان يتخطى عقبة الرمز غ 0 اذا لم تستطع فالشكر الف الشكر لك ولامثالك0

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

السلام عليكم

استخدم الكود بعد التعديل

Sub kh_round()
Dim kh_no As Range
With Selection
  For Each kh_no In Selection
    If Not IsNumeric(kh_no) Then GoTo 1
     If kh_no - Int(kh_no) = 0 Then
       kh_no = kh_no
     ElseIf kh_no - Int(kh_no) <= 0.5 Then
       kh_no = Int(kh_no) + 0.5
     Else
       kh_no = Int(kh_no) + 1
     End If
1 Next
End With
End Sub

[h63]

السلام عليكم

اشكرك شكرا جزيلا

هشام

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

حفظك الله ورعاك

[omar elhosseini]

اخى هشام شلبى

فى عجالة شاهد المرفق

Test_1.rar

ويمكن تطبيق النظام المقترح من الاخ alielbasry فى موضوع

درجات أعمال السنة

ولكنى الان لن استطيع المكوث على الجهاز اكثر من ذلك

تم تعديل مايو 31, 2008 بواسطه أبو تامر

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

عملاقان في موضوع التقريب

ياهنا موضوع التفريب الخاص لصالح الطلبة

[h63]

السلا م عليكم

قبل التحميل والشرح والفهم

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

ثانيا انا سعيد لبداية مشاركات اعضاء جدد منهم من ايدنى فى موضوع التقريب ومنهم من خالفنى ولكنى ساكون اسعد بمشاركات اخرى تهدينا الى طريق موحد

هشام

[h63]

السلام عليكم

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

والميزة الثانية هو لا يحتاج الى ضغطة زر للتقريب اتتذكر ان برنامجك الحالى به ضغطة الزر للتقريب واعتقد ان عدم استخدام الزر أفضل

هل لى ان اضع If Col = 3 Or Col = 5 Or Col = 7 Col = 9Or Col = 11Or Col=11 Then

او اى عدد اخر حتى يتم التقريب لكل اعمدة اعمال السنه

شفاك الله وعافاك اخى ابو تامر