صقر فلسطين

جزاكم الله خيرا و بارك الله فيكم جميعا

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

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

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

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

يا اخواننا الكرام الا يوجد احد يعلم كيفية الغاء اللوحة القماشية التي تظهر في وورد اكس بي كلما اردت استخدام مربع النص الا يوجد امر معين من خلاله يتم الغائها ام ماذا ؟ و لكم جزيل الشكر اخوكم صقر فلسطين

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

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

اخواني الكرام و احبائي في الله اريد عمل مريع تحرير و سرد بيحث اختار مثلا فصل معين من فصول المدرسة من خلال مربعات السرد فأحصل على جميع الطلاب بدرجاتهم في جميع المواد لانني تعلمت منكم عمل مربع سرد و لكن لطالب واحد فقط اختار الطالب فأحصل على جميع درجاتها عن طريق الدالة v look up و مربع التحرير ولكن انا اريد هذه الميزة للفصل بأكمله و بصراحة ارجوا ان تعطوني مثال حي استطيع من خلاله و من خلال القائمة المنسدلة اختيار الفصل و درجات الطلاب و لكم جزيل الشكر و مرفق شيت لبيان الموضوع http://www.geocities.com/ostazmohamed2001/olatermtany.zip

اخواني الكرام و الله لا ادري ماذا اقول لكم بارك الله فيكم جميعا و جعل الجنة مثواكم جزاكم الله خيرا اخي الحبيب معتبر لقد جربت الكود على مادتين و الحمد لله نفعت بارك الله فيك و جزاكم الله خيرا و بارك الله فيك اخي الفدعاني و جزاكم الله خيرا على تعديل الكود الخاص بالعمر بارك الله فيكم جميعا و ادعوا الله الا اكون قد اثقلت عليكم اخوكم في الله محمد البدري

اخواني الكرام اولا جزاكم الله خيرا لمروركم الكريم و محاولة مساعدتي المعادلة التي اريدها باختصار تتلخص في الاتي الطالب الذي يدخل الدور الثاني ( ملاحق ) حاجة من اتنين اما طالب راسب و اما طالب ناجح و داخل المادة تحسين و المطلوب عمل معادلة عن طريق if او غيرها بحيث تحتوي على الاتي ركز معايا شوية الله يكرمك اذا كان الطالب ناجح و دخل تحسين و حصل على درجة اعلى من الدور الاول تكتب له الاعلى و اذا حصل على درجة اقل تكتب له درجة الدور الاول ( يعني يكتب الاعلى بينهما ) و في نفس الوقت الطالب الراسب الذي دخل الدور الثاني اذا حصل على درجة اعلى بشرط ان تكون درجة النجاح تكتب له درجة النجاح الاعلى و لكن اذا حصل على درجة اعلى من الدور الاول و لكنها ليست درجة النجاح فيكتب له الدرجة الاقل يعني اذا حصل على درجة و لكنها درجة رسوب تكتب له الدرجة الاقل سواء اكانت الاقل في الدور الاول او الدور الثاني اخواني المشكلة كلها مع الطالب الراسب ارجوكم اخواني ساعدوني في هذه المشكلة و جزاكم الله خيرا لقد تطوع اخ كريم لي في منتدى الاكسيس و قدم لي عدة حلول جزاه الله كل خير و لكنني اريدها على الاكسيل و مرفق اليكم شيت لبيان الموضوع اخوكم محمد اضغط كليك يمين http://www.geocities.com/ostazmohamed2001/malahek.zip

جزاكم الله خيرا اخي الحبيب ياريت نمشي على العبارة التانية و هي حصول الطالب اذا كان راسب على الدرجة الاقل اما اذا دخلها تحسين تكتب له الاعلى و الموضوع كله على الاكسيل و ليس الاكسيس و مرسل لكم الشيت لبيان الموضوع و نحن في انتظار ردكم الكريم اضغط على هذا الرابط كليك يمين http://www.geocities.com/ostazmohamed2001/malahek.zip

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

اخواني الكرام اولا جزاكم الله خيرا لمروركم الكريم و محاولة مساعدتي المعادلة التي اريدها باختصار تتلخص في الاتي الطالب الذي يدخل الدور الثاني ( ملاحق ) حاجة من اتنين اما طالب راسب و اما طالب ناجح و داخل المادة تحسين و المطلوب عمل معادلة عن طريق if او غيرها بحيث تحتوي على الاتي ركز معايا شوية الله يكرمك اذا كان الطالب ناجح و دخل تحسين و حصل على درجة اعلى من الدور الاول تكتب له الاعلى و اذا حصل على درجة اقل تكتب له درجة الدور الاول ( يعني يكتب الاعلى بينهما ) و في نفس الوقت الطالب الراسب الذي دخل الدور الثاني اذا حصل على درجة اعلى بشرط ان تكون درجة النجاح تكتب له درجة النجاح الاعلى و لكن اذا حصل على درجة اعلى من الدور الاول و لكنها ليست درجة النجاح فيكتب له درجة الدور الاول يعني اذا حصل على درجة و لكنها درجة رسوب تكتب له الدرجة الاقل سواء اكانت الاقل في الدور الاول او الدور الثاني اخواني المشكلة كلها مع الطالب الراسب ارجوكم اخواني ساعدوني في هذه المشكلة و جزاكم الله خيرا

بارك الله فيك استاذ السيد عبد العال و نحن في انتظار هذه المعلومات القيمة و اشكر لك انك مازلت تذكر طلبي هذا ؟ فجزاكم الله خيرا و نحن في الانتظار

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

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

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

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

اولا جزاكم الله خيرا اخي الكريم و ادعوا الله الا اكون قد اثقلت عليكم بداية هل مطلوب نسخ كل الاكواد الموجودة في المشاركة ام الكود الاخير فقط و الذي به كل التعديلات التي ذكرتموها انا نسخت هذا الكود فقط Sub sDrawOval() If TypeName(Selection) <> "Range" Then Exit Sub Dim ssRange As Range Set ssRange = Selection DrawOvals ssRange, 60, 0.2 End Sub Function fDrawOval(ByVal fRange As Range, MinDegree As Single, MarginRatio As Single) As String Application.Volatile DrawOvals fRange, MinDegree, MarginRatio fDrawOval = "" End Function Function DrawOvals(sRange As Range, MinDegree As Single, OvMargRatio As Single) Dim cCell As Range Dim shShape As Shape Dim OvName As String, OvSheet As String On Error GoTo DR_OVAL_Err For Each cCell In sRange OvName = "oval" + cCell.AddressLocal OvSheet = cCell.Worksheet.Name If IsExistShape(OvName, OvSheet) Then If cCell.Value >= MinDegree Or cCell.Formula = "" Then cCell.Worksheet.Shapes(OvName).Delete End If Else If cCell.Value < MinDegree And cCell.Formula <> "" Then MrH = OvMargRatio * cCell.Height MrW = OvMargRatio * cCell.Width OvalW = cCell.Width - MrW OvalH = cCell.Height - MrH Set shShape = cCell.Worksheet.Shapes.AddShape(msoShapeOval, cCell.Left + MrW / 2, cCell.Top + MrH / 2, OvalW, OvalH) With shShape .Name = OvName .Fill.Transparency = 1# .Fill.Visible = msoFalse .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.Weight = 1.25 End With End If End If Next Set cCell = Nothing Exit Function DR_OVAL_Err: MsgBox Err & " : " & Error Err.Clear Resume Next End Function Function IsExistShape(ShapeName As String, SheetName As String) As Boolean Dim shShape As Shape IsExistShape = False For Each shShape In ThisWorkbook.Worksheets(SheetName).Shapes If shShape.Name = ShapeName Then IsExistShape = True Exit Function End If Next shShape End Function و يعتبر اخر كود تم تعديله من قبل حضراتكم ثانيا عندما اقوم بكتابة المعادلة التي ذكرتموها مع تعديل نطاق الخلية ثم بالضغط على مفتاح انتر يخبرني انني ادخلت شيئا خاطئة و لا يتم تنفيذ الامر ثالثا لقد حاولت عدة مرات و لا ادري ما سبب عدم تفعيل المعادلة ثالثا قمت بمحاولة التغير في الكود نفسه بعد تحديد العمود و الدرجات المرادة اكتب في الكود بدلا من 60 الكتب الدرجة المرادة ثم اختار run فيتم عمل الدوائر الحمراء و هكذا تم على كل الاعمدة و الدرجات فهل هذة الخطوات سليمة لانني في كل مرة افتح الكود نفسه و اضع الدرجة المطلوبة لكل مادة و اختار run فيقوم بعمل الدوائر رابعا و اخيرا عند تغير الدرجة المعمول حولها الدائرة لا يتم مسح الدائرة و لا اعرف لماذا ؟ يعني الطالب اللي اقل من 60 يأخذ دائر حمراء و اذا تحولت الى 70 مثلا تظل الدائرة الحمراء كما هي فما الحل ؟ ارجوا الا اكون قد اثقلت على حضراتكم فانت نعم الاخ باذن الله اخوك محمد البدري

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