أبو محمد عباس قام بنشر نوفمبر 22, 2014 قام بنشر نوفمبر 22, 2014 (معدل) السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء والاساتذة الافاضل جزاكم الله خيرا هذ كود تصفير رصد الدرجات في بداية العام الدراسي يقوم بمسح رصد الدرجات حسب الاختيار في الاعمدة المحددة في الكود لما اضفت له بقية الفصول يظهر خطأ ولايقوم بمسح محتويات الخلايا ارجو ابداء المساعدة لتلافي الخطأ بتصحيحه او كود اخر بارك الله بكم وزادكم من فضله خيرا وعلما تقبلوا فائق احترامي وتقديري +رصد الدرجات.rar تم تعديل نوفمبر 22, 2014 بواسطه أبو محمد عباس
ياسر خليل أبو البراء قام بنشر نوفمبر 22, 2014 قام بنشر نوفمبر 22, 2014 (معدل) قبل الإطلاع على الملف هل هناك حماية لأوراق العمل ؟ أو خلايا مدمجة في النطاقات المراد العمل عليها؟ تم تعديل نوفمبر 22, 2014 بواسطه YasserKhalil
أبو محمد عباس قام بنشر نوفمبر 22, 2014 الكاتب قام بنشر نوفمبر 22, 2014 (معدل) السلام عليكم ورحمة الله وبركاته اخي الحبيب ابو البراء بارك الله بك وجزاك الله خيرا لايوجد دمج في نطاق الخلايا المطلوبة كذلك لانوجد حماية للخلايا او اوراق العمل لاحظ استاذي الفاضل ارفقت ملف وفيه بيانات وجربت الكود يقوم بمسح الدرجات في نطاق الفصل الاول (A) ويظهر الخطا عند التكملة لبقية الفصول ارجو تجربة الكود وستلاحظ الخطا تقبل فائق الاحترام والتقدير مثال رصد الدرجات.rar تم تعديل نوفمبر 22, 2014 بواسطه أبو محمد عباس
أفضل إجابة ياسر خليل أبو البراء قام بنشر نوفمبر 22, 2014 أفضل إجابة قام بنشر نوفمبر 22, 2014 أخي الحبيب وأستاذي أبو محمد جرب الكود بالشكل التالي يرجى مراجعة النطاقات عشان أنا تهت المهم الفكرة 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 1
أبو محمد عباس قام بنشر نوفمبر 22, 2014 الكاتب قام بنشر نوفمبر 22, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب ياسر خليل ابو البراء المحترم جزاك الله خيرا وبارك الله فيك ما شاء الله كود رائع زادك الله من فضله علما ومعرفة ونفع بعلمك تقبل فائق احترامي وتقديري
ياسر خليل أبو البراء قام بنشر نوفمبر 22, 2014 قام بنشر نوفمبر 22, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب ياسر خليل ابو البراء المحترم جزاك الله خيرا وبارك الله فيك ما شاء الله كود رائع زادك الله من فضله علما ومعرفة ونفع بعلمك تقبل فائق احترامي وتقديري الحمد لله الذي بنعمته تتم الصالحات هي المشكلة في أن النطاق ٌRange له حد أقصى .. عشان كدا في حالة النطاقات المتعددة يتم استخدام Union لربط النطاقات بهذا الشكل أرجو أن أكون قد أفدتك ولو بالقليل فمنكم تعلمنا الكثير أستاذي أبو محمد 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.