( موضوع مميز)دالة مركبة لكسر الجبر

[الـعيدروس]

السلام عليكم

سبق وان طرحت موضوع للعملية التالية

اذا كان الرقم 1.49 يكسر الجبر 1 واذا كان الرقم 1.51 يصير 2

فتوصلت الى كود دالة

ارجو ان يفيدكم ومن لدية فكرة يظيفها على الكود

تفضلو

هذا الكود

Function ABU_NSSAR_GABR(pValue As Double) As Double

'===================================================

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

'===================================================

   Dim ali As Long

   Dim adad As Double

   ali = Int(pValue)

   adad = pValue - ali

   If adad < 0.5 Then

	  ABU_NSSAR_GABR = ali

   Else

	  ABU_NSSAR_GABR = ali + 1

   End If

End Function

تحياتي

تم تعديل نوفمبر 5, 2011 بواسطه هشام شلبى
تقريب

[ياسر الحافظ]

تسلم اخي وصديقي ابو نصار

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

دائم الخير والعطاء ان شاء الله

ابو الحارث

[الـعيدروس]

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

مرورك اسعدني تسلم

ان شاء الله نخدم هذا المنتدى بقدر المستطاع

وفقك الله

[الـعيدروس]

اسف لم اوضح استخدامها

هكذا

ABU_NSSAR_GABR = (الخلية التي فيها الرقم)

[خالد أبو مالك]

فكرة جميلة أستاذي

ولو تفضلت علي بكيفية استخدامها في الاكسيل (أين أضع هذا الكود)

ولأني لا أعرف استخدام البرمجة

فتفضل هذا الكود

هل هو صحيح

=IF(A1-FLOOR(A1;1)<0.5;FLOOR(A1;1);FLOOR(A1;1)+1)

باعتبار أن الخلية المطلوبة A1

شكرا لكم

[saad abed]

اخى ابونصار

اخرج بابداعاتك يا غالى

نحن فى انتظار كل جديد

تحياتى

سعد عابد

[عبدالله المجرب]

السلام عليكم

الاستاذ العيدروس

نشاط ملحوظ وعمل مميز وننتظر المزيد

=======

الاخ خالد

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

وبالنسبة لدالتك المرفقه

جرب هذه الدالة

=ROUND(A1;0)

[الـعيدروس]

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

تسلم على هذا المرور العطر والتشجيع

وبالنسبة لدالة ROUND

استخدمتها غير مجدية بعض الخلايا لاتجبر الكسر

عند كثر البيانات

هذا من تجربة