الـعيدروس قام بنشر أكتوبر 26, 2011 قام بنشر أكتوبر 26, 2011 (معدل) السلام عليكم سبق وان طرحت موضوع للعملية التالية اذا كان الرقم 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 بواسطه هشام شلبى تقريب
ياسر الحافظ قام بنشر أكتوبر 26, 2011 قام بنشر أكتوبر 26, 2011 تسلم اخي وصديقي ابو نصار جزاك الله كل الخير دائم الخير والعطاء ان شاء الله ابو الحارث
الـعيدروس قام بنشر أكتوبر 26, 2011 الكاتب قام بنشر أكتوبر 26, 2011 الله يبارك فيك استاذ ياسر الحافظ مرورك اسعدني تسلم ان شاء الله نخدم هذا المنتدى بقدر المستطاع وفقك الله
الـعيدروس قام بنشر أكتوبر 26, 2011 الكاتب قام بنشر أكتوبر 26, 2011 اسف لم اوضح استخدامها هكذا ABU_NSSAR_GABR = (الخلية التي فيها الرقم)
خالد أبو مالك قام بنشر أكتوبر 27, 2011 قام بنشر أكتوبر 27, 2011 فكرة جميلة أستاذي ولو تفضلت علي بكيفية استخدامها في الاكسيل (أين أضع هذا الكود) ولأني لا أعرف استخدام البرمجة فتفضل هذا الكود هل هو صحيح =IF(A1-FLOOR(A1;1)<0.5;FLOOR(A1;1);FLOOR(A1;1)+1) باعتبار أن الخلية المطلوبة A1 شكرا لكم
saad abed قام بنشر أكتوبر 27, 2011 قام بنشر أكتوبر 27, 2011 اخى ابونصار اخرج بابداعاتك يا غالى نحن فى انتظار كل جديد تحياتى سعد عابد
عبدالله المجرب قام بنشر أكتوبر 27, 2011 قام بنشر أكتوبر 27, 2011 السلام عليكم الاستاذ العيدروس نشاط ملحوظ وعمل مميز وننتظر المزيد ======= الاخ خالد بالنسبة لتعريف الدوال المعرفة (قم بنسخ الكود في موديل في محرر الاكواد) بعدها ستجد الدالة اصبحت بين الدوال باسمها المعرفه به وبالنسبة لدالتك المرفقه جرب هذه الدالة =ROUND(A1;0)
الـعيدروس قام بنشر أكتوبر 27, 2011 الكاتب قام بنشر أكتوبر 27, 2011 الاستاذ القدير عبدالله المجرب تسلم على هذا المرور العطر والتشجيع وبالنسبة لدالة ROUND استخدمتها غير مجدية بعض الخلايا لاتجبر الكسر عند كثر البيانات هذا من تجربة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.