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

أبــــو آيــــة

عضو جديد 01
  • Posts

    16
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 Neutral

عن العضو أبــــو آيــــة

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب
  1. أخى الحبيب / ibn_egypt أشكرك شكراً جزيلاً اهتمامك أولاً، ومجهودك الرائع ثانياً... ولكن للأسف هذا التصميم بعيد تماما عن نظام الكنترول شيت المعمول به عندى... ولو شاهدت الملف المرفق سوف تجد أن الشيت الرئيسية (شيت التجميع) تشمل جميع المواد لكل طالب على حدة وبتصميم مختلف عن الذى تفضلت حضرتك به... عموماً لك منى خالص التحية والتقدير وبارك الله فى اهتمامك ومجهودك...
  2. الأستاذ الفاضل / على المصرى بارك الله فيك وجزاك خيرا على اهتمامك بطلبى هذا... لك منى خالص الشكر والتقدير على هذا العمل الممتاز ... فكرة جميلة جدا خاصة إذا اضفنا لها فكرة الأستاذ المحترم/ أبو محمد عباس وبالتالى فقد تحقق المطلوب مبدئياً .... ولكنى أتمنى أن أجد طريقة أخرى تمكننى من إدخال بيانات الطلاب لكل مادة على حدة (مثل ما حضرتك تفضلت عليّ فى هذا العمل الرائع بحق) من خلال شاشة مثل اليوزر فورم تشمل جميع أسماء الطلاب ومادة واحدة فقط يتم من خلالها إدخال الدرجات فتظهر تلقائياَ فى الصفحة الرئيسية التى تشمل جميع المواد وهكذا بالنسبة لكل مادة على أن يتم تسهيل عملية الانتقال بينهم من خلال الربط بينهم...
  3. أعضاء المنتدى الأعزاء بارك الله فيكم جميعاً وفى علمكم ونفع بكم.. أعلم أنى أثقل على أساتذتنا الكبار أصحاب الخبرة الكبيرة والحلول العبقرية.. ولكنى أحتاج للمساعدة فى معرفة كود أو طريقة لإدخال درجات الطلاب فى صفحة لكل مادة على حدة بحيث يتم ادخال درجات المادة 1 لكل الطلاب ثم مادة 2 لكل الطلاب وهكذا ... على أن تظهر جميع الدرجات وجميع المواد فى صفحة أخرى رئيسية تحتوى على جميع المواد والدرجات... (مع مراعاة الأعداد الكبيرة للطلاب) أرجو الرد حتى وإن كان طلبى غير ممكن وجزاكم الله خيراً،،، ومرفق ملف لتوضيح المطلوب... نموذج كنترول شيت.rar
  4. الأستاذ المحترم/ أبو محمد عباس بارك الله فيك وزادك علماً لقد أفدتنى فعلا بإجابتك هذه وإن لم أجد طريقة أخرى أسرع من هذه (خاصة فى حالة التعامل مع أعداد كبيرة من الطلاب) فسوف تكون هذه الطريقة التى سأتبعها... شكراً جزيلاً لك وجزاك الله عنى خير الجزاء.. مع خالص شكرى وتقديرى,,,
  5. أريد طريقة لإدخال درجات الطلاب فى صفحة لكل مادة على حدة أى يتم ادخال درجات المادة 1 لكل الطلاب ثم مادة 2 لكل الطلاب وهكذا ... على أن تظهر جميع الدرجات وجميع المواد فى صفحة أخرى رئيسية... ومرفق ملف لتوضيح المطلوب... وجزاكم الله خيراً،،، نموذج كنترول شيت.rar
  6. أسـتـاذنـا العـزيـز/ يــاســــر جزاك الله خير الجزاء، لقد تم إنـجاز المـطـلوب، على أكمل وجه. لك منى خالص الشكر والتقدير على اهتمامك الكبير ومجهودك الوفير وسعة صدرك معى بخصوص هذه المسألة. وكذلك الشكر موصول للسيدة الفاضلة القديرة/ أم عبدالله.. بارك الله فيكم ونفع بكم وجعل عملكم فى ميزان حسناتكم إن شاء الله.. وسعادتى الحقيقة ليست فى مجرد اجابتكما على سؤالى وافادتى فيه أفضل إفادة، ولكن لأنى وجدت المرجع الذى يمكننى الرجوع إليه فى مثل هذه الأسئلة والاستشارات الفنية بخصوص الإكسيل، وهناك بالفعل العديد من الأسئلة التى سأحتاج مساعدتكم فيها إن اتسع صدركم لذلك ولم يكن فيه أى مضايقة... والسلام عليكم ورحمة الله وبركاته،،،
  7. أستاذنا القدير/ يـــاســـــر بارك الله فيك وجزاك خيرا على هذه النصيحة الغالية التى هى بمثابة درس جديد من مدرس قدير إلى تلميذ مبتدئ.. ولكنى بالفعل قمت بتعديل الكود حسب المطلوب ولكن كلا الكودين قد تعطلا بالرغم من أن الكود الأول كان يعمل قبل التعديل مـرفق لحضرتك الملف بالكودين معا ولو حذفت الكود الثانى ستجد أن الكود الأول سوف يعمل مرة أخرى.. مع خالص شكرى وتقدير لحضرتك،،، نموذج كنترول شيت2.rar
  8. مع العلم بأننى قمت بنسخ نفس الكود وعدلت النطاقات والأرقام ولكن كلا الكودين لم يعملا... وبعد ما قمت بعمل حذف للكود الثانى عاد الكود الأول للعمل من جديد...
  9. أستاذنا العزيز/ يــاســـر أعرف أنى أثقلت عليك ولكنى أرجــو مـن حضرتك عمل إضافة للكود أو إنشاء كود آخر مع تعديل النطاقات والأرقام... بمعنى أنى أريد كود آخر لنطاق آخر ضمن نفس الملف الموجود به الكود السابق ولكن مع تغيير النطاق والأرقام كالتالى {K7:L7 / K17:L17.... وهكذا كما فى الكود السابق ، وتعديل الأرقام لتكون 25 بدلا من 50 ،،، و 20 بدلا من 40} ومرفق لحضرتك نموذج يوضح المطلوب بالضبط نموذج كنترول شيت2.rar
  10. أستاذنا الكبير/ ياسر والله لا أجد الكلمات الكافية التى تعبر عن مدى إعجابى وامتنانى وتقديرى واحترامى لكم. وكل ما استطيع فعله هو أن أدعو لك بظهر الغيب لعلها تكون دعوة مستجابة إن شاء الله (كما علمنا حبيبنا المصطفى صلى الله عليه وسلم) أن يوفقك دائما لكل ما هو خير لك وأن يرزقك خيرى الدنيا والآخرة... وأن يبارك فيك وفى علمك وينفع بك دائما ويجعل كل مجهوداتك فى ميزان حسناتك... مع خالص شكرى وتقديرى لك وللفاضلة/ أم عبدالله على تعبكم واهتمامكم بخصوص هذا الموضوع... وأرجوا إن شاء الله أن يتسع لى صدركم كلما اتيحت لى الفرصة لكى أنهل من بحر علمكم الوافر (بارك الله فيه).... والسلام عليكم ورحمة الله وبركاته،،،
  11. الأستاذة الفاضلة/ أم عبدالله... والأستاذ الفاضل/ ياسر جزاكم الله عنى خير الجزاء وبارك فيكما وزادكم علما ونفع بكم وجعل كل مجهوداتكم فى ميزان حسناتكم وجعل مجهودكم بمثابة العمل الصالح الذى ينفعكما إن شاء الله فى الدنيا والآخر... لقد استفدت من اجاباتكما خير استفادة ولكنى أطمع فى المزيد من علمكما وأخجل من جهلى فى هذا المجال وكثرة السؤال... ولكن استكمالا للسؤال السابق فقد اجريت التعديلات حسب اجابتكما ولكنها لما تفلح معى وإليكم الكود بعد التعديل (أريد معرفة الخطأ فيه): ومرفق ملف للتوضيح Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set UnionRange = Union(Range("E8:U8"), Range("E18:U18"), Range("E28:U28"), Range("E38:U38"), Range("E48:U48"), Range("E65:U65"), Range("E75:U75"), Range("E85:U85"), Range("E95:U95"), Range("E105:U105"), Range("E122:U122"), Range("E132:U132"), Range("E142:U142"), Range("E152:U152"), Range("E162:U162"), Range("E179:U179"), Range("E189:U189"), Range("E199:U199"), Range("E209:U209"), Range("E219:U219"), Range("E236:U236"), Range("E246:U246"), Range("E256:U256"), Range("E266:U266"), Range("E276:U276"), Range("E293:U293"), Range("E303:U303"), Range("E313:U313"), Range("E323:U323"), Range("E333:U333"), Range("E350:U350"), Range("E360:U360"), Range("E370:U370"), Range("E380:U380"), Range("E390:U390"), Range("E407:U407"), Range("E417:U417"), Range("E427:U427"), Range("E437:U437"), Range("E447:U447"), Range("E464:U464"), Range("E474:U474"), Range("E484:U484"), Range("E494:U494"), Range("E504:U504"), Range("E521:U521"), Range("E531:U531"), Range("E541:U541"), Range("E551:U551"), Range("E561:U561")) If Not Intersect(Target, UnionRange) Is Nothing Then If Target.Value >= "40" And Target.Value < "50" Then Cancel = True Target.Value = "50" Else Cancel = False End If End If End Sub نموذج كنترول شيت1.rar
  12. الأخت الفاضلة أم عبدالله/ بارك الله فيكى لقد كان فى ردك إجابة لما هو مطلوب ولكن يبقى جزء صغير وهو تعديل الكود ليشمل عدد من النطاقات كالتالى (E8:U8/E18:U18/E28:U28/E38:U38 وهكذا...) ليشمل أي عدد من النطاقات غير المتجاورة... وجزاكم الله خيرا وزادكم علماً....
  13. بارك الله فيك أخى العزيز وزادك علماً ونفع بك ... واعتذر من سؤالى الذى يبدوا بسيطا ولكن هذا لأنى ليس لدى خبرة فى هذا المجال (الأكواد).. وشكرا على اهتمامك..
  14. بارك الله فى كلا من الأخت الفاضلة/ أم عبدالله والأخ الفاضل/ سليم.. جزاكم الله خيرا على اهتمامكم وردكم وخاصة الفاضلة/ أم عبدالله (العبقرية) بارك الله فيكى وفى علمك ونفع بك دائماً فأنت فعلا اجبتى بالمطلوب كما أريده بالضبط ... ووالله لا أجد الكلام الكافى للتعبير عن شكرى وتقديرى وامتنابى. ولكن يكفى أن أدعو لكى بظهر الغيب لعلها تكون دعوة مجابة بإذن الله ... أن يجعل عملك هذا فى ميزان حسناتك وأن ينفعك وينفع بك ولكن لى طلب آخر لو تفضلى على به يا أختى الكريمة ، وهو توضيح كيفية عمل ذلك لأنى لا اعرف كيف أنفذه على الملف المطلوب (وهو عبارة عن كنترول شيت لرصد درجات الطلاب) أريد شرح لكيفية تنفيذ ذلك العمل.. وجزاكى الله عنا خير الجزاء.....
×
×
  • اضف...

Important Information