قنديل الصياد

اخى العزيز وجدت لك كنترول شيت للمدارس الصناعية رائع يمكن ان تحمله من هنا ولو اردت الشيت الخاص بك ساقوم على تنفيذه كما تريد ولكنى رايت ان الشيت على الرابط افضل بكثير http://www.thanwya.com/vb/showthread.php?t=553037

اخى العزيز اليك الملف مرة اخرى علما بان الملف يعمل عندى بكفاءة اكواد Word.rar

الاخوة الافاضل شكرا جزيلا لمجهوداتكم الرائعة واثراء للموضوع أعجبنى هذا الملف على الانترنت فارفقته عسى ان يستفيد منه الجميع تحياتى لكم برنامج تحويل التاريخ.rar

اخوانى الاحباب اليكم بعض اكواد الاكسس بالرغم انى لا اجيدها كثيرا ولكن اردت ان اعرضها عليكم لعلكم تستفيدون منها حمل ايضا من المرفقات اكواد اكسس.rar

اخى العزيز الملف يفتح بسهولة كاى ملف تريد فتحه ولك شرح فيديو لكيفية فتح الملف

الاخت ام عبد الله جزاكى الله خير الجزاء وشكرا على المعادلة الرائعة ولكن الاخ السائل اورد فى اخر مرة رقم 14.57 تجبر 14.55 ولو قمنا بالتقريب بنفس معادلة حضرتك فستعطينا 14.60 ولهذا لم يتم الرد على الاخ السائل كما أرد ولم نصل للنتيجة الذي يريدها فاوردت المعادلة التالية التى اتت بما يريده السائل =CEILING(A3;0.05) ومرفق صورة من ملف حضرتك بقيمة الرقم بعد التقريب من 14.57 الى 14.60

اليكم اخوانى الاعزاء محفظة اكواد الوورد او حمل من المرفقات اكواد Word.rar

لكم منى ارق واجمل التحيات اساتذتى الكرام

وايضا راجع هذا الرابط هنا للاستاذ / عبد الله المجرب http://www.officena.net/ib/?showtopic=39323

يمكن اخى واستاذى الحبيب الاستاذ / محمود الاسيوطى ان تراجع هذا الرابط عله يفيدك http://et3lmonline.com/2011/06/add-vba-code-to-your-workbook/ وهذا ايضا https://www.youtube.com/playlist?list=PLD51C931E56D8DA96

دورة الحاسب الآلي الماكرو في الاكسل مركز روح الابداع

أساسيات VBA إكسل -- 04 إستخدام العنصر Range / Cells / Offset

بداية الكود Sub Tarheel() السطور التالية خاصة بتعيين متغيرات لتخزين البيانات من نوع أرقام صحيحة Integer Dim i As Integer, x As Integer 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 و y وهى تساوى 9 ( أول صف يتم فيه لصق البيانات المنسوخة فى صفحة ( ناجحون ) وصفحة ( راسبون ) x = 9: y = 9 السطر التالى بداية حلقة تكرارية تبدأ من الصف التاسع الى lr ( اخر صف يحتوى على بيانات ) For i = 9 To lr وتنتهى هذه الحلقة التكرارية بالكلمة next السطر التالى يختبر قيمة الخلية المحتوية على نتيجة الطالب 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 = x + 1 الجزء الباقى من الكود تكرار الخطوات السابقة ولكن مع الراسب السطر التالى خاص باظهار رسالة توضح اكتمال عملية فصل الناجحون والراسبون MsgBox "تم بحمد الله فصل الناجحين والراسبين فى كشوف منفصلة", vbOKOnly, "ترحيل الناجحون والراسبون" السطر التالى يعيد مرة اخرى خاصية اهتزاز الشاشة Application.ScreenUpdating = True نهاية الكود End Sub الشرح لاخيكم / رجب جاويش

ويمكن ايضا ان تتابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=41845

الاخ العزيز مرفق شرح لكود فصل الناجحين والراسبين للاستاذ الفاضل / رجب جاويش عافاه الله وشفاه شرح كود فصل الناجحين والراسبين1.rar

هدية متواضعة اعترافا بجميل العلم الذى تعلمناه منكم ومازلنا نتعلم لاستاذى الحبيب / مجدى يونس مجدى يونس.rar

مرفق محفظة اكواد بور بوينت ارجو ان تنال اعجابكم ويستفيد منها اكبر قدر من الاخوة او حمل من المرفقات اكواد بور بوينت.rar

تحياتى للجميع جزاكم الله خيرا

انظر هذا الملف Book1.rar