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

السلام عليكم جرب المرفق ترقيم.rar

السلام عليكم كل الشكر لصاحب الملف وللفائدة من امكانيات الملف اعيد رفعه اليكم بعد إزالة الحماية عنه لحساب السن اليوم والتاريخ الهجري المقابل وسن التقاعد للمعاش.rar

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

اخي فضل وانا لا اعلم لها سببا ف r هنا تساوي رقم العمود الذي سيتم لصق البيانات فيه بعد التصفية ويمثل هنا العمود i وسيكون هو كود القسم و rr هي الععمود المجاور له ويساوي j ويمثل رقم القسم وبعد كل حلقة تكرارية سيتم زيادة هذا الرقم بمقدار عمودين لكل من r و rr ===== وهذه ايضاً ليس لها سبب معرف (فارجو منك ان ترفق لي هذه الكمية الكبيرة من البيانات للتجربة ولو على الخاص ان كان بها ما يستدعي اخفائها) للعلم جربت الكود على 2900 بيان و35 رقم قسم ولم يحدث اي خلل ===== كنت قد كتبت الكود دون استخدام ال Array واعتمدت على الخلايا في المدى N3:N7 واعتقد انه الان اصبح واضح السبب ويمكن ان تعدلها لتصبح For i = 0 To 4 [H2] = MyArr(i) ==== لا يؤثر وقد جربت الكود على عدد 35 حد للمصفوفة ابتداً من 100 الى 3500 ونفذ الكود في اقل من 4 ثوانٍ (يجب ان تنتبه لعدد الحلقات التكرارية ستصبح 35 حلقة) ==== كما قلت لك جربت الكود (مع تعديل ما يلزم ) ولم يتجاوز عمل الكود ال 4 ثوان ==== ما تم التعامل معه في مكان لصق البيانات بعد التصفية هو renge لكن حدود هذا المدى حسب طلبك تكون متجاورة لذا تم استخدام Cells ==== حياك الله اخي فضل وكما قلت لك طلباتك الجميل فيها ان تبعث فيني روح التحدي

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

العفو منك ومهما قلت من كلمات المدح فلن اوفيك حقك

السلام عليكم اخي الفاضل تم اضافة اكواد الى الفورم يرجى منك التجربة واخباري بالنتيجة وتوضيح طريقة تعبئة باقي الخانات Copy of تجربه (1).zip

ما شاء الله عليك استاذ عبدالله دالة قمة في الروعة ومهمة جداً وعملية بارك الله فيك === استاذنك في تثبيت الموضوع

تم تعديل العنوان وارجو منك اخي الفاضل في المستقبل وضع عنوان يناسب المطلوب

السلام عليكم جرب هذه المعادلة ضعها في H11 =SUM(SUMPRODUCT((D9:D18="مسلم")*(E9:E18="دون المستوى"));SUMPRODUCT((D9:D18="مسلمة")*(E9:E18="دون المستوى"))) وهذه ضعها في H14 =SUM(SUMPRODUCT((D9:D18="مسيحي")*(E9:E18="دون المستوى"));SUMPRODUCT((D9:D18="مسيحية")*(E9:E18="دون المستوى")))

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

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

السلام عليكم ان شاء الله سأحاول عمل المطلوب ولكن اعطني قليل من الوقت

السلام عليكم اخي فضل كلمة حق احب ان اقولها لك ما يعجبني في طلباتك انها تشعرني بالتحدي والرغبة في حلها == اليك هذا اللحن الجميل من اخيك المايسترو (والله وحشني ياسر الحافظ فقد اطلق علي دينمو المنتدى) Sub Abu_Ahmed() Application.ScreenUpdating = False r = 9: rr = 10 MyArr = Array(100, 200, 300, 400, 500) For i = 3 To 7 [H2] = MyArr(i - 3) [B1:C22].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[H1:H2], CopyToRange:=Range(Cells(20, r), Cells(20, rr)), Unique:=True r = r + 2 rr = rr + 2 Next Application.ScreenUpdating = True End Sub تعديل لكود لتحقيق المطلوب.rar

تم دمج الموضوعين

السلام عليكم اخي فضل احبك الله الذي احببتني فيه

السلام عليكم ان شاء الله الامور ميسرة لكن ما اريده منك هو توضيح العمليات الحسابية التي ستوضع في الفورم

السلام عليكم اخي طاهر اسف على التأخر في رفع المرفق فقد كنت نسيه بعد عمله جرب واعلمني بالنتيجة Classeur1.rar

حياك الله اخي فضل وان شاء الله نراك عما قريب من عباقرة الاكواد

السلام عليكم مبدئياً وحسب فهم المطلوب في المرفق ضع المؤشر على اسم الطالب الذي تريد جلب بياناته ثم اضغط الزر book (2).rar

حياك الله اخي سعيد وهذا اقل من واجبنا

السلام عليكم اخي سعيد جرب هذه =IF(DATEDIF(A2;B2;"Y")>=30;"له الحق";"ليس له الحق")

السلام عليكم راجع هذه الروابط http://www.officena.net/ib/index.php?showtopic=39376 http://www.officena.net/ib/index.php?showtopic=34213&st=0&gopid=178962&#entry178962

احسنت اخي الفاضل وهذه هي البداية الى عالم الاكواد

اخي الفاضل ارجو منك توضيح اكثر للمطلوب