اذهب الي المحتوي
أوفيسنا

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

قام بنشر

أولا كل الشكر والتقدير استاذنا الفاضل بن علية حاجي على هذا العمل الطيب وعلى هذا الاهتمام جزاكم الله خيرا وجعلها فى موازين حضراتكم ولكن هناك تعليق فى الملف المرفق أخيراً ارجوا النظر اليه وجزاكم الله خيرا

ملف.xlsx

قام بنشر

بعد اذن الاح بن علية

يمكن حساب ذلك بواسطة دالة تعريف (UDF)

الدالة المعرفة

Option Explicit
Function Salim_Dariba(Myfact As Double, _
n1 As Double, n2 As Double, _
n3 As Double, n4 As Double) As Double
''''''''''''''''''''''''''''''''''''''''''
Dim How_Many
Select Case Myfact
       Case Is <= 11000
          How_Many = Myfact * n1
       Case Is <= 18500
          How_Many = (11000 * n1) + (Myfact - 11000) * n2
       Case Is <= 26000
         How_Many = (11000 * n1) + (7500 * n2) + (Myfact - 18500) * n3
       Case Is > 26000
         How_Many = _
       (11000 * n1) + (7500 * n2) + (7500 * n3) + (Myfact - 26000) * n4
 End Select

 Salim_Dariba = How_Many
''''''''''''''''''''''''''''''''''''''''
 End Function


الملف مرفق مع مثال

Dariba.xlsm

  • Like 1
قام بنشر

ولا اتقدم بخالص شكرى وتقديرى للعالم الجليل الاستاذ العظيم بن علية حاجي على هذا المجهود العظيم  حمد لله هذا هو المطلوب كما اتقدم بخالص الشكر والتقدير للعالم الجليل الاستاذ سليم حاصيبا اساتذتى الاجلاء لهم منى كل الشكر والتقدير فأنا رأيت ملف الاستاذ والعالم الجليل بن علية حاجى وحقيقه لم ارى ملف الاستاذ الجليل سليم حاصيبا وسوف اطلع عليه زيادة معلومه وللعلم ولو رأيت به شئ لم يوضح لى سوف اعود الاتصال به واشكرة كل الشكر والتقدير ولى معه تجربه والحمد لله قام بحلها فجزاهم الله عنا خيرا الجزاء

مثال آخر فى هذا الملف

Dariba (1).xlsm

  • أفضل إجابة
قام بنشر

تم معالجة الأمر

Option Explicit
Function Salim_Tax(Myfact As Double, _
n1 As Double, n2 As Double, _
n3 As Double, n4 As Double) As Double
''''''''''''''''''''''''''''''''''''''''''
Dim A#, B#, C#, D#, E#, S#
 Select Case True
 Case Myfact < 11000
  A = Myfact * n1
  S = A
 Case Myfact < 18500
      B = 11000 * n2
      C = (Myfact - 11000) * n3
      S = (B + C) * 0.55

  Case Else 'Exact
    B = 11000 * n2
    C = 7500 * n3
    D = (Myfact - 18500) * n4
    S = (B + C + D) * 0.925
  End Select
  Salim_Tax = Round(S, 2)
  

 End Function

 

My_tax.xlsm

  • Like 1
قام بنشر

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

My_tax.xlsm

معزة استاذى فعلا لم ارها كدة تمام جزاكم الله خيرا

قام بنشر

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

اسف استاذ سليم فيه خطأ منى لم اوضحه لحضرتك وكنت اظن ان حضرتك مدركه وهى الشريحه الاولى وهذا التوضيح لى وللأخوة فى المنتدى ولكى تكون الإجابه واحدة ولكن بطرق مختلفة بالمعادلات او بالكود تكون الاجابه واحدة وهى اذا كان الدخل السنوى أقل من 11000 نضرب فى 1.5% أما اذا زاد عن 11000 يدخل على الشريحه الثانيه مباشرة وكما تفضلت حضرتك لكى تكون النتيجه واحدة ولكى لايشتت االاخوة فى المنتدى ونحن نتعلم فى مدرستكم وجزاكم الله خيرا

  • Like 1
قام بنشر

استاذى وقره عينى حفظك الله من كل مكروة وسوء هاهى روح العلماء الأجلاء والله الذى لا اله غيرة قمت بعمل المطلوب كما تفضلت حضرتك ولم تنفذ معى المطلوب وفعلا اخذت الملف على فلاشه وذهبت الى المدرسه لأننى شغال فترة مسائية وفعلا قمت بفتح الملف هناك وجدته نفذ وهنا ايقنت اننى كنت من المفروض اقوم بعملية  قفل وفتح الملف لكى ينفذ المطلوب  ولكن خوفا من أن حضرتك لم ترى ما ارسلته لحضرتك لأننى لست خبرة فى إدارة المنتديات فاستعجلت وطلبت هذا الطلب وفعلا تفضلت حضرتك وارسلت المطلوب فا اكرر اسفى لحضرتك واتقدم بخالص شكرى وتقديرى لحضرتك بارك الله فيك ورفع قدرك وجعلة فى موازين حسناتكم

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information