معادلة لإخراج الضريبة

[ابواسماء ابوزيد]

الرجاء المساعدة فى هذا الملف 

ملف.xlsx

[بن علية حاجي]

حسب فهمي للمسألة، جرب الملف المرفق... إذا لم يف المطلوب فالرجاء وضع أمثلة كثيرة مع النتيجة المنتظرة...

ملف.xlsx

[ابواسماء ابوزيد]

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

ملف.xlsx

[بن علية حاجي]

السلام عليكم

جرب الأن الملف المرفق بعد التعديل الجديد على المعادلة حسب الأمثلة التي أوردتها...

بن علية حاجي 

ملف (1).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

[ابواسماء ابوزيد]

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

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

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

[ابواسماء ابوزيد]

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

My_tax.xlsm

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

[سليم حاصبيا]

يمكن  جمعهم اينما نريد

الصورة توضح ذلك

[ابواسماء ابوزيد]

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

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

[سليم حاصبيا]

و هذا ما يفعله الماكرو

انظر الى القيمة  9000 في الجدول (Other Examples)

[ابواسماء ابوزيد]

انا قمت بكتابه 11000 كما اشرت حضرتك طلعت النتيجه 605 فى حين ان النتيجه 165

[سليم حاصبيا]

انت طلبت ( أما اذا زاد عن 11000)

على كل جال تعديل بسيط بالماكرو

مكان  11000> نضع  11000=>

[سليم حاصبيا]

لك ما تريد

My_tax_1.xlsm

[ابواسماء ابوزيد]

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