اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر (معدل)

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

الاخوة الاعزاء والاساتذة الافاضل جزاكم الله خيرا

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

لما اضفت له بقية الفصول يظهر خطأ ولايقوم بمسح محتويات الخلايا

ارجو ابداء المساعدة لتلافي الخطأ  بتصحيحه او كود اخر 

بارك الله بكم  وزادكم من فضله خيرا وعلما 

تقبلوا فائق احترامي وتقديري

 

+رصد الدرجات.rar

تم تعديل بواسطه أبو محمد عباس
قام بنشر (معدل)

قبل الإطلاع على الملف هل هناك حماية لأوراق العمل ؟

أو خلايا مدمجة في النطاقات المراد العمل عليها؟

تم تعديل بواسطه YasserKhalil
قام بنشر (معدل)

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

اخي الحبيب ابو البراء بارك الله بك وجزاك الله خيرا

لايوجد دمج في نطاق الخلايا المطلوبة

كذلك لانوجد حماية للخلايا او اوراق العمل

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

ارجو تجربة الكود وستلاحظ الخطا

تقبل فائق الاحترام والتقدير

 

مثال رصد الدرجات.rar

تم تعديل بواسطه أبو محمد عباس
  • أفضل إجابة
قام بنشر

أخي الحبيب وأستاذي أبو محمد

جرب الكود بالشكل التالي

يرجى مراجعة النطاقات عشان أنا تهت

المهم الفكرة

Sub تصفير_الرصد()
    Dim UnionRange As Range
    Application.ScreenUpdating = False
    Set UnionRange = Union(Range("F6:H55,J6:L55,O6:O55,R6:T55,V6:X55,AA6:AA55,AD6:AF55,AH6:AJ55,AM6:AM55,AP6:AR55"), _
                           Range("AT6:AV55,AY6:AY55,BB6:BD55,BF6:BH55,BK6:BK55,BN6:BP55,BR6:BT55,BW6:BW55,BZ6:CB55,CD6:CF55"), _
                           Range("CU6:CU55,CP6:CR55,CL6:CN55,CI6:CI55,F206:H255,J206:L255,O206:O255,R206:T255,V206:X255,AA206:AA255"), _
                           Range("AD206:AF255,AH206:AJ255,AM206:AM255,AP206:AR255,AT206:AV255,AY206:AY255,BB206:BD255,BF206:BH255,BK206:BK255,BN206:BP255"), _
                           Range("BR206:BT255,BW206:BW255,BZ206:CB255,CD206:CF255,CU206:CU255,CP206:CR255,CL206:CN255,CI206:CI255,F406:H455,J406:L455"), _
                           Range("O406:O455,R406:T455,V406:X455,AA406:AA455,AD406:AF455,AH406:AJ455,AM406:AM455,AP406:AR455,AT406:AV455,AY406:AY455"), _
                           Range("BB406:BD455,BF406:BH455,BK406:BK455,BN406:BP455,BR406:BT455,BW406:BW455,BZ406:CB455,CD406:CF455,CU406:CU455,CP406:CR455"), _
                           Range("CL406:CN455,CI406:CI455,F606:H655,J606:L655,O606:O655,R606:T655,V606:X655,AA606:AA655,AD606:AF655,AH606:AJ655"), _
                           Range("AM606:AM655,AP606:AR655,AT606:AV655,AY606:AY655,BB606:BD655,BF606:BH655,BK606:BK655,BN606:BP655"), _
                           Range("BR606:BT655,BW606:BW655,BZ606:CB655,CD606:CF655,CU606:CU655,CP606:CR655,CL606:CN655,CI606:CI655"))
    UnionRange.ClearContents
    Application.ScreenUpdating = True
    Range("F1").Select
End Sub


  • Like 1
قام بنشر

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

الاستاذ الفاضل والاخ الحبيب ياسر خليل ابو البراء  المحترم

جزاك الله خيرا وبارك الله فيك ما شاء الله  كود رائع

زادك الله من فضله علما ومعرفة ونفع بعلمك

تقبل فائق احترامي وتقديري

قام بنشر

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

الاستاذ الفاضل والاخ الحبيب ياسر خليل ابو البراء  المحترم

جزاك الله خيرا وبارك الله فيك ما شاء الله  كود رائع

زادك الله من فضله علما ومعرفة ونفع بعلمك

تقبل فائق احترامي وتقديري

الحمد لله الذي بنعمته تتم الصالحات

هي المشكلة في أن النطاق ٌRange له حد أقصى .. عشان كدا في حالة النطاقات المتعددة يتم استخدام Union لربط النطاقات بهذا الشكل

أرجو أن أكون قد أفدتك ولو بالقليل فمنكم تعلمنا الكثير أستاذي أبو محمد

  • Like 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