جلال محمد

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

اخى الكريم / عادل حامد السلام عليكم كود رائع وعمل اروع جزاك الله خير ولكن كيف يطبق علي كامل اوراق الملف بنسخ الكود على اوراق الملف ام توجد طريقة اخرى فالكود يعمل على ورقة واحدة تحياتى لك وللجميع

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

اخى الكريم / ابو اسامة السلام عليكم ماكرو الدوائر الحمراء في الملف جميل جدا جزاك الله خير وهو Sub test2() Dim cell As Range Dim cell2 As Range For Each cell In ActiveSheet.UsedRange If cell = "&Ccedil;&aacute;&aacute;&Ucirc;&Eacute; &Ccedil;&aacute;&Uacute;&Ntilde;&Egrave;&iacute;&Eacute;" Then If cell.Offset(3, 0) < 40 Then Set v = ActiveSheet.Shapes.AddShape(msoShapeOval, cell.Offset(3, 0).Left, cell.Offset(3, 0).Top, cell.Offset(3, 0).Width, cell.Offset(3, 0).Height) v.Fill.Visible = msoFalse v.Line.ForeColor.SchemeColor = 8 v.Line.Weight = 1.25 End If End If Next cell End Sub والأمر المسئول عن وضع الدائرة للغة العربية هو If cell = "&Ccedil;&aacute;&aacute;&Ucirc;&Eacute; &Ccedil;&aacute;&Uacute;&Ntilde;&Egrave;&iacute;&Eacute;" Then If cell.Offset(3, 0) < 40 Then كيف اطبقة مثلا على الخلية المجاورة ؟ او ما هو التعديل المطلوب على الماكرو ليعمل على الخلية المجاورة ؟ وشكرا لك

اخى ابن النيل السلام عليكم مرسل لك ملفك الأصلى بعد تعديل نتيجة الطالب لتعطي بيانات صحيحه وايضا مرسل لك ملفى اللذى اعمل به ما عليك الا الدخول علي صفحة ادخال البيانات والضغط على زر تفريغ الحقول ووضع بيانات مدرستك وتجربته ولك تحياتى _________________________________________.rar ____________.rar

اخى / ابن النيل السلام عليكم اليك ما طلبت ولكن راجع الشيت وخصوصا نتيجة الطالب فعند رسوب الطالب في مادة يعطى راسب ومن المفروض ان يعطي له دور ثانى في مادة ( كذا ) اذا لم تستطع اخبرنى ارسل لك الملف اللذى اعمل به في مدرستى تحياتى لك _________________________________________.rar

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

هذا الملف الأول مرة اخرى ____2_.rar

اخى الكريم السلام عليكم هذا الملف الثالث والثانى وان شاء الله شغلين عندى تمام وسوف ارفع الأول مرة اخرى تحياتى لك ___________1_________________________.rar 1111.rar

اخى الكريم السلام عليكم اليك ما طلبت للملفين ان شاء الله يكون هو المطلوب 1111.rar ____2_.rar

اخى الكريم / almaistro فعلا تستحق ان تكون almaistro فكرة جميله وكثيرا مانحتاج لمثل هذة الأفكار جزاك الله كل خير

اخى الكريم / أحمد يعقوب السلام عليكم جزاك الله كل خير وهذا وسام علي صدرى وشكرا لك وان شاء الله نكون عند حسن الظن

اخى الكريم / مزلزل جزاك الله خير وشكرا على مرورك اخى الكريم / aah_aah2008 بارك الله لك وللجميع فالمنتدى عامر بمجموعة عظيمه عطائه وانت واحد منهم شكرا لك وللجميع

اخى الكريم / نزار سليمان عيد شكرا لك لك على مرورك وجزى الجميع خيرا واليكم الكود الخاص باستخراج ملف الفلاش من الاكسل او الورد وشرح طريقة العمل بملف فديو وشكرا لكم Sub ExtractFlash() Dim tmpFileName As String Dim FileNumber As Integer Dim myFileId As Long Dim MyFileLen As Long Dim myIndex As Long Dim swfFileLen As Long Dim i As Long Dim swfArr() As Byte Dim myArr() As Byte tmpFileName = Application.GetOpenFilename("MS Office File (*.doc;*.xls), *.doc;*.xls", , "Open MS Office file") If tmpFileName = "False" Then Exit Sub myFileId = FreeFile Open tmpFileName For Binary As #myFileId MyFileLen = LOF(myFileId) ReDim myArr(MyFileLen - 1) Get myFileId, , myArr() Close myFileId Application.ScreenUpdating = False i = 0 Do While i < MyFileLen If myArr(i) = &H46 Then If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4) ReDim swfArr(swfFileLen - 1) For myIndex = 0 To swfFileLen - 1 swfArr(myIndex) = myArr(i + myIndex) Next myIndex Exit Do Else i = i + 3 End If Else i = i + 1 End If Loop myFileId = FreeFile tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf" Open tmpFileName For Binary As #myFileId Put #myFileId, , swfArr Close myFileId MsgBox "Save the extracted SWF Flash as [ " & tmpFileName & " ]" End Sub ____________.rar

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

اخى الكريم نزار سليمان عيد السلام عليكم جزاك الله كل خير علي جميع اعمالك وعلي بالك الطويل وسعة صدرك فهذة من مميزات هذا المنتدى الرائع به اعضاء عظماء لايبخلون بعلمهم علي احد جعله الله في ميزان حسناتك اخوك / جلال

اخى الفاضل / خبور جزاك الله كل خير مجموعه جميلة فعلا من انسان مبدع مثلك في انتظار المزيد

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

اخى الكريم ( amhateb ) جزاك الله خير على كلماتك الجميلة وهذا ما تعلمته من عباقرة هذا المنتدى الرائع اخى ( ابن النيل ) الأخ الكريم ( omar1 ) قدم حلول جميله ايضا وخصوصا الحل الموجود في العمود ( H ) فاذا كنت تود الرقم بدون علامه عشرية في خانة المجموع قبل جبر الكسر فهذا العمود اثناء العمل من المفترض ان يكون مخفى اما اذا كنت تريد ذلك في خانة جبر الكسر فالحل المقدم من الأخ ( omar1 ) والموجود في العمود ( H ) انسب حل وجزى الجميع كل خير

اخى الكريم السلام عليكم شاهد المرفق لعلة يكون هو المطلوب ان شاء الله _________________________________________.rar

الأخوة الكرام السلام عليكم جزاكم الله كل خير علي ما تقدموه لمساعدة الآخرين وجعله الله في ميزان حسناتكم ولكن لى ملاحظه كود ابو اسامه جميل جدا ويعمل علي الملف كله وليس به مشاكل اما كود الأستاذ احمد يعقوب عند تجربتة بعض الخصائص لاتعمل مثل ( ادراج صف او عمود - وكذلك عملية الفرز لاتعمل ) وللجميع كل التحية والشكر والتقدير

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

مطلوب معادلة او ماكرو لحساب مجموع الكميات المباعة من الطابعة مثلا في تاريخ 1/3/2009 والتي تعتمد على الكميات المباعة داخل SHEET2 في نفس التاريخBook22.rar

اخى الكريم السلام عليكم لقد جربت الملف ولزيادة التأكيد قمت بطباعة ورقه واحده وكانت النتيجه طباعة الشهادتين مرتين تأكد من صلاحية الملف وقم بتنزيله مرة اخرى ربنا معاك

اخى الكريم السلام عليكم قمت بتعديل المطلوب وان شاء الله يعمل الملف معك بشكل جيد ولكن عند طباعة الكل اذا لم يقم الكود بطباعة نسختين من كل شهادة فعليك بطباعة الملف مرة اخرى ولكنة من المفروض ان يطبع الشهادة مرتين جرب وان شاء الله يكون خير _______________.rar