ما هي الطريقة المثله لتقريب الرقم بشرط

[WithOutName]

[align=center]بسم الله الرحمن الرحيم

السلام عليكم ...

بعد التحيه السؤال هو؟

كيف يمكن تقيب رقم الي اقرب رقم يكون اما عدد صحيح أو الي 25 او 50 او الي 75 جزء من ال 100

مثال اذا كان الرقم 23.25668 او 23.315 يقرب الي 23.25 فقط
يعني اذا كان قريب من ارباع ال 100 يقرب لها .


شاكر لكم زيارت الموضوع تحياتي. (y)

[/align]

[WithOutName]

[فلسطيني]

ضع الصيغة التالية في c2 ثم اكتب ما تريد في b2 و لا تنسانا من دعوة خالصة بظهر الغيب

=IF(B2-INT(B2)<0.5;INT(B2);(IF(B2-INT(B2)=0.5;INT(B2)+0.5;(IF(B2-INT(B2)>0.5;INT(B2)+1)))))

[WithOutName]

بسم الله الرحمن الرحيم

اخي فلسطيني شكرا اولا لك ثم جزاك الله الف خير .

بنسبه للكود الذي وضعته ليس هو المراد عندما ادخل فرضا الرقم 62.79 ناتج الكود هو 63 وأنا أنا اريد الناتج يكون 62.75 اريد التقريب الي

20.00 او 20.25 او 20.50 او 20.75

شكرا مره أخري تحياتي

[هادى محمد المامون سالم]

اخى الكريم :

اعتقد ان افضل داله للتقريب الذى تقصده هى داله MROUND

ضع 62.79 فى الخليه A1 و فى الخليه B1 ضع الكود التالى طالما انك تريد التقريب الى اقرب ربع ( 0.25)

=MROUND(A1;0.25)

و أخبرنى بالنتيجه

[هادى محمد المامون سالم]

نسيت اشكرك على كلامك الجميل الذى يعجز اللسان على الرد عليه فى مشاركتى شرح الماكرو بالصور

السلام عليكم

[WithOutName]

بسم الله الرحمن الرحيم

أخي hs889 لا شكر علي واجب وأنما هذا من القلب الي القلب

حول موضوعنا لقد واجهة مشكله عند نسخ الكود ووضعه لا تضهر النتيجه وانما تكتب في الخليه B1 الاتي ?NAME# ثم حاولت البحث عن الداله لم أجدها في قامة كافت الدوال هل يشترط أضافت شي للبرنامج .

وأود الأشار الي مشكله حصلت لي عندما أضافة كود الي ملف الكود هو .

Private Sub Workbook_Activate()
    Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Private Sub Workbook_deActivate()
    Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub NoScreenRePainting()
    Application.ScreenUpdating = True
    'Your code here.
    Application.ScreenUpdating = True
End Sub

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

تحياتي وجزيت خيرا

[هادى محمد المامون سالم]

بالنسبه للسؤال الاول :

اذهب الى tools

Add Ins

ضع علامه امام الاختيارات

وقد يطلب منك السورس للاوفيس

ثم اغلق الملف و اعد فتحه أو أكتب المعادله مره اخرى

و ان شاء الله النتيجه مضمونه 0

بالنسبه للسؤال الثانى

برجاء ارفاق الملف صاحب المشكله

السلام عليكم

[تامر خليفة]

بعد اذن عمالقة البرمجة

عندي حل وقد يكون مفيد

جرب دالة

=TRUNC(a1;2)

يمكن تكون مفيدة ليك

[هادى محمد المامون سالم]

ارفقت لك ملف

Book1.rar

[WithOutName]

بسم الله الرحمن الرحيم

(y) hs889 ماشاء الله


أحسنت والله يجعله في ميزان حسناتك أصبة هذا الذي كنت أبحث عنه الداله صحيحه وهي المراد.

أخي تامر شكرا علي المحوله ولاكن الداله لم تكن صحيحه الداله تقرب الي خانتين فقط وأنا كنت أبحث عن خانتين ومقربه الي أرباع والحل في الداله
=MROUND(A1;0.25)

==================================================

أخي hs889

بنسبه للملف الأصلي فان حجمه كبير لا يمكن أرفاقه هل يوجد حل أخر

[هادى محمد المامون سالم]

أعتقد المشكله فى هذا الكود

Private Sub Workbook_deActivate()
   Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

غير هذا الكود بالكود التالى

Private Sub 

Workbook_deActivate()
   Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

ثم شغل الماكرو

و النتيجه مضمونه ان شاء الله

[WithOutName]

أعتقد المشكله فى هذا الكود

Private Sub Workbook_deActivate()<!--QuoteEBegin-->   Application.CommandBars("Worksheet Menu Bar").Enabled = False<!--QuoteEBegin-->End Sub<!--QuoteEBegin-->

غير هذا الكود بالكود التالى

Private Sub <!--QuoteEBegin--><!--QuoteEBegin-->Workbook_deActivate()<!--QuoteEBegin-->   Application.CommandBars("Worksheet Menu Bar").Enabled = True<!--QuoteEBegin-->End Sub<!--QuoteEBegin-->

ثم شغل الماكرو

و النتيجه مضمونه ان شاء الله

<{POST_SNAPBACK}>

فعلا يا اخي عاجز عن الشكر ......

وفقك الله وهداك الي مايحبه ويرضاه .

(y)

:pp:

[فلسطيني]

عودة لموضوع التقريب بشرط

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

=FLOOR(A1;0.25)

=CEILING(A2;0.25)