يرموك قام بنشر أغسطس 19, 2006 مشاركة قام بنشر أغسطس 19, 2006 (معدل) السلام عليكم ورحمة الله وبركاته ............ أرجوا أن أجد حل والحالة طارئة جدآ .... كيف يمكن إضافة صف أو حذفه من جميع الأوراق ............................... مع العلم بان جميع الأوراق مخفية .... ( أو محمية) ....... تم تعديل أغسطس 19, 2006 بواسطه يرموك رابط هذا التعليق شارك More sharing options...
يرموك قام بنشر أغسطس 21, 2006 الكاتب مشاركة قام بنشر أغسطس 21, 2006 لاحول ولا قوة الا بالله 3 ايام والموضوع ما حد رد عليه وين الشباب رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر أغسطس 21, 2006 مشاركة قام بنشر أغسطس 21, 2006 بسم الله الرحمن الرحيم اخى العزيز ساعد نفسك يا اخى واخبرنا بأسماء الاوارق المراد حزف صفوف منها وحالة كل ورقة من الاخفاء ودرجة الاخفاء وهل هى محمية بكلمة سر ام بدون كلمة سر واذا كانت محمية بكلمة سر يجب ذكرها فلن يستطيع احد عمل كود والمساعدة فى تنفيذ المجهول . تحياتى رابط هذا التعليق شارك More sharing options...
يرموك قام بنشر أغسطس 22, 2006 الكاتب مشاركة قام بنشر أغسطس 22, 2006 هذا هو الملف المرفق ____.zip رابط هذا التعليق شارك More sharing options...
mn20 قام بنشر أغسطس 22, 2006 مشاركة قام بنشر أغسطس 22, 2006 اخي يرموك بعد التحية بامكانك استخدام الكود التالي لحذف صف و الاخر لحذف عمود في نفس الصفحة الحالية للاكسيل لحذف العمود "D" الكود التالي Columns("D:D").Select Selection.Delete Shift:=xlToLeft لحذف الصف الخامس الكود التالي Rows("5:5").Select Selection.Delete Shift:=xlUp و إذا كان عدد الصفحات كبير بامكانك استخدام حلقة For Each ..... Next انا مشغول قليلاً لعلي أجد وقت أتمكن من دمجها مع ملفك و الخوان في هذا المنتدى سباقين للمساعدة رابط هذا التعليق شارك More sharing options...
mn20 قام بنشر أغسطس 23, 2006 مشاركة قام بنشر أغسطس 23, 2006 اخي يرموك سامحك الله الملف الذي ارفقته بعض صفحاته عليها حماية بكلمة مرور ارفق لك محاولتي و أسأل الله ان تقدم لك بعض المساعدة Rased.zip رابط هذا التعليق شارك More sharing options...
يرموك قام بنشر أغسطس 24, 2006 الكاتب مشاركة قام بنشر أغسطس 24, 2006 سلمك الله .............. وأنا أسف لعجلتي في كتابة الموضوع والطلب مني بأرفاق ملف علماً أخي أن البرنامج مكتمل وقمت بالتعديل لكي أضعه هنا وأنا أسف للمرة الثانية والكود بسيط جدآ إي برنامج كسر حماية يطلعه لكن .......... أنت ما قصر ويعطيك الله العافيه أنت والأخوان ... ورمز الحماية هو 111 مع الشكر للجميع من شارك أو أطلع على الموضوع رابط هذا التعليق شارك More sharing options...
mn20 قام بنشر أغسطس 24, 2006 مشاركة قام بنشر أغسطس 24, 2006 حفظك الله اخي يرموك لقد عدلت في الملف وأرفقته ارجو ان يكون المطلوب ،أو يقدم بعض المساعدة لانجاز المطلوب ، و آمل ان تكون ثرثرتي فيه واضحة و تستفيد منها و كل الزملاء كما ارجو منك ياستاذي العزيز تامر ( tameromar ) ان توجهني باقتراحاتك لاني من أكثر اعضاء المنتدى تتبعاً لمواضيعك و المستفيدين منها رفع الله قدرك في الدنيا و اللآخرة .. آمين . ولكم من و لجميع اعضاء المنتدى فائق تحياتي . Rased2.zip رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر أغسطس 24, 2006 مشاركة قام بنشر أغسطس 24, 2006 بسم الله الرحمن الرحيم الاخ mn20 بعد التحية اسعدنى كلامك فشكرا لك لقد شجعتنى على كتابة كود ظريف اخر للاخ يرموك ارجو الاطلاع عليه وهو موجود بملف اخونا وايضا قمت بوضعه فى ملف منفصل للأطلاع عليه وهو بعمل بالضغط على " F11 " بعد اختيار احد الصفوف او اختيار اكثر من صف فيقوم بإلغاء الصف او الصفوف المختارة من جميع الاوراق حتى لو كانت محمية او كانت مخفية الاخ mn20 عند اطلاعك على الكود ستلاحظ الاتى : هو عبارة عن حلقتين منفصلتين الحلقة الاولى : تقوم بثلاثة مهام 1- تحزين حالة كل ورقة من الاخفاء فى مصفوفة لأعادة الوضع الاصلى بعد الالغاء . 2 - اظهار كل الاوراق . 3 - ازالة الحماية عن كل الاوراق . قبل الحلقة الثانية توجد ايضا ثلاث مهام : 1 - تجميع كل الاوراق . 2 - القيام بالالغاء من جميع الاوراق دفعة واحدة لانها مجمعة . 3 - فك تجميع الاوراق . الحلقة الثانية : 1 - تقوم بحماية الاوراق . 2 - ارجاع حالة الاخفاء للاوراق كل حسب حالته الاولى . 3 - اختيار الورقة التى يعمل منها منذ بدأ الالغاء . ارجو ان اكون اسهمت ببعض الفائدة تحياتى لك وللجميع . omar.rar رابط هذا التعليق شارك More sharing options...
mn20 قام بنشر أغسطس 25, 2006 مشاركة قام بنشر أغسطس 25, 2006 استاذي العزيز تامر تأملت ملفك و وجدت به فوائد كثيرة و يسعدني ان اوضح اهم النقاط التي استفدتها من هذا الملف : 1- ربط تنفيذ المكرو بالضغط على ( F11 ) Application.OnKey فائدة لي كبيرة جداً 2- تجميع الاوراق ثم الحذف فعلاً ابداع . 3- الاحتفاظ بحالة الاوراق المخفية و الظاهرة نقطة مهمة و لم اجرب بعد الكود الذي وضعته هل يمسح الصف من الاوراق المخفية 4- الامر ( Application.ScreenUpdating ) جديد علي لاني مستجد بالاكسيل ( برمجة الاوفس ) و لا زلت اتأمل في الكود فعلاً عمل ابداعي من استاذ قدير شكراً جزيلاً اسأل الله ان يغفر ذنبك و ييسر أمرك .... آمين رابط هذا التعليق شارك More sharing options...
يرموك قام بنشر أغسطس 25, 2006 الكاتب مشاركة قام بنشر أغسطس 25, 2006 أشكرك أخواني على مساعدتكم لي في هذا الموضوع وهذا فائدة للجميع وليست لي أنا وحدي بل لجميع رواد المنتدى ........... ولاننسى القائمين على هذا الصرح التعليمي .......................... ولم اتعلم شيء من خارج هذا المنتدى أبدآ كل عملي ومجهودي مبني على المعلومات الموجودة ولم أدرس الأكسل أو الأكسس أو الوورد بل تعلمته هنا ............. أما ماهو فائدة الورقة رقم ((22)) للتوضيح فقط وهي للرصد اليدوي فقط استعملتها لوضع الأسماء فقط .... وذلك لما عانيته في نسخ سابقه من البرنامج عند الحذف يصير الأخير هو الأول فسبب لي مشاكل في كبيرة مما أدى بوضع رصد يدوي مع الرصد الأكتروني لتفادي الخطأ .... وهذي النسخه الحاليه طبعا عملت على جعل كل مادة في صفحة مع رصد كل مادة على حداوصفحة النتيجه محمية لقصد عدم العبث (( بالنسبة أو التقدير أو الترتيب )) مما قد يسبب لدي مشكلة أخرى وهي حذف صف معين ............... مع العلم أن جميع الصفحات الأخرى غير محمية فقط هذه الصفحه............................. وأشكركم للمرة الثانيه على جهودكم معي .... وغفر الله لنا ولكم ولجميع المسلمين ...................... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها