اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم ورحمة الله وبركاته

لو تتكرم بشرح الكود
وخاصة هذا الجزء

  QQ = ActiveSheet.Cells(5555, 3).End(xlUp).Row + 1

استاذي الكريم احمد يعقوب

عذرا" ان كنت اثقلت عليك بطلبي

ان شرح فقرات الكود يوضح الامور ويزيل العقبات

فلو تتكرم بشرح لباقي الكود ولك الاجر والثواب

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

ولك كل الشكر

السلام عليكم

قام بنشر

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

قام بنشر

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

فكونت ببساطة بعمل نسختين من الشيت الإجمالى

واحد أسميه الناجحين وأحذف منه الصفوف إللى فيها راسبين

والتانى أسميه دور ثانى وبحذف منه الصفوف إللى فيها ناجحين

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

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

ربنا يديكم جميعاً الصحة

ويجازيكم خيراً وفيراً

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information