تلميذ الاكسل

مشكور اخوي امجد حاولت وكانت الطريقه جيده ولكن ليست الطريقه المطلوبه شاكر لك مجهودك 0

السلام عليكم يرفع لعل احد الاخوه لديه الحل 0

استاذنا الفاضل ( محمد طاهر ) لانملك الا ان ندعي لك بدوام الصحه والعافيه وطول العمر في طاعة الله جزاك الله كل خير وجعل ماتقدمه من مساعده في موازين حسناتك .. تحياتي وشكري وتقديري

نعم استاذنا الفاضل كان التعديل الاخير هو المطلوب لانه عند تعديل خانة الجمع تعمل بقية الخلايا بالشكل المطلوب ..بقي سؤال أخير وهو كيف يمكن تشغيل الماكرو في اكثر من خليه دفعه واحده ؟؟ شاكر لك جهدك وفقك الله وجعله في موازين حسناتك . تحياتي

استاذنا الفاضل / محمد طاهر شاكر لك جهدك وتفضلك بالرد على موضوعي وأرجو ان يتسع صدرك لتكرار السؤال في الحقيقه طبقت الماكرو ولكن لم تكن النتيجه بالشكل المطلوب وأرفق لك مثال مشروح فيه الطريقه الكامله قبل وبعد تطبيق الماكرو .. تحياتي تنزيل المثال الملف مضغوط بالون رار

السلام عليكم الطريقه التي تقصدها الاخت ran تتم عن طريق برامج التشغيل التلقائي وهذا احد هذه البرامج وابسطها تقريباً ( Multimedia Builder 4.8 ) هذا موقع فيه معلومات عن البرنامج وأتمنى ماتكوني صاحبة هذا الموضوع على الرابط اتمنى ماتكوني صاحبة هذا الموضع عموما اتمنى الموضوع يفيد الجميع تحياتي

السلام عليكم ورحمة الله وبركاته يوجد لدي كود في خليه يظهر مجموع الادخالات في الخلايا بعد ضربها ثم جمعها كالتالي : =E4*10+F4*9+G4*8+H4*7 المطلوب هو كيف يمكن جعل مجموع الخليه التي تظهرالمجموع لا يتجاوز العدد ( 90 ) مثلاً واذا تجاوز هذا العدد يتم الخصم من الخلايا السابقه بالترتيب ابتداء من أول خليه ( لانه من الممكن ان تكون الخليه الأولى تحتوي على رقم أقل من الرقم المراد خصمه ) فإذا كانت الخليه الأولى لاتحوي العدد الكافي لخصمه ينتقل للخلية التاليه وهكذا حتى يتم الخصم من المدخلات اتمنى أكون وضحت الفكره 0

جزاك الله خير بصراحه انا صار عندي لبس في فهم الكود الاخير ولكن بعد التعديل اصبح هو المطلوب بشكل ممتاز اشكرك لتجاوبك ومتابعتك تقبل تحياتي وفائق احترامي 0

Function getpercentage(myval) Dim perc As Single If myval >= 0 Then perc = 1.5 * myval / 100 End If If myval > 45000 Then perc = perc + (myval - 45000) * (3 - 1.5) / 100 End If If myval > 60000 Then perc = perc + (myval - 60000) * (4 - 3) / 100 End If If myval > 70000 Then perc = perc + (myval - 70000) * (5 - 4) / 100 End If If myval > 80000 Then perc = perc + (myval - 80000) * (5.5 - 5) / 100 End If If myval > 90000 Then perc = perc + (myval - 90000) * (5.5 - 5) / 100 End If getpercentage = perc End Function شاكر لك سرعة ردك كنت اقصد ان تحسب النسبه بين ( 45000 الى 60000 ) بدون خصم نسبة 1.5% التي تخص المبلغ من 1 الى 45000 بحيث تصبح مستقله كمثال لاني حاولت صياغة الكود فلم افلح وهذا المثال عن طريق دالة IF على ما أعتقد اذا كان المبلغ أكبر من 45000 وأصغر من او يساوي 60000 يخصم 3% 0 وهكذا بين كل مبلغ والذي يليه بدون الحاجه الى الخصم من المبلغ السابق 0 كذلك الجزء الاخير الذي يخص مبلغ 90000 فأعلى اصبح مكرر مع مبلغ 80000 ويعطي نفس الخصم 0 قمت بتعديل الكود السابق ليصبح : Function getpercentage(myval) Dim perc As Single If myval >= 0 Then perc = 1.5 * myval / 100 End If If myval > 45000 Then perc = perc + (myval - 45000) * ( 1.5) / 100 End If If myval > 60000 Then perc = perc + (myval - 60000) * (3-1.5) / 100 End If If myval > 70000 Then perc = perc + (myval - 70000) * (4-3) / 100 End If If myval > 80000 Then perc = perc + (myval - 80000) * (5-4) / 100 End If If myval > 90000 Then perc = perc + (myval - 90000) * (5.5 - 5) / 100 End If getpercentage = perc End Function وكانت النتيجه كما هو مطلوب جزاك الله خيراً وزوجك من الحور العين 0 عدلت بعد ان اضفت ردي ورجعت لتحرير المشاركه 0

نعم بارك الله فيك هذا ماقصدت ولكن النسبة في الزيادة تتعلق بكل شريحه على حده يعني من 45001 الى 60000 تساوي 3% وكل مبلغ له نسبه تخصه بغض النظر عن ماسبقه وهنا لم افهم المقصود من علامة السالب If myval > 80000 Then perc = perc + (myval - 80000) * (5.5 - 5) / 100 End If 5.5% تخصم من 5 هل تقصد النسبه التي قبلها مع انها الى الان تقريباً ناجحه بنسبة 95% لما قصدته في المثال اشكرك لتجوبك 0 واعتذر اذا كان في ردي السابق لبس بحيث اصبح صعب الفهم

الحقيقه اتعبتك معي جزاك الله خيراً ورزقك الجنه انه على ذلك قدير وبالاجابة جدير اسمح لي أن اعطيك طلبي بشكل اوضح لاني في الحقيقه الى الان لم اجد الطريقه التي اقصدها وهذا المثال بالتفصيل : من مبلغ 0 الى 45000 يخصم 1.5% للموظف من 45001 الى مبلغ 60000 يخصم 3% للموظف من 60001 الى 70000 يخصم 4% للموظف من 70001 الى 80000 يخصم 5% للموظف 80001 الى 90000 يخصم 5.5 % للموظف بمعنى الموظف يحصل على مبلغ الخصم كراتب له يعني عند وصول الدخل الى ( 45000 ) يحصل على نسبة ( 1.5 % ) راتب له علماً ان نسبة ( 45000 بعد خصم 1.5 % تساوي = 675 وعند خصم النسبه مابين ( 45001 الى 60000 يخصم 3% ليحصل على 1125 كراتب له وعند الخصم للدخل بين( 60001 الى 70000 يحصل على خصم 4% ويساوي 1575 كراتب له ) هذا ماقصدته 0

استاذي العزيز اوضح اكثر مثلا عندي عامل اتفقت انا وهو عند وصو الدخل لمبلغ 400 مثلا يحصل على مامقداره 1.5 % من مبلغ الدخل وضعت 400 كمثال للمبلغ .............. في الكود السابق ينتج ماتبقى بعد خصم 1.5 % وانا اقصد العكس جربت الطريقه الاخيره ولم يتغير شي 0 اصبح الخصم بعد التعديل الاخير عند ادخال مبلغ 400 يساوي ( 0.02 ) وهي نسبه غير صحيحه لان نسبة 1.5% من المئه تساوي 6وهذا ماقصدته 0

السلام عليكم شاكر لك سعة صدرك وتجاوبك ربما لم اوضح المطلوب بشكل صحيح لانني لم افهم المقصود في الرد الاخير قصدت في سؤالي عندما ادخل مبلغ اقل من 4000 او يساوي نفس المبلغ في خليه احصل على خصم 1.5% في خليه اخرى مجاوره وبالطريقه السابقه لم احصل على المطلوب 0 جربت وضع الكود بالشكل التالي : =B1/100*1.5 ولكن في حالة جمع اكثر من مبلغ بأكثر من نسبة خصم في معادلة واحده هذا ماقصدت 0

الاستاذ / محمد طاهر جزاك الله خير ومعذره لتسرعي في طرح الاسئلة قبل قراءة شروط المشاركه اشكرك لسرعة تجاوبك 0 اضفت الكود كما ذكرت في ردك ولكن النسب طلعت بشكل مغاير لما قصدت عند ادخال مبلغ 400 يظهر مبلغ الخصم 392 اي انه اكبر من الخصم الطبيعي بحيث اصبح يفوق 1.5 % التي قصدت وهي 6 تقريباً ودمتم بخير 0

السلام عليكم ارجو قبولي عضو في منتداكم ولكم كل التقدير .. عندي سؤالين كأول مشاركة لي وتدور حول النسب المئويه وطريقة ادراج الكود في الاكسل 0 السؤال : كيف يمكن انشاء معادلة لاستخراج النسب المئوية مثلاً : من 1- 400 يخصم نسبة 1.5 من المئة من 400 - 1000 يخصم نسبة 2 من المئة 0 وهكذا حتى 50000 وكل جزء يخصم نسبه تتزايد لست او سبع مرات 0 حاولت ومانفع معي كل الطرق اللي اعرفها السؤال الثاني : كيف يمكن اضافة كود vb يمكن تطبيقه في خليه معينه 0 اتمنى ان اجد اجابه وافيه شاكر لكم جهودكم في المنتدى ودمتم بخير 0