ابواسماء ابوزيد قام بنشر ديسمبر 10, 2020 قام بنشر ديسمبر 10, 2020 الرجاء المساعدة فى هذا الملف ملف.xlsx
بن علية حاجي قام بنشر ديسمبر 11, 2020 قام بنشر ديسمبر 11, 2020 حسب فهمي للمسألة، جرب الملف المرفق... إذا لم يف المطلوب فالرجاء وضع أمثلة كثيرة مع النتيجة المنتظرة... ملف.xlsx 2
ابواسماء ابوزيد قام بنشر ديسمبر 11, 2020 الكاتب قام بنشر ديسمبر 11, 2020 أولا كل الشكر والتقدير استاذنا الفاضل بن علية حاجي على هذا العمل الطيب وعلى هذا الاهتمام جزاكم الله خيرا وجعلها فى موازين حضراتكم ولكن هناك تعليق فى الملف المرفق أخيراً ارجوا النظر اليه وجزاكم الله خيرا ملف.xlsx
بن علية حاجي قام بنشر ديسمبر 11, 2020 قام بنشر ديسمبر 11, 2020 السلام عليكم جرب الأن الملف المرفق بعد التعديل الجديد على المعادلة حسب الأمثلة التي أوردتها... بن علية حاجي ملف (1).xlsx 1
سليم حاصبيا قام بنشر ديسمبر 11, 2020 قام بنشر ديسمبر 11, 2020 بعد اذن الاح بن علية يمكن حساب ذلك بواسطة دالة تعريف (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 1
ابواسماء ابوزيد قام بنشر ديسمبر 11, 2020 الكاتب قام بنشر ديسمبر 11, 2020 ولا اتقدم بخالص شكرى وتقديرى للعالم الجليل الاستاذ العظيم بن علية حاجي على هذا المجهود العظيم حمد لله هذا هو المطلوب كما اتقدم بخالص الشكر والتقدير للعالم الجليل الاستاذ سليم حاصيبا اساتذتى الاجلاء لهم منى كل الشكر والتقدير فأنا رأيت ملف الاستاذ والعالم الجليل بن علية حاجى وحقيقه لم ارى ملف الاستاذ الجليل سليم حاصيبا وسوف اطلع عليه زيادة معلومه وللعلم ولو رأيت به شئ لم يوضح لى سوف اعود الاتصال به واشكرة كل الشكر والتقدير ولى معه تجربه والحمد لله قام بحلها فجزاهم الله عنا خيرا الجزاء مثال آخر فى هذا الملف Dariba (1).xlsm
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 12, 2020 أفضل إجابة قام بنشر ديسمبر 12, 2020 تم معالجة الأمر 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 1
ابواسماء ابوزيد قام بنشر ديسمبر 12, 2020 الكاتب قام بنشر ديسمبر 12, 2020 متألق ديما استاذى الفاضل ربنا يحفظك ويبارك فيك طلب آخير لأننى لست خبرة فى الاكسل ممكن تجمعهم فى خلية واحدة اطلع على الملف المرفق وجزاك الله خيرا My_tax.xlsm معزة استاذى فعلا لم ارها كدة تمام جزاكم الله خيرا
سليم حاصبيا قام بنشر ديسمبر 12, 2020 قام بنشر ديسمبر 12, 2020 يمكن جمعهم اينما نريد الصورة توضح ذلك 1
ابواسماء ابوزيد قام بنشر ديسمبر 12, 2020 الكاتب قام بنشر ديسمبر 12, 2020 كل الشكر والتقدير للعالم الجليل الاستاذ سليم حاصبيا على هذا العمل الرائع كما اتقدم بخالص الشكر والتقدير للعالم الجليل ايضا الاستاذ بن علية حاجي على هذا العمل الرائع فى طلبى هذا وكم كنت سعيدا بهذة الحلول القيمة من العلماء الأجلاء والله مهما تكلمت لا افوفيكم حقكم فجزاكم الله عنا خيرا الجزاء اسف استاذ سليم فيه خطأ منى لم اوضحه لحضرتك وكنت اظن ان حضرتك مدركه وهى الشريحه الاولى وهذا التوضيح لى وللأخوة فى المنتدى ولكى تكون الإجابه واحدة ولكن بطرق مختلفة بالمعادلات او بالكود تكون الاجابه واحدة وهى اذا كان الدخل السنوى أقل من 11000 نضرب فى 1.5% أما اذا زاد عن 11000 يدخل على الشريحه الثانيه مباشرة وكما تفضلت حضرتك لكى تكون النتيجه واحدة ولكى لايشتت االاخوة فى المنتدى ونحن نتعلم فى مدرستكم وجزاكم الله خيرا 1
سليم حاصبيا قام بنشر ديسمبر 12, 2020 قام بنشر ديسمبر 12, 2020 و هذا ما يفعله الماكرو انظر الى القيمة 9000 في الجدول (Other Examples) 1
ابواسماء ابوزيد قام بنشر ديسمبر 12, 2020 الكاتب قام بنشر ديسمبر 12, 2020 انا قمت بكتابه 11000 كما اشرت حضرتك طلعت النتيجه 605 فى حين ان النتيجه 165
سليم حاصبيا قام بنشر ديسمبر 12, 2020 قام بنشر ديسمبر 12, 2020 انت طلبت ( أما اذا زاد عن 11000) على كل جال تعديل بسيط بالماكرو مكان 11000> نضع 11000=>
ابواسماء ابوزيد قام بنشر ديسمبر 12, 2020 الكاتب قام بنشر ديسمبر 12, 2020 استاذى وقره عينى حفظك الله من كل مكروة وسوء هاهى روح العلماء الأجلاء والله الذى لا اله غيرة قمت بعمل المطلوب كما تفضلت حضرتك ولم تنفذ معى المطلوب وفعلا اخذت الملف على فلاشه وذهبت الى المدرسه لأننى شغال فترة مسائية وفعلا قمت بفتح الملف هناك وجدته نفذ وهنا ايقنت اننى كنت من المفروض اقوم بعملية قفل وفتح الملف لكى ينفذ المطلوب ولكن خوفا من أن حضرتك لم ترى ما ارسلته لحضرتك لأننى لست خبرة فى إدارة المنتديات فاستعجلت وطلبت هذا الطلب وفعلا تفضلت حضرتك وارسلت المطلوب فا اكرر اسفى لحضرتك واتقدم بخالص شكرى وتقديرى لحضرتك بارك الله فيك ورفع قدرك وجعلة فى موازين حسناتكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.