جلال محمد

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

اخى الكريم new4a جزاك الله كل خير صدقت فيما قلت وفعلا مهما قيل من كلام لايوفيهم حقهم فهذا المنتدى الرائع به جنود مجهولون كثيرين يعملون من اجل غيرهم ليس طلبا للمال او الشهره وا غير ذلك بل عملا خالص لوجه الله تعالي جزاهم عنا كل خير وجعل الله اعمالهم في ميزان حسناتهم

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

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

اخى عادل السلام عليكم جزاك الله كل خير فعلا عمل رائع ومنكم نتعلم فانا احاول ان اجتهد بما تعلمته من هذا المنتدى الرائع جعل الله اعمالكم فى ميزان حسناتكم ان شاء الله اخوك جلال

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

اخى الكريم السلام عليكم انظر المرفق هل هو المطلوب 222_______________.rar

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

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

اخى الكريم / ابن النيل السلام عليكم اولا / اسف على التأخير وذلك بسبب تعديل الشيت ثانيا / مرسل لك الشيت بعد اضافة المادة التطبيقية وزيادة عدد الطلاب اكثر من 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

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