ايمن ابو علام قام بنشر مايو 12, 2012 قام بنشر مايو 12, 2012 (معدل) السلام عليكم جميعا ورحمة الله وبركاته لقد بذلت جهدا كبيار فى البحث بالمواقع والمنتديات عن طريقة لفصل الراسب عن الناجح فى الشيت ولم اتمكن واخيرا توصلت الى رابط المنتدى فقمت بالتسجيل به وتصفحت بعض المنتديات ووجدت ان المنتدى اكثر من رائع وبه استاتذه عباقرة ووجدت تجاوب لا مثيل له ما بين اعضاء المنتدى وهذا ما جعلنى اطمع فى طلبى هذا حيث اريد من اساتذه المنتدى معاونتى فى تعديل الشيت المرفق بحيث يضاف به صفحة للراسبين واخرى للناجح درجة نجاح العربى من 40 بشرط الحصول على 15 درجة فى التقويم الثانى اللغة الإجنبية 30 الدراسات 20 الرياضيات 30 العلوم 20 الفنية 10 الحاسب 10 نشاط 1 10 نشاط 2 10 الدين 20 ولكم كل الشكر والتقديروخاصة الاستاذ رجب جاويش وكل عباقرة المنتدى شيت اعدادى نهائى.rar تم تعديل مايو 15, 2012 بواسطه دغيدى
رجب جاويش قام بنشر مايو 12, 2012 قام بنشر مايو 12, 2012 أخى الكريم أهلا بك بين إخوتك وأحبابك تفضل طلبك واذا أردت أى تعديل لا تتردد فى طلبه شيت اعدادى نهائى.rar
ايمن ابو علام قام بنشر مايو 12, 2012 الكاتب قام بنشر مايو 12, 2012 الاخ الفاضل الاستاذ / رجب جاويش ان كل كلمات الشكر لا تعطيك حقك لهذه السرعة فى الرد ومعاونة الاخرين رغم اننى مشترك بالمنتدى منذ يوم واحد وجعل الله عملك هذا فى ميزان حسناتك ان شاء الله واريد ان اخذ رايك فى انا اريد صفحة للناجحين تكون للدرجة النهائية لكل مادة وكذلك الراسبين هل اقوم بعمل اخفاء للاعمدة غير المطلوبة بحيث يظهر فقط المادة والدرجة الكلية ام انه بامكانك تعديل ذلك بحيث لا يظهر كامل الشيت فقط درجات كل مادة (80 - 60 - 40 - وهكذا ) ولك كل الشكر والاحترام
رجب جاويش قام بنشر مايو 12, 2012 قام بنشر مايو 12, 2012 أخى الفاضل جزاك الله كل خير بالنسبة لاظهار الدرجة الكلية للمادة فانى أفضل فعلا اخفاء الاعمدة الاخرى غير المطلوبة فان ذلك لا يؤثر على عمل كود الترحيل الموجود وقد قمت بهذة الفكرة فى الشيت الذى أعمل عليه فى مدرستى أخوك / رجب جاويش
ايمن ابو علام قام بنشر مايو 13, 2012 الكاتب قام بنشر مايو 13, 2012 شكرا للاستاذ الفاضل على المساعدة والمشورة وسعة الصدر التى تتميز بها ولذلك سوف يكون بيننا ان شاء الله مناقشات كثيرة .لقد قمت بعمل ماكرو للترتيب حسب المجموع واخر للترتيب حسب السرى واخر للترتيب حسب الجلوس وكلها تعمل والحمد لله .حيث افتح ماكرو جديد واعطى له اسم مناسب ثم ابدا التسجيل للماكرو واحدد البيانات ثم فرز حسب العمود المطلوب ثم انهاء التسجيل وعمل مربع نص واربطة بالماكرو .اطلب من اخى الفاضل / الاستاذ رجب جاويش كتابة خطوات عمل الماكرو الخاص بترحيل الناجح والراسب حتى تكون قد علمتنى كيف اصيد سمكة لا ان تعطينى سمكة .وهذا افضل من نسخ بيانات الماكرو .ولك كل الشكر والتقدير اخوك / ايمن ابو علام معلم اول دراسات اجتماعية
عبدالله المجرب قام بنشر مايو 13, 2012 قام بنشر مايو 13, 2012 السلام عليكم الاخ الفاضل ايمن ابو علام نرجو مستقبلاً الاتزام بقواعد المشاركة (عنوان مناسب) ============ كل الشكر للاستاذ رجب جاويش على المساهمة بالحل ============================= تم تعديل العنوان للدلالة
ايمن ابو علام قام بنشر مايو 14, 2012 الكاتب قام بنشر مايو 14, 2012 شكرا للاستاذ عبد الله للتنبيه والمتابعة وطلبك مجاب ان شاء الله فى المشاركات القادمة
رجب جاويش قام بنشر مايو 14, 2012 قام بنشر مايو 14, 2012 (معدل) أخى الفاضل / أيمن أبو علام عذرا للتأخير عليك هذا هو طلبك الخاص بشرح كود فصل الناجحين والراسبين شرح كود فصل الناجحون والراسبون.rar تم تعديل مايو 15, 2012 بواسطه دغيدى
ايمن ابو علام قام بنشر مايو 15, 2012 الكاتب قام بنشر مايو 15, 2012 (معدل) الملف لا يفتح.rar الاخ الفاضل / رجب جاويش اشكرك كل الشكر على التعاون الكبير فى مساعدة اعضاء المنتدى. وقد قمت بتحميل المرفق الخاص بالشرح ولكنه لم يفتح ويطلب نوع الملف فحاولت ان افتح الملف على انه ملف ورد فتظهر الصورة بالمرفقات فقمت بتغير الاوفيس وتسطيبة من جديد ولكن ظهرت نفس الصورة بالمرفق فما الحل . وقمت بتحميل الشرح من جديد ولكن عند فك الضغط ومحاولة فتح الملف تظهر نفس الصورة انا اسف جدا لكثرة طلباتى تم تعديل مايو 15, 2012 بواسطه دغيدى
رجب جاويش قام بنشر مايو 15, 2012 قام بنشر مايو 15, 2012 عذرا أخى الفاضل فهذا الملف مكتوب على word 2010 وهذه نسخة أخرى مناسبة لـ word 2003 شرح كود فصل الناجحين والراسبين1.rar
ايمن ابو علام قام بنشر مايو 15, 2012 الكاتب قام بنشر مايو 15, 2012 الشكر كل الشكر للاستاذ الفاضل / رجب جاويش الذى تعلمت منه الكثير فى الايام الاولى من مشاركتى فى المنتدى والى اللقاء فى مناقشات اخرى ان شاء الله اخوك / ايمن محمد ابو علام
ايمن ابو علام قام بنشر مايو 15, 2012 الكاتب قام بنشر مايو 15, 2012 (معدل) Dim lr As Integer, y As Integer lr = [b10000].End(xlUp).Row Sheets("ناجحون").Range("a9:ho1000").ClearContents Sheets("راسبون").Range("a9:ho1000").ClearContents Application.ScreenUpdating = False x = 9: y = 9 For i = 9 To lr If Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("ناجحون").Range("a" & x).PasteSpecial xlPasteValues Application.CutCopyMode = False x = x + 1 ElseIf Cells(i, 3).Value = "له دور ثان" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("راسبون").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 1 End If Next i MsgBox "تم بحمد الله فصل الناجحين والراسبين فى كشوف منفصلة", vbOKOnly, "ترحيل الناجحون والراسبون" Application.ScreenUpdating = True End Sub ============== الاخ / الفاضل رجب جاويش لقد تم تحميل ملف الشرح والحمد لله وقمت بتفحص وملاحظة هذا الكود واشكرك كثيرا وحاولت ان اتعلم واتدرب على تنفيذ الامر بنفسى فقمت باخذ نسخة من الشيت وحذفت الماكرو الخاص وكان اسمة ( ragab ) وقمت بمسح بيانات صفحة الناجحين وصفحة الراسبين . وبعد ذلك نسخت الماكرو من اختيار ماكرو رجب ثم تحرير ثم نسخ( وكان ذلك طبعا قبل حذف الماكرو ) فاصبح بذلك الشيت ينقصة الامر الخاص بالترحيل .ثم قمت بعمل ماكرو والصقت به الكود طبق الاصل وبمنتهى الدقة وعند التنفيذ تظهر الرسالة التالية فما معنى الكلمة المكتوبة باللون الاحمر . وما الخطأ رغم اننى اتحرى الدقة وارغب فى التعلم. وهل الماكرو (ragab ) تم كتابتة على هيئة كود كامل أم بطريقة تسجيل ماكرو وتقوم بعمل خطوات محدده ويتم تسجيلها على هيئه كود .فلو كانت عن طريق التسجيل لكان الامر سهل عن كتابتى الاكواد. المشكلة تبدو فى السطرlr = [b10000].End(xlUp).Row فما مدلول الجزء الملون بالاحمر ولك كل شكر واحترام اخوك / ايمن ابو علام تم تعديل مايو 15, 2012 بواسطه دغيدى
ايمن ابو علام قام بنشر مايو 15, 2012 الكاتب قام بنشر مايو 15, 2012 وهذه صورة بالملف المرفق للرسالة التى تظهرالصورة التى تظهر.rar
رجب جاويش قام بنشر مايو 15, 2012 قام بنشر مايو 15, 2012 الأخ الفاضل / أيمن أبو علام فى البداية أحييك على الروح الجميلة والرغبة فى التعلم وهذا هو سبب تعلقى بهذا المنتدى الرائع الذى لا يبخل أساتذته علينا بالعلم النافع كل يوم أما عن المشكلة التى ظهرت معك فى الكود فهى ترجع الى عدم وجود السطر الاول والذى يبدا دائما بالكلمة sub يليها اسم الماكرو كما تحب ثم قوسين ( ) فمثلا فى الكود المرفق فى الملف يبدأ بالسطر Sub ragab() وبالتالى أى كود يبدأ بالسطر الاول كما سبق وينتهى بالجملة end sub ولك منى جزيل الشكر
ايمن ابو علام قام بنشر مايو 15, 2012 الكاتب قام بنشر مايو 15, 2012 شكرا لقد توصلت اخيرا الى التنفيذ بفصل المساعده والصبر الغير محدود للاستاذ رجب وكل اساتذه المنتدى واكرر شكرى واعجابى الشديد بالمنتدى
اشرف أبو عرضية قام بنشر مايو 25, 2015 قام بنشر مايو 25, 2015 في حالة الحاجة لترحيل اعمدة معينة فماذا يكون سطر rang بدلا من Range("a" & i).Resize(1, 223).Copy وبالاخص ماذا يعني مصطلح Resize
ياسر خليل أبو البراء قام بنشر مايو 25, 2015 قام بنشر مايو 25, 2015 الأخ الحبيب aborardia أهلا ومرحباً بك في المنتدى ونورت بين إخوانك دعوة لتغيير اسم الظهور للغة العربية اطلع على هذا الرابط لعله يفيدك http://www.officena.net/ib/index.php?showtopic=56933&hl=
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.