ناصرالمصرى قام بنشر نوفمبر 14, 2023 مشاركة قام بنشر نوفمبر 14, 2023 السلام عليكم ورحمة الله وبركاته لدى هذه المعادلة التى تعمل بشكل جيد من حيث النتائج لكنى أرغب فى إختصارها بنهج أخر إن وجد أو ربما دالة معرفة تفاصيل المعادلة من داخل المرفق وإذ أشكر حضراتكم لطيب المساعدة وجزاكم الله تعالى عنا خير الجزاء اختصار معادلة.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر نوفمبر 14, 2023 أفضل إجابة مشاركة قام بنشر نوفمبر 14, 2023 السلام عليكم و رحمة الله استخدم هذه الدالة المعرفة عليك بتحديد الصف الاول الذى سوف يتم جمعه Rng و من ثم استخراج النسبة المحددة و السحب لاسفل Function AllPerc(Rng As Range) As Double Dim x As Integer, y x = WorksheetFunction.Sum(Rng.Value) If x >= 8001 Then: y = x * 0.045 '-------------------- ElseIf x >= 7501 Then: y = x * 0.0425 '-------------------- ElseIf x >= 7001 Then: y = x * 0.0375 '-------------------- ElseIf x >= 6001 Then: y = x * 0.03 '-------------------- ElseIf x >= 5501 Then: y = x * 0.025 '-------------------- ElseIf x >= 5001 Then: y = x * 0.0175 '-------------------- ElseIf x >= 4501 Then: y = x * 0.015 '-------------------- ElseIf x >= 4001 Then: y = x * 0.01 '-------------------- ElseIf x >= 3001 Then: y = x * 0.005 '-------------------- Else y = 0 End If AllPerc = y End Function 3 رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر نوفمبر 14, 2023 الكاتب مشاركة قام بنشر نوفمبر 14, 2023 (معدل) شكرا لك أخى الكريم لمشاركتكم المباركة حاولت تطبيق ماتفضلت بذكرة ولكن هناك رسالة خطأ فهل يمكن ارسال ملف بمعرفة سيادتكم **** ربما هناك ما أغفوا عنه تم تعديل نوفمبر 14, 2023 بواسطه ناصرالمصرى خطأ إملائى رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر نوفمبر 14, 2023 مشاركة قام بنشر نوفمبر 14, 2023 (معدل) السلام عليكم و رحمة الله اخى الكريم الدالة المعرفة تعمل عندى بمنتهى الكفاءة و لا ادرى سبببا للخلل المرفق مع المشاركة السابقة اليك الملف ذاته المرسل مع المشاركة الاولى بعد اضافة الدالة المعرفة اختصار معادلة1.xlsm تم تعديل نوفمبر 14, 2023 بواسطه ابراهيم الحداد 3 رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر نوفمبر 15, 2023 الكاتب مشاركة قام بنشر نوفمبر 15, 2023 جزاكم الله تعالى عنا خير الجزاء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.