اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

رجب جاويش

المشرفين السابقين
  • Posts

    3492
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    41

كل منشورات العضو رجب جاويش

  1. الأخت : mariammohamed لقد قمت بعمل جدول الحاسب الالى بالمعادلات كما طلبتى أرجو أن يكون هو المطلوب جدول حاسب.rar
  2. الاستاذ الفاضل / بن علية جزاك الله خيرا
  3. الف مبروك للاخ والحبيب / أحمد البحيرى على الترقية الجميلة من المنتدى الجميل وان شاء الله من نجاح لنجاح دايما بإذن الله أخوك / رجب جاويش
  4. بعد اذن الأستاذ / طارق تم اضافة الجزء الخاص بمسح بيانات الشيتات المرحل اليها أولا قبل الترحيل لمنع تكرار البيانات Sub shift_School() Dim x As Integer LR = [B10000].End(xlUp).Row On Error Resume Next Sheet2.Range("a6:e10000").ClearContents Sheet3.Range("a6:e10000").ClearContents Sheet4.Range("a6:e10000").ClearContents For r = 6 To LR yy = Cells(r, "C").Value x = WorksheetFunction.Search("ÈÊÏÇ", yy) If x = 0 Then GoTo 10 s = Sheet2.[B10000].End(xlUp).Row + 1 Range("A" & r & ":E" & r).Copy (Sheet2.Cells(s, "A")) x = 0 GoTo 30 10 x = WorksheetFunction.Search("ÚÏÇÏ", yy) If x = 0 Then GoTo 20 s = Sheet3.[B10000].End(xlUp).Row + 1 Range("A" & r & ":E" & r).Copy (Sheet3.Cells(s, "A")) x = 0 GoTo 30 20 x = WorksheetFunction.Search("ËÇäæí", yy) If x = 0 Then GoTo 30 s = Sheet4.[B10000].End(xlUp).Row + 1 Range("A" & r & ":E" & r).Copy (Sheet4.Cells(s, "A")) x = 0 30 Next r End Sub كشف مساعدات2.rar
  5. الأستاذ الفاضل / طارق تسلم ايديك على هذا الكود الجميل ولكن برجاء اضافة تعديل لمنع تكرار البيانات المرحلة عند الضغط على زر الترحيل أكثر من مره
  6. الأخ / فضل 1 من حظك الجميل وجود ابداعين من استاذين كبيرين أ / يحيى حسين أ / عبد الله المجرب وبالنسبة لمعادلة الاستاذ / يحيى تعمل تمام ومرفق الملف الخاص بتوضيح ذلك بعد سحبت الدالة الى الخلايا المطلوبة واليك المرفق اكبر ثلاث مجاميع1.rar
  7. بسم الله ما شاء الله أحسنت وجزاك الله كل خير
  8. الأخ الفاضل / الخالدى شكرا لك وجزاكم الله خيرا
  9. بعد اذن الأستاذ الفاضل / محمد يحياوى ممكن تجربة هذا الكود وهو يتفادى أن تكون الخليه a1 فارغة باظهار رسالة للمستخدم أن الخلية a1 فارغة كما يمكن تسمية الصفحة اكثر من مرة بتغير الاسم الموجود فى الخلية a1 الكود Sub rename() If [a1] = "" Then MsgBox " ÝÇÑÛÉ a1 ÇáÎáíÉ " Exit Sub End If ActiveSheet.Name = [a1] End Sub الملف المرفق للتوضيح تغيير1.rar
  10. تم ذلك من خلال التنسيق الشرطى للخلايا وليس الكود
  11. الاخوة الزملاء / مرفق ملف أرجو أن يكون به الحل المطلوب حيث يمكنك اختيار اظهار التنسيقات او اخفاءها من الخلية m1 المرفق اظهار او اخفاء التنسيقات.rar
  12. الأخوة الأعزاء تم بحمد الله وتوفيقه إجراء أخر التعديلات على شيت كنترول رجب جاويش 2012 لكى يلبى جميع طلبات الأخوه الزملاء حيث يوجد شيتين الأول لرصد اختبار نصف الترم من 20 درجة والأعمال من 30 درجة والآخر لرصد الأعمال من 50 درجة مباشرة والنشاط من 100 والشيت شامل لكل أعمال الكنترول حتى نهاية الدور الثانى ونسب المدرسة بعد الدورين كما تم عمل جميع التعديلات والإضافات التى تسهل من عمل القائم على المنترول الى أقصى درجة والله من وراء القصد وهو يهدى السبيل شكر خاص لكل من 1- الأستاذ / نادر عبد الرحمن 2- الأستاذ / عبد الله المجرب 3- الأستاذ / عبد الله باقشير 4- الأستاذ / طارق أخوكم رجب جاويش الشيت الأول اختبار نصف الترم من 20 والأعمال من 30 درجة http://www.mediafire.com/?qemfw77m6j6ow7i الشيت الثانى الأعمال من 50 درجة مباشرة والنشاط من 100 http://www.mediafire.com/?k4j7qo57dwegbu7
  13. الأخت الفاضلة / صفاء تفضلى ما تريدين التنسيق الشرطى اعتمادا على خانة ثلث درجة المادة فى الشيت وليس الرقم 15 وتم المطلوب كما قلت أنت فعلا بإستخدام دالة index مع بقاء الدالة vlookup أيضا الحل فى الملف المرفق Book1.rar
  14. الأخت الفاضلة / صفاء عذرا للتأخير الملف الذى طلبتيه والخاص بالتنسيق الشرطى موجود بالمرفقات Book1.rar
  15. الأخت الفاضلة / صفاء هذا الطلب ممكن عملة من خلال التنسيق الشرطى للخلية
  16. بارك الله فيكى أيتها الأخت الفاضلة
  17. الأخ الفاضل / الشهابى هذا هو الملف الذى به الحل الصحيح ولكم جزيل الشكر تنسيق شرطى 3.rar
  18. الاخ الفاضل / الشهابى شكرا على التوضيح ولكنه ليس تعقيد أعلم أن النتيجة تكون صفر عندما تكون الخلية المرتبطة بها فارغة ولكنى اريد التفرقة بين الخلية الفارغة ( اى الطالب ليس له دور ثانى فى هذه المادة وبالتالى لا يتم رصد اى درجة بها ) وبين الطالب الذى حضر الامتحان فى المادة وكانت درجته صفر فى المادة وبالتالى الحالتين مختلفتين تماما وبالتالى اردت تميز الخلايا الفارغة فقط لهذا السبب ولكم جزيل الشكر ولله الحمد توصلت الى الفكرة التى اريدها من خلال الفكرة الرائعة للعبقرى الاستاذ / عبد الله باقشير وهى وضع داله vlookup داخل التنسيق الشرطى فكل الشكر للاستاذ أبو نصار والاستاذ العبقرى / عبد الله باقشير والمرفق يوضح طريقة الحل تنسيق شرطى_3.rar
  19. الأخوة الأفاضل جزاكم الله ألف خير على هذا الحل الجميل ولكن هناك مشكلة أخرى وهى عند احتواء الخلية ( المراد عمل تنسيق شرطى لها اعتمادا على قيمة خلية فى ورقة اخرى ) على دالة vlookup والتى تعتمد على ايجاد درجات او قيم من عدة خلايا مختلفة فى الورقة الثانية مثل عمود درجات الطلاب فى العربى مثلا عن طريق البحث حيث أنه فى الحلول السابقة اعتمد التنسيق على قيمة خلية واحد فى الورقة الثانية وجزاكم الله كل خير وزادكم من علمه مرفق ملف لتوضيح المطلوب تنسيق شرطى.rar
  20. الاخوة الاعزاء هل من طريقة لعمل تنسيق شرطى لخلية اعتمادا على قيمة خلية فى ورقة اخرى كما فى الملف المرفق
  21. الأخ العزيز / الأستاذ عباس رضا بعد التحية لقد قمت برصد درجات 400 طالب فى الشيت لتجربته على حجم بيانات كبير ووجدت أن كود فصل الناجح والراسب يعمل بشكل طبيعى ولكن مع بطء بسيط لمده ثوانى نظرا لحجم البيانات الكبير ولك جزيل الشكر
  22. الأخوة الزملاء السلام عليكم ورحمة الله وبركاته أقدم لكم شيت كنترول 2012 حسب آخر قرار للتقويم الشامل فى جمهورية مصر العربية للصفين الأول والثانى الإعدادى شامل من بداية الفصل الدراسى الأول وحتى نهاية الدور الثانى وأقدم الشكر لجميع أساتذة المنتدى الذين تعلمت منهم وكانوا خير مثال لتقديم العون والمساعدة أرجو أن يكون هذا العمل خالصا لوجه الله أخوكم / رجب جاويش مدرس علوم بمدرسة كفور بلشاى - ادارة كفر الزيات التعليمية - محافظة الغربية - جمهورية مصر العربية رابط الشيت كنترول 2012 رجب جاويش.rar
  23. تصحيح مطلوب : الذى قام بتعديل الكود الاول الخاص بالاستاذ / خبور خير لكى يناسب الشيت الخاص بى هو الاستاذ طارق كل الشكر للجميع والرجاء تعديل الكود الموجود بالملف المرفق ترحيل ناجح وراسب ومحول مهنى.rar
  24. اما سبب وجود ثلث الدرجة فهو الربط مع شيت الدور الاول لكى يظهر الطلبة الراسبين فى المادة بسبب ثلث الدرجة
×
×
  • اضف...

Important Information