نجوم المشاركات

اخواني الكرام بعد التوكل على الله ثم الاستشارة وحسب رغبة بعض الاخوة نبداء على بركة الله هذه الدورة شروط الدورة: تقتصر الدورة على شرح الفيجول بيسك للتطبيقات VBA ولا علاقة للمعادلات بهذه الدورة لذا نرجو ان يقتصر السؤال والاستفسار حول الاكواد فقط. عدم إضافة عبارة الشكر (نشكر الجميع على تقدير الجهود) حتى لا يحتاج الموضوع الى تنقيح فإن أعجبك شرح أو رد يمكنك تقييمه من خيار أعجبني شكراً. ان يكون موعد الاستفسارات حول الجزء المطروح للشرح خلال 24 ساعة فقط ويتم الانتقال الى جزء أخر لتعميم الفائدة. سيكون الشرح بشقين كتابي ومرئي. على الاساتذة الذين يشاركون في الشرح اخذ الشرط الثالث بالاعتبار (مشكورين). * سيتم حذف أي مشاركة لا يتم التقيد فيها بالشروط. == تم نقل جميع مشاركات النقاش الى هنا =============================== دروس الدورة ============================= الدرس الاول1 الدرس الاول2 الدرس الثاني الدرس الثالث الدرس الرابع 1 الدرس الرابع 2 الدرس الرابع 3 اساسيات لغة VBA كلغة برمجة (نظري) الفصل الثالث ج1 الفصل الثالث ج2 اسئلة الدورة (الجزء الاول)

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

الحلول التي رايت كانت في الغالب منقوله

السلام عليكم و رحمة الله إضافة لحلول الأخوة أعلاه جرب المعادلة التالية ضع في الخلية A1 رقم 1 او اي رقم تريد بداية التسلسل منه ثم ضع المعادلة التالية و اسحبها للأسفل =IF(COUNTIF($A$1:A1;A1)<5;A1;A1+1)

ابداع ما بعده ابداع سلمت يمينك ابا الحسين كم نتمنى ان نتقن معادلات الصفيف

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

لحل هذا اللغز أخي الكريم ضع في عمود معين تختاره سلسلة الأرقام التي تريد تكرارها ولو إلى مليون (نفترض أنه العمود b وسلسلة الأرقم حتى الرقم 20) ثم ضع في العمود الذي تريد التسلسل بالتكرار فيه هذه المعادلة (نفترض أنه مثلاً العمود A وأول خلية بها أرقام هي a1) =INDEX($B$1:$B$20,ROUNDUP(ROWS(A$1:A1)/5,0)) جرب وأخبرني بالنتيجة