اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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


شاكر لكم زيارت الموضوع تحياتي. (y)
[/align]
رابط هذا التعليق
شارك

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

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

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

20.00 او 20.25 او 20.50 او 20.75

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

رابط هذا التعليق
شارك

اخى الكريم :

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

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

=MROUND(A1;0.25)

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

رابط هذا التعليق
شارك

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

أخي 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

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

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

رابط هذا التعليق
شارك

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

اذهب الى tools

Add Ins

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

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

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

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

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

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

السلام عليكم

رابط هذا التعليق
شارك

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

(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

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

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

رابط هذا التعليق
شارك

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

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)

:rol:

:pp:

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information