الصـقر

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

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

اخى وحبيبى الجموعى رائع رائع رائع زادك الله من علمه تقبل تحياتى

اخى الكريم ارفق ملف حتى يتضح لنا طلبك وان شاء الله مش هنقصر معك تقبل تحياتى

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

اخى وحبيبى الجموعى أسعدنى مرورك الكريم جزيت خيرا على دعائك ولك بمثل ما دعوة به تقبل تحياتى

أخى الكريم راجع الرابط التالى ربما يفيدك http://www.officena.net/ib/index.php?showtopic=58444&hl= تقبل تحياتى

اخى الحبيب استاذى محمد الريفى هذا ما تعلمته منكم وما العبد الا قطره فى بحر علمكم شكرا على كلماتك الطيبه ومرورك العطر تقبل تحياتى

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

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

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

اخى محمد لطفى شكرا على مرورك العطر وتقبل تحياتى

الاخوة الكرام يرجى متابعه الرابط التالى http://www.officena.net/ib/index.php?showtopic=58471&hl= شرح الحلقه التكرارية For next والتى يتم استعمالها فى كيفية منع المستخدم من تكرار سند القبض عند الترحيل تقبلوا تحياتى

بسم الله الرحمن الرحيم الاخوة الاعزاء أقدم لكم اليوم شرح مبسط عن الحلقه التكرارية For next انا هبدأ على طول بالامثله العمليه والتطبيقية حتى يتضح لنا ما معنى الحلقه وفيما تستخدم مثال 1 عدد عشرة صناديق ( كنت عامل رسم عشر صناديق لكن للاسف عند الحفظ طلب تقليل الوجوه التعبيريه) وهو ايه الصناديق دى ؟؟ / هقولك الصناديق دى كنوز وهدايا فيهم صندوق منهم فى ساعه هدية لحبيبى ياسر خليل انا بصراحه مش عارف ايه المناسبة بس اهو هدية وخلاص حبيبنا برضوا ولازم نكرمه معلش يا عم ياسر هنتعب واحد دلوقتى علشان يروح يجيب لك الساعه انتظر شوية وهتيجى لك الساعه لحد عندك انت غالى برضوا ولا ايه صحيح دا واحد صاحبنا قاعد مبسوط لانه بيسمع الماتش و الاهلى جاب جون امه هتنادم عليه ( مش هتنادى عليه ) هتنادم يعنى هيندم على اليوم اللى اتولد فيه طب ليه؟ لان أمه هتقوله روح للصناديق اللى فوق افتح صندوق صندوق وتعالى هههههههه أول شئ هتلاقى وشه عامل كدا زى ابولهب المهم صحبنا ده هيروح ياعينى للصناديق ويفتح العشرصناديق صندوق صندوق ويرجع طبعا لما يرجع هيعمل لامه كدا ويزعق انا عايز افهم انتى قلتى روح ليه ايه الفايده انى افتح الصناديق بس ضيعتى عليا الماتش لو عايزين نطبق الكلام الحلو ده بس بلغه Vba بتاعة عمنا بيل جيتس Sub hossam() For i = 1 To 10 Next End Sub هنا اول سطر الاعلان عن بداية الكود / السطر الثانى عملنا حلقه تكرارية For واسمها i اللى هو بالمثال فوق الصناديق وممكن تسميه اى حرف اخر كيفما يحلو لك وقلنا ان الصناديق تبدأ من اول صندوق الى اخر صندوق وهو 10 / السطر الثالث هو next وهى تعنى التالى صاحبنا هيروح لاول صندوق ويفتحه وبعدها يروح للصندوق الثانى ويفتحه يخلص وبعدها يروح للصندوق الثالث ويفتحه وهكذا والسطر الرابع يعنى نهاية الكود طبعا الكود ده ما فى منه اى فايده ليه يا عم لانك مقلتش له مهمه ينفذها انت بس قلتله لف على الصناديق زى لف التراك كدا ********************************************************************************************* مثال 2 الحاجه وابنها اللى فى المثال الاول هتقوله يابنى روح للصناديق وهات الساعه لعمك ياسر / افتح صندوق صندوق لو لقيت صندوق منهم فى ساعه مكتوب عليها هدية لعمك ياسر هتها وتعالى قالها وافرض لقيت الساعه باول صندوق ارجع ومكملش ههههههههههههههههه ولد زكى امه قالت له لا يا حبيبى افتح برضوا كل الصناديق افتحهم كلهم حتى لو لقيت الساعه فى اول صندوق طبعا صاحبنا هيعمل كدا الغيظ يا عينى هيطق من عينيه لو حبينا بقى نعمل الكلام ده بالبرمجه بالكود يعنى نعمل ايه Sub hossam() For i = 1 To 10 If "لو اى صندوق جواه ساعه " Then "طلع الساعه من الصندوق " End If Next End Sub الجديد هنا اننا استخدمنا قاعدة If يعنى شرط للمأمورية اللى هيقوم بها صاحبنا مش هيروح يفتح فى الصناديق بس ويرجع زى المره الاولى *********************************************************************************************** مثال 3 صاحبنا اللى فوق ده امه قررت انها تريحه وقالت له افتحى الصناديق يا حبيبى ولو لقيت صندوق فى الساعه هاتها وارجع ومتكملش فتح الباقى صاحبنا قال طيب وراح بدأ يفتح فى الصناديق اول صندوق ملقاش الثانى ملقاش الثالث ملقاش الرابع لقى الساعه جابه ورجع وقال يا فكيك مش هكمل فتح الباقى علشان نعمل الكلام ده بالكود هيكون كدا نفس الكود السابق بس اضافه حاجه صغيره جدا Sub hossam() For i = 1 To 10 If "لو اى صندوق جواه ساعه " Then "طلع الساعه من الصندوق " Exit For End If Next End Sub يعنى عندما يتحقق الشرط ارجع واخرج من الحلقه اللى هى For ومتكملش ******************************************************************************************** مثال 4 عايزين نطبق الكلام الحلو ده بس على امثله بالاكسيل فى الامثله السابقه هنستبدل الصناديق بالخلايا من A1:A10 وهيكون الساعه موجوده فى محتوى الخلايا معانا صوره فيها بيانات من الخلية A1 : A 10 لما نطبق الكود دا Sub hossam() For i = 1 To 10 If Cells(i, "A") = "ساعه" Then Cells(i, "B") = "مبروك" End If Next End Sub حته على الهامش cells تكتب هكذا ( العمود , الصف ) cells فى الكود اعلاه الصف هو i والعمود هو A وتم وضعه بين علامتى تنصيص "A" لما نطبق الكود هنلاقى النتيجة كما هو موضح بالصورة ********************************************************************* مثال 5 لو عايزين الكود لما يلاقى ساعه يطلع وميكملش هنضيف زى ما كلنا Exit For ويكون الكود كدا Sub hossam() For i = 1 To 10 If Cells(i, "A") = "ساعه" Then Cells(i, "B") = "مبروك" Exit For End If Next End Sub وهتلاقى النتيجة كما هو بالصورة مبين ********************************************************************************************* مثال 6 من الوضح ان الامثله السابقه الحلقه تبدا من 1 الى 10 أى معلوم بدايتها ونهايتها طيب لو عندى حلقه معلوم بدايتها وغير معلوم نهايتها يعنى العمود A البيانات فيه متغيره وفى ازدياد فى هذه الحاله نستخدم تعريف اخر خليه بها بيانات فى العمود كالتالى nn = Cells(Rows.Count, "A").End(xlUp).Row nn هنا هو تعريف اخر خليه بها بيانات ويتم استخدمها بالكود بعد ذالك بدل من كتابة Cells(Rows.Count, "A").End(xlUp).Row كل مره ( طبعا يمكن تغيرها الى اى حروف انت تحبها وبكدا هيكون الحلقه كالتالى For i = 1 To nn والكود كامل هيكون كدا Sub hossam() nn = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To nn If Cells(i, "A") = "ساعه" Then Cells(i, "B") = "مبروك" Exit For End If Next End Sub ************************************************************************ مثال 7 كل الشغل اللى معمول ده على ان الحلقه بتعمل على الصفوف طيب انا عايزها تعمل على الاعمده يعنى الشكل زى الصورة دى بفرض انه غير معلوم اخر خليه بها بيانات فى الصف 1 هنعمل تعريف لها كالتالى nn = Cells(1, Columns.Count).End(xlToLeft).Column هو نفس تعريف اخر صف كما قلنا سابقا ولكن بختلاف ترتيب Cells عايزكم انتم تلاحظو الفرق الكود هيكون كالتالى Sub hossam() nn = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To nn If Cells(1, i) = "ساعه" Then Cells(2, i) = "مبروك" Exit For End If Next End Sub الاختلاف هنا عن الكود بالمثال هو تعريف nn كما وضحنا سابقا وايضا فى ( Cells(1, i هنا cells الصف ثابت وهو 1 والعمود هو المتغيير i ولو ضغطنا على الزر سيكون نتيجة الكود كالتالى كما هو مبين بالصورة ************************************************************************************************* مثال 8 الصور الذى تم الشرح عليها كلها فى الورقه 1 من الملف يعنى البيانات ونتيجة البيانات كانت بنفس الورقة انا عايز اروح للورقه 2 واعمل زر واعيين عليه الماكرو بس حلقه For هتبحث عن البيانات بالورقه 1 هنعمل ايه امر بسيط جدا هنستخدم With وطبعا هنقفلها ب End With Sub hossam() With Sheet1 nn = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To nn If .Cells(1, i) = "ساعه" Then [A1] = "مبروك" Exit For End If Next End With End Sub طبعا هو نفس الكود اللى بالمثال 7 والجديد هو استخدمنا With Sheet1 فى بداية الكود وقفلناه قبل نهاية الكود ب End With وقلنا لو تحقق الشرط خلى الخليه A1 = "مبروك" كما هو موضح بالصورتين صورة الورقه 1 اللى بها البيانات صورة الورقه 2 عند الضغط على الزر وظهور مبروك بالخلية A1 ********************************************************************************************** تعبت الولد معك يا عم ياسر المهم الحمد لله الولد نجح بالمهمه وجاب لك الساعه ودلوقتى بيتفرج على الماتش والاهلى جاب جون تانى والفرحه مش سيعاه *************************************************************************** أتمنى يارب أكون وفقت بالشرح ويكون سهل للاخوة الجدد المهتمين بالتعلم VBA يمكنكم شرح افضل من هذا على الرابط من اعمال الاخ الحبيب ياسرخليل حلقات افتح الباب يا عبدالتواب http://www.officena.net/ib/index.php?showtopic=56941= وايضا يمكنكم متابعه الرابط التالى للاخ الحبيب محمود الشريف http://www.officena.net/ib/index.php?showtopic=56000&hl= كما يوجد ايضا العديد من الشروحات التى تتناول الحلقه التكرارية For next يمكنكم البحث عنها داخل المنتدى تقبلوا تحياتى واتمنى لك التوفيق

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

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

استاذى الفاضل جمال عبدالسميع المعادله رائعه وفكرتها اروع ولكن اسمح لى انا فهمت سؤال الاخ احمد بدر على التالى 1- الشريحه الاولى من 0 الى 100000 يتم حساب العموله *2% ( مثال لو حقق المندوب مبيعات مثلا 90000 يتم الضرب فى 2% 2- الشريحه الثانية من 100001 الى 250000 يتم احتساب العموله *2.5% ( مثال لو حقق المندوب مبيعات مثلا 180000 يتم ضرب 100000*2% لانها تقع بالشريحه الاولى +80000*2.5% لانها تقع بالشريحه الثانية 3- الشريحه الثالثه من 250000 فما فوق يتم احتساب العموله *3% مثال لو حقق المندوب مبيعات مثلا 300000 وهو المثال المذكور فى المشاركه السابقه يتم ضرب 100000*2% لانها تقع بالشريحه الاولى +150000*2.5% لانها تقع بالشريحه الثانية +50000*3% لانها تقع فى الشريحه الثالثه وعلى فكره ده اللى انا فهمته من سؤال السائل ودا النظام اللى متبع بالشركة التى اعمل بها ففى هذه الحاله المعادله الثانية والثالثه لا تفى بالغرض ويجب ادخال IF معها لكن الحمد لله السائل عمل لايك على مشاركة حضرتك افضل اجابه اذن هذا هو مبتغاه والخطا عندى لم افهم مقصده من السؤال تقبلوا تحياتى

استاذى الحبيب جمال عبدالسميع بفرض عندى مندوب حقق مبيعات 300000 الف معادله C6 =MIN(100000,D5)*2% هيكون الناتج 100000*2% هيكون الناتج 2000 ريال تمام معادله C7 =MIN(MAX(0,D5-100000),250000)*2.5% هيكون ناتج المعادله 200000 لما ينضرب فى 2.5% هيكون 5000 ريال اعتقد دا غلط لانو لازم يضرب 150000 فقط فى 2.5% والباقى من 200000 وهو 50000 يتم ضرب فى 3% اللى هو الجزء اللى يخص المعادله الاخيرة قد يكون انا فاهم غلط يرجى التوضيح تقبل تحياتى

اخى الكريم انا جربت الملف حاول سجل ارقام وشوف النتيجة هتلاقى هى المطلوبه

اخى الكريم شوف الفيديو المرفق هو فيديو لاستاذى القدير أ/ محمود حموده كما اتمنى ان يكون بيننا بالمنتدى امنية ان شاء الله تتحقق اتمنى انه يفيدك تقبل تحياتى

بعد اذن استاذى سليم اخى الكريم جرب المرفق هل به طلبك تقبل تحياتى 111.zip

أخى الكريم جرب المرفق هل هو المطلوب تقبل تحياتى ملخص حساب الموزع امين الرحمن.zip

اخى الجموعى جرب المرفق هل به طلبك هو من كنوز المنتدى اللى بعتز بها تقبل تحياتى باركود مع التشفير واعادة فك التشفير.zip

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

دائم فنان يا جموعى يا كبير حلول فنية رائعه تقبل تحياتى