عبدالله المجرب

السلام عليكم يمكن ذلك راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=34447 ويمكنك استخدام خاصية البحث في المنتدى عن هذا الموضوع

اولاً : اخي عيد لم افهم خطاء وانما ما بين السطور كان سهل القراءة ثانياً : ما دام الموضوع مخالف للقواعد وتم اغلاقه مع بيان سبب الاغلاق فما جدوى الاستفسار هنا. ثالثاً : كما اوضحت لك هناك جهود يتم بذلها في سبيل تنسيق المنتدى ومثل هذه المخالفات تسبب الارباك فلتمس لنا العذر. وشكراً

استاذي ابو ابراهيم كلامك لم يدع لي مجال للرد سوى اقول طيب الله خاطرك مثل ما طيبت خاطري وشكراً

السلام عليكم تم تعديل في طريقة عرض الجداول ثم تم استخدام الدالة VLOOKUP جرب المرفق ان شاء الله يفي بالمطلوب مثال (1).rar

جرب المرفق ففيه كود الاخ جمال وسيفتح على الورقة3 الفتح على ورقة محددة.rar

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

السلام عليكم اخي الفاضل قم بمسح جميع معادلات الصفيف في الجدول ثم ضع هذا الكود في زر امر Sub Abu_Ahmed() Dim cl As Range Range("B8:D52").ClearContents Set MyRng = Sheets("البيانات").Range("D8:D17") Application.ScreenUpdating = False For Each cl In MyRng If cl.Value = [B6].Value Then LR = Range("B" & Rows.Count).End(xlUp).Row + 1 Cells(LR, 2) = cl.Offset(0, -1) Cells(LR, 3) = cl.Offset(0, 1) Cells(LR, 4) = cl.Offset(0, 2) End If Next End Sub

بصراحة انا تهت في فهم المطلوب فهل اطمع بالميز من التوضيح .

السلام عليكم الموضوع مغلق لمخالفته قواعد المشاركة تمهيداً لحذفه حيث تم فتح هذا الموضوع على الرغم من وجود موضوع مشابه له على هذا الرابط http://www.officena.net/ib/index.php?showtopic=40394

السلام عليكم اخي الفاضل الخلل في اعدادات اللغة (في الكنترول بلن)

السلام عليكم اخي الفاضل ما دام الملف حجمة كبير فاعتقد ان الكود لا يسرع وقت الحفظ والله اعلم

الفيديو الثالث

الفيديو الثاني

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

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

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

الموضوع مخالف لقواعد المشاركة في المنتدى : للاعطلاع عليها يرجى زيارة الرابط التالي http://www.officena.net/Tips/Questions.htm ========================== سيتم تعديل العنوان ارجو الالتزام مستقبلاً بوضع عنوان يناسب المطلوب وشكراً

السلام عليكم ابداعاتك يا استاذ عبدالله جعلت طلابك يكتبون بك شهراً هنئاً لك هذه المحبة الصادقة في قلب تلاميذك

السلام عليكم الموضوع قديم سيتم نقله الى الارشيف

السلام عليكم اخي سعيد جرب هذه المعادلة =IF(B2<=0;C2-D2;IF(B2>0;(C2-D2)+B2*10%))

وعليكم السلام استاذي الفاضل ابو ابراهيم ايه الكلام دا فما عندي هو 1/ بعض اس 100 ما عندكم حفظك الله على هذا الدعم المتواصل ابواحمد

السلام عليكم هذه دالة معرفة ان شاء الله تفي بالغرض Function Abu_A(Cl As Variant) Select Case Cl Case 0 To 0.5: Abu_A = 50 * 1.1 Case Is > 0.5: ww = (Cl - 0.5) / 0.5 - Int((Cl - 0.5) / 0.5) If ww > 0 Then ww = 1 Abu_A = (50 + (13 * Int((Cl - 0.5) / 0.5)) + (ww * 13)) * 1.1 Case Is = "": Abu_A = "" End Select End Function انسخ هذا الكود وضعه في موديول جديد ثم في ورقة العمل قم بادراج دالة جديدة في الخانة التي تريد من مربع الادراج اختر دالة معرفة ستجد هذا الاسم Abu_A او انسخ هذه المعادلة =Abu_A(G3) ستقوم هذه الدالة بعمل الحساب حسب ما قمت انت بايضاحه في المشاركة السابقة

السلام عليكم اخي الكريم طاهر اولاً كما قال الاستاذ احمد زمان بخصوص مخالفة القواعد (والاولى كنت تبعث لي رسالة خاصة تنبهني بالموضوع) ثانياً : قد شاهدت المشاركة هذه بالامس وكنت ناوي دمجها مع المشاركة السابقة والتنبيه الى ان الخطاء في كود الفورم هو نفس ما تم مناقشته ستبقاً كما بين اخونا الفاضل الزير ولكن بسبب انشغالي في امور خاصة وكذلك تسجيل شرح للدورة لم اتمكن حتى من التعليق على المشاركة فارجو منك المعذرة. ثالثاً: لو لاحظت اخي طاهر بان المرفق لم تكن الفورم التي به هي نفس الصورة المرفقة (وهذا نفس ملاحظة الزير) وهذا يعني ان يتم تعديل الفورم من الاول واضافة ازرار وتعديلات جذرية وما فهمته انا من طلبك في البداية ان الفورم جاهز لكن حدث فيه بعض الاخطاء بحاجة الى الحل. رابعاً : ساترك لك التعليق على هذه المشاركة الخاصة بك ============================== عموماً ارجو منك توضيح المطلوب بشكل اشمل ومن جهتي ساحاول (دون وعد بالتنفيذ) وان سبقت اخي الزير كان بها والا ننتظر ابداعاته ومساهماته مع الشكر و التقدير على ملاحظاته. وشكراً

شرح الفصل السادس - حلقات التكرار (الجزء الاول)

اخي الفاضل في الخلية G7 مثلا مكتوب 0.8 وهذا يعني 800 جرام اي ان المبلغ يجب ان يكون 25 ريال على 500 ريال و 3.9 ريال على 300 جرام الاكثر من 500 والمجموع 28.9 ريال ولكن في ملفك 69.3 ريال فكيف حسبت