الحديثة قام بنشر يونيو 14, 2009 قام بنشر يونيو 14, 2009 (معدل) اساتذتى الاجلاء تعودت منكم على كرم الاخلاق وسرعة الرد وعدم البخل على اى من يطلب منكم المساعدة لذا اعرض عليكم الاتى لدى شيت مدرسة وتم عمل النتيجة علية ولكن اريد منكم شرح نقل الراسب فى صفحة والناجح فى صفحة اخرى علما بان النتيجة كلها راسب وناجح وليست مرتبة ممكن يكون واحد ناجح وتحتة اخر راسب تعودت منكم الكرم لذا اطمع ان يكون شرح ولكم كل حب وتقدير وجعلة الله فى ميزان حسناتكم تم تعديل يونيو 14, 2009 بواسطه الحديثة
أيسم إبراهيم قام بنشر يونيو 14, 2009 قام بنشر يونيو 14, 2009 السلام عليكم أرفق ملف أخي الكريم ليتم العمل عليه إن شاء الله الموضوع سهل
طارق محمود قام بنشر يونيو 15, 2009 قام بنشر يونيو 15, 2009 السلام عليكم أخي الفاضل :أيسم الأخ الكريم : الحديثة مرفق ملف به المطلوب أخي: الحديثة لفهم خطوات العمل إفتح محرر الفيجيوال بيزيك (ALT-F11) ثم صغر شاشته بقدر الإمكان ثم إجعل الماكرو خطوة بخطوة عن طريق F8 فستري نتيجة كل خطوة علي شيت الإكسل كما بالصورة التالية FALL_SUC.rar
سمير نجار قام بنشر يونيو 15, 2009 قام بنشر يونيو 15, 2009 السلام عليكم ورحمة الله وبركاته استاذي الكريم طارق بارك الله فيك وفعلا" طريقة رائعة لفهم الكود الرجاء شرح جزء من الكود لم افهمه وهو ActiveCell.Columns("A:A").EntireColumn.Select كيف يحدد هذا الكود خلايا العمود m ؟؟؟ ليقوم بعد ذلك بمسحها ؟ ولك كل الشكر السلام عليكم
ahmedhafez قام بنشر يونيو 15, 2009 قام بنشر يونيو 15, 2009 اخى الكريم طارق عمل رائع ومبدع ويمكن الاستفادة بة فى اشياء اخرى كثيرة ولاكن اطمع فى مساعدتى ان امكن فى موضوعى فهو يوجد بة شيت بة كود لا استطيع فهمة موجود موضوعى فى النتدى ما هو Xla
ابو اسامة العينبوسي قام بنشر يونيو 15, 2009 قام بنشر يونيو 15, 2009 (معدل) السلام عليكم الاخ الاستاذ طارق هنا حل ارجو ان ينال رضاك On Error GoTo 1 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 4 To Sheets(1).UsedRange.Rows.Count + 1 mysheet = Sheets(1).Cells(i, 12) Sheets(mysheet).Select With ActiveSheet x = Cells(Rows.Count, 3).End(xlUp).Row + 1 For z = 2 To 14 Cells(x, z) = Sheets(1).Cells(i, z) Next z End With Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True 1: Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True FALL_SUC2.rar تم تعديل يونيو 15, 2009 بواسطه ابو اسامة العينبوسي
asneet قام بنشر يونيو 15, 2009 قام بنشر يونيو 15, 2009 مليون شكر لله ثم للمنتدى الرائع ثم للاستاذ العظيم ابو اسامة والاستاذ طارق
الحديثة قام بنشر يونيو 17, 2009 الكاتب قام بنشر يونيو 17, 2009 كل الشكر والتقدير للاساتذة الاجلاء ولكن هناك مشكلة وهى اعتماد الدالة الشرطية if على المجموع ليست كافية لانة ممكن يكون طالب عندة دور ثانى فى اللغة العربية فقط وناجح فى المجموع وهكذا مع باقى المواد فى هذة الحالة تخرجة الدالة ناجح وينقل فى شيت الناجح وهو لة دور ثانى فى مادة او اكثر وناجح فى المجموع
ابو القبطان قام بنشر يونيو 18, 2009 قام بنشر يونيو 18, 2009 للرفع يا اخ طارق الفكرة جميله ماشاء الله وتسلم الايادي ممكن من فضلك تفيدنا فيما لو اردنا أن نزيد ورقة ثالثة ليتم الترحيل لها بشرط ثالث في الشيت الرئيسي وليكن في حالة الامتياز المهم ماذا نغير في الكود ليشمل شيت اخر ياريت ولو شرح موجز ولك صادق دعواتنا أخوك new4a
طارق محمود قام بنشر يونيو 18, 2009 قام بنشر يونيو 18, 2009 السلام عليكم إخواني الأعزاء عذرا إنشغلت عنكم لم أتوقع كل هذه الردود سأرد عليكم بالترتيب أخي: samnaj00 لو رجعت للسطر الذي قبل هذا السطر لوجدت أنه Selection.End(xlToRight).Select أي أخر إختيار كنت فيه إذهب منه لآخر خليه لليمين يتغير فيها الحال والمقصود أنه إذا كنت في خلية فارغة فسيذهب لليمين .End(xlToRight) حتي أول خليه غير فارغة وإن كنت في خلية غير فارغة فسيذهب لليمين حتي آخر خليه غير فارغة أي أن التالية لهذه الأخيرة فارغة وعلي هذا في حالتنا كنا عند الخلية B2 وحيث أن تنسيق الشيت من اليمين لليسار فإن الحركة سيكون لليسار وليس لليمين أي من الخلية B2 إلي C2 ثم .... حتي آخر خلية غير فارغة M2 وهنا ستكون هي الخلية النشطة ActiveCell ويكون الأمر التالي إلغاء العمود الذي به ActiveCell
طارق محمود قام بنشر يونيو 18, 2009 قام بنشر يونيو 18, 2009 اخى أحمد حافظ جزاك الله خيرا حاولت والله في موضوعك قبل ذلك ولكني لم أستطع فتح الفيجيوال بيزيك نظرا لضيق وقتي وحيث أن عليه باسوورد ولم أستطع فكها فهمت من سؤالك أنك فككتها إرسل لي الكود والله المستعان
طارق محمود قام بنشر يونيو 18, 2009 قام بنشر يونيو 18, 2009 السلام عليكم أخي العزيز وأستاذي العظيم / أبو أسامة حل رائع ومبدع كعادتك كل ماتخطه والله ينال رضاي جزاك الله كل خير
طارق محمود قام بنشر يونيو 18, 2009 قام بنشر يونيو 18, 2009 السلام عليكم أخي العزيز asneet أخي العزيز سالم الشيباني بارك الله فيكما وجزاكما كل الخير
طارق محمود قام بنشر يونيو 18, 2009 قام بنشر يونيو 18, 2009 السلام عليكم أخي العزيز الحديثة في أول الموضوع ، طلب منك أخونا العزيز أيسم ترفق ملف بالموضوع وأنت لم ترفق فشكلت لك ملف تقريبي حسب فهمي للموضوع أرجو إرسال ملف به كل طلباتك وشروطك بارك الله فيك وجزاك خيرا
طارق محمود قام بنشر يونيو 18, 2009 قام بنشر يونيو 18, 2009 أخي العزيز new4a لو اردنا أن نزيد ورقة ثالثة :أسهل طريق أن تزيدها أولا يدويا وليكن إسمها EXCELENT لكي يتم ترحيل لهذه الورقة بشرط ثالث في الشيت الرئيسي فلنغير في العمودين L، M في الشيت الرئيسي ليتضمنا حالة الامتياز في النتيجة (3) علي سبيل المثال في نفس الورقة من يزيد عن 560 يكون إمتياز ثم تضيف هذا الجزء التالي للكود قبل نهايته ' New Sheets("Total").Select Selection.AutoFilter Field:=12, Criteria1:="3" Range("B3").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("EXCELENT").Select Range("B2").Select ActiveSheet.Paste Selection.End(xlToRight).Select ActiveCell.Columns("A:A").EntireColumn.Select Selection.Delete Shift:=xlToLeft Cells(1, 1).Select ' End New أنظر المرفق ملحوظة : هذا الرد أيضا يصلح لأخونا : الحديثة حيث يمكن إضافة مايشاء من شروط وورقات العمل FALL_SUC2.rar
سمير نجار قام بنشر يونيو 18, 2009 قام بنشر يونيو 18, 2009 السلام عليكم ورحمة الله وبركاته بارك الله فيك استاذي الكريم طارق شرح اكثر من رائع بانتظار شروحات اخرى للاكواد السلام عليكم
الحديثة قام بنشر يونيو 18, 2009 الكاتب قام بنشر يونيو 18, 2009 عزرا الاخوة والاساتذة الاجلاء المحترمين لاننى طرحت الموضوع وانقطع النت عنى وعندما تم اصلاح النت عدت اليكم اخوة واساتذة محترمين نتعلم فى مدرستكم ونستمد منكم العلم والمشورة لذا ارفق مثال بسيط ليتم التعديل علية وكنت اتمنى من باب علمنى ان يكون شرح للموضوع حتى يستفاد التلاميذ من امثالى على يد الاساتذة من امثالكم وهذا المرفق اخى الكريم 3.rar
سمير نجار قام بنشر يونيو 19, 2009 قام بنشر يونيو 19, 2009 السلام عليكم ورحمة الله وبركاته اختي الحديثة ارفق هذا الملف الذي حاولت فيه لساعات وبعد تجميع للاكواد من هنا وهناك كانت مشاركتي هذه أرجو ان تنال الرضى واكيد يحتاج الى تعديل المشرفين الاكارم انطري الورقة1 في الاعلى السلام عليكم 100.rar
الحديثة قام بنشر يونيو 19, 2009 الكاتب قام بنشر يونيو 19, 2009 الاستاذ الفاضل والاخ الكريم samnaj عمل رائع وجميل جعلة الله فى ميزان حسناتك وكيف يمكن ادراج كامل الشيت يعنى رقم الجلوس والاسم وباقى الدرجات الى شين الناجح والذى لة دور تانى ينقل كامل الشيت الى شيت الدور الثانى ولك كل تقدير
سمير نجار قام بنشر يونيو 20, 2009 قام بنشر يونيو 20, 2009 السلام عليكم ورحمة الله وبركاته أختي الكريمة الحديثة بارك الله فيك انا فقط قمت بجمع شيء من كود الاستاذ طارق وشيء من كود الاستاذ ابو اسامة وما انا إلاتلميذ مبتدئ واذا لم يتدخل الاساتذة الخبراء أكيد سأقع في حرج فالغوث الغوث إليك هذا الملف المرفق لاحظي الصف رقم 6 مخفي بين 5 و 7 وذلك في ثلاث ورقات ( ورقة1 - ناجح - له دور) تحياتي اخوك سمير نجار السلام عليكم 1000.rar
احمدزمان قام بنشر يونيو 20, 2009 قام بنشر يونيو 20, 2009 السلام عليكم و رحمة الله وبركاته بعد الشكر و التقدير للأساتذة الأفاضل - ابو اسامة و طارق و محمود وكذلك الشكر للأخ / samnaj هذه فكرة اخرى للحل اتمنى ان تحوز على رضاكم 3____________________________.rar
سمير نجار قام بنشر يونيو 20, 2009 قام بنشر يونيو 20, 2009 السلام عليكم ورحمة الله وبركاته استاذي الكريم احمد يعفوب بارك الله فيك وحل اكثر من رائع لو تتكرم بشرح الكود وخاصة هذا الجزء QQ = ActiveSheet.Cells(5555, 3).End(xlUp).Row + 1 كل الشكر لك استاذي السلام عليكم
احمدزمان قام بنشر يونيو 20, 2009 قام بنشر يونيو 20, 2009 السلام عليكم ActiveSheet = الورقة الحالية Cells(5555, 3). = الخلية C5555 End(xlUp) = الى الأعلى حتى اول خلية مكتوبة Row + 1 = اختار رقم السطر و ضيف علية 1
هشام شلبى قام بنشر يونيو 20, 2009 قام بنشر يونيو 20, 2009 اخى العالى احمد يعقوب اخى الغالى samnaj00 تمام وزى الفل ولكن لاحظا المسلسل فى ورقتى الناجح والراسب غير مضبوط برجاء التعديل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.