محمد ابو البـراء

والان أخي الكريم لعلنا اقتربنا من نهاية الطلبات الطلب 3 و4 و5 الخاص بالترحيل فليس عندي الا هذا الموضوع المفيد للترحيل http://www.officena.net/ib/?showtopic=41756 اتمنى ان تراه وتفهمه جيداً وتستطيع بنفسك عمل الترحيل واي مشكلة انا في خدمتك ------ وفي النهاية و قبل ان اتركك 1 ) احب ان اشكر كل من ساهم في تفكيري 2 ) شكر خاص للاستاذ الحبيب والصديق جمال الفار لتشجيعي بالصبر على اتمام هذا الشرح في هذا الموضوع واتمنى منه ان يخرج مفاجاته وكذلك اشكر صبره على عدم عرض عمله لاكمل شرحي 3 ) العمل يحتاج الى تعديل بعض الامور كصفحة الشيت واتمنى من الاخوة ان يتحفونا بمعادلات الشيت وكيفية عمل صفحة الشيت( لانني وبصراحة سنة اولى كنترول ولا افهم القوانين جيداً الخاصة بالقرارات الوزارية وما الى ذلك)

دائما مميز أخي الحبيب/ محمود الشريف بتداخلاتك العطرة .... :fff: :fff:

استاذ حمادة عمر استاذ/klma7lwa شكراً لكما على هذا العمل المتميز.... :fff: :fff:

وجزاك الله خيراً أخي الحبيب لاثراء الموضوع اكثر هذا هو الكود الخاص بالعملية هذه الاجزاء التي ستتغير في الكود وضع الكلمة Shell "noshutdown -s -t 02", vbHide بين علامتين التعليق لتكون هكذا 'Shell "noshutdown -s -t 02", vbHide' ليمنع غلق الجهاز وتغيير الرقم ليكون 15 كما علمته باللون الاحمر في الكود ليغلق بعد 15 دقيقة .. واذا اردنا تغيير الوقت من هذا الجزء TimeSerial (0, 15, 0) فالرقم الاول من اليسار يعني الساعة الرقم الاوسط يعني الدقائق الرقم الاول من جهة اليمين يعني الثواني

السلام عليكم ورحمة الله وبركاته أخي الكريم/ استاذ الساهر لعلك تجد بغيتك في هذا الرابط http://www.officena.net/ib/index.php?showtopic=39065

ممكن المرفق أخي الكريم

اخي وصديقي استاذ /جمال الفار كم سعادتي بترقية مستحقة من خلوق مثلك. وبعتذر عن قليل العبارة لما نحن فيه من خبر ترك حبيبنا واستاذنا الغالي استاذ جمال عبد السميع ( ملك المعادلات )المنتدى

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

معذرة استاذ جمال دغيدي ما هذا الخبر المزعج اتمني من الاخ الفاضل والاستاذ الكبير ( ملك المعادلات ) الاستاذ جمال عبد السميع الرجوع في قراره وان لا يحرمنا من خبراته ولا معادلاته المميزة وحلوله الرائعة وان يحتسب وقته هذا وعمله لخدمة اخوانه لله تعالى..

أستاذي الفاضل جمال الضرب سيكون في المجموع k6 وليس نصف المجموع k7 والناتج لن يكون اصفارا واما النتائج خرجت عندك اصفاراً السبب انك وضعت درجات الطلبة جميعهم الا واحد وهوجماااال2 اقل من نصف الدرجة وجرب وغير في الدرجات ستجد ما اقوله لك صحيحا ولعل هذا المرفق يوضح ما اقول وسوف اعطي من جمال 1:5 في مادة اللغة العربية اعلى من 85 والباقي اقل من 50 درجة وانظر الى الناتج ماذا سيظهر وجرب اضرب مرة في k7 ومرة اضرب في k6 ستجد النتائج الصحيحة عند الضرب في k6 وهو المجموع ---------- ملحوظة ثانية: في الجدول الاول وعندما اردنا ان نعرف الناجحون من البنون والبنات ضربت في 450 وهذا خطا اما الصحيح فهو الضرب في المجموع 900 --------------- ولعل العقل ايضا والرياضة توكد الضرب في المجموع وليس النصف فاذا اردنا ان نعرف اكثر من حصلوا على 85 درجة من المجموع 100 فسنستند على المجموع ككل فليس لنصف الدجة اي فائدة وشكراً منتظر النتائج وجرب وأخبرني بالنتائج 3-صف أول 1.rar

السلام عليكم ورحمة الله وبركاته أخي الحبيب جماااال هناك خطا بسيط في المعادلات من المفروض انني اضرب جميع المعادلات في المجموع ولكني ضربتها في المتوسط بمعنى انني كنت اضرب في k7 ومن المفروض انني كنت اضرب في k6 (خانة المجموع )أو استبدل ذلك برقم 100 (المجموع ) مثال لذلك لتصحيح المعادلة المعادلة القديمة المعادلة بعد التصحيح

اسعدني ذلك وتعال الان معي لننهي النسب والجدول الاخير إحصـاء المستويات للفصل الدراسى الاول وهو مكون من 5 اعمدة ممتاز جيد جدا جيد مقبول دون المستوى العمود الاول ( ممتاز ) الحل علينا ان نعرف الحل رياضياً وهم من تعدى مجموعهم عن 85% طيب كيفية حل المعادلة اظن ان الامر الان اصبح سهل وبسيط فسوف نرجع للمصفوفة السابقة والتي استخدمناها في الجدول السابق في العمود رقم 3 والتي اردت ان تعرف من هم اكثر من 75% سوف نستخدمها ونغير الرقم الى 85% (ملحوظة ) لو اردت ان تجعل الامتياز من 90 او اكثر فغير الرقم كما تشاء.. المعادلة --------------------------------- العمود الثاني (جيد جدا) كيفية الحل ركز معي في هذا الامر استاذ جمااااال طبعاً لو قلنا اننا نحتاج نسبة اكبر من 75 في المية وحلناها بالمصفوفة السابقة وغيرنا الرقم من 85 الى 75 الناتج لن يكون صحيحا لماذا لان الرقم الذي سيخرج سيضم من هم اعلى من 75 جيد جدا ومن هم اعلى من 85 % امتياز طيب ما العمل ببساطة نقوم بعمل المصفوفة السابقة ونغير 85 الى 75 ونضيف للمصفوفة - خلية الامتياز لتكون هكذا -------------------------- العمود رقم 3 ( جيد ) نفس المصفوفة بس هنغير الرقم الى 65 في المصفوفة ونطرح منها خليتين الامتيازوخلية الجيد جداً لتكون المعادلة بهذا الشكل -------------------------- العمود 4 ( خلية المقبول) نفس المصفوفة ولكن سنغير الرقم الى 50 ولكن سنطرح هذه المرة ثلاث خلايا الامتياز والجيد والجيد جدا والجيد لتكون المعادلة بهذا الشكل ------------------- العمود الخامس والاخير( دون المستوى ) لها اكثر من حل ببساطة وهم الذين اقل مجموعهم من 50 % وهذه المعادلة تم حلها من قبل حيث نساويها بخلية اقل من 50% اى ستكون المعادلة بهذا الشكل --------------------- وبهذا يكون انها هذا الجدول ملحوظة لو احببت أخي الكريم ان تغير في النسب فلك ذلك اى المتياز تريده من 90 والجيد جدا تريده من 80 فلك ذلك غير في المصفوفة ---------------------------- اما الجدول الاخير في الاسفل النتيجة العامة فهذه بيانات تم ادخالها في الجداول السابقة قم بمساواتها من الجداول السابقة ---------------------------- تم بحمد الله الانتهاء هذا الجزء اتمنى ان اكون وفقت لايصال المعلومة وفي انتظار ردك عند وجود اي مشكلة لنبدا الجزء الاخير والخاص بالترحيل :fff: :fff: صف أول 1_2.rar

شرح معلم اسف اقصد بالضم مُعلم (ابتسامة) بارك الله فيك يا صديق وجعله الله في ميزان حسناتك...

السلام عليكم ورحمة الله وبركاته والان نكمل موضوع النسب واتمني ان تركز جيدا أخي الحبيب جمال.. -------------- والان مع جدول إحصاء نسب المواد للفصل الدراسى الاول وهو مكون من 6 اعمدة العمود الاول وهو عمود المتقدمين الحل هو من اسهل الاعمدة وطريقة حلة عبارة عن انك سوف تساوي هذه الخلية بخلية المتقدمين في الجول الاعلي وخلية رقم f6 وهكذا في كل مادة -------------------------- اما العمود الثاني والثالث الناجح والاكثر من 75% فالحل بنفس المصفوفة التى استخدمناها في خلية الغياب للطلبة ولكننا هذه المرة سنغير فيها واتمنى ان تركز معي في هذه المصفوفة قليلا وهذ المصفوفة (الناجح )نقصد اننا نريد معرفة نسبة الاعلى او يساوي 50% وهذه المعادلة تتكون من 3 اجزاء وانا مقسمه لثلاث الوان الاول وهو الاحمر المقصود به نطاق المادة الاخضر وهو المقصود به مجموع المادة (وممكن نستبدلها ب 100 مجموع المادة الثالث الازرق وهو المهم والذي سيتغير حسب المطلوب ومطلوبك في العمود الثاني الناحجين وهي تعني >=0.5 أما في العمود الثالث فحضرتك تحتاج أكثر من 75 % وهي نفس المعادلة السابقة ولكن سيتغير النقطة رقم ثلاثة والتي لونتها بابلازرق لتكون هكذا ------------------ اما العمود الرابع وهم من 50% الى 75% فهي تحل بطريقة بسيطة عدد الناجحين ككل - من هم مجموعهم اعلى من 75 % ---------------------- اما العمود الخامس والخاص ب اقل من 50 % ( الراسبين ) فهي بطريقة بسيطة ايضا وهي المتقدمين ( العمود الاول ) - الناحجين في (العمود الثاني ) ----------------------------- اما العمود السادس وهو (الخاص ) بالنسبة وهي بطريقة بسيطة الناحجين/المتقدمين ونحول هذه الخلية الى نسب وهكذا في كل مادة أخي الكريم ----------------------- اتمنى ان اكون وفقت في الشرح وفي انتظار طلباتك والمرة القادمة أخر جزء في موضوع النسب_ بإذن الله _ المرة القادمة ... صف أول 1.rar

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

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

السلام عليكم ورحمة الله وبركاته هذا الملف به نسبة 75% واشك في كود الطباعة ولعل الاخ جمال الفار يتحفنا بالباقي الخاص بكود الطباعة وارجوا ان يشرح لنا كود الطباعة... shahada1.rar

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

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

السلام عليكم ورحمة الله وبركاته الكثير منا يفرح باستقبال المولد النبوي - صلى الله عليه وسلم _ بأبي هو وامي_ ولعل الكثير منا لا يعلم ان الموكد هو وفاة النبي يوم 12 ربيع الاول وليس من الموكد مولده في هذا اليوم ولست الان بصدد الحديث عن المولد النبوي والذي علمنا النبي استقبال مولده( يوم الاثنين ) بالصيام ------------------------------ ولكن اعجبني هذا المقطع فاحببت ان اشارككم فيه نسأل الله لنا ولكم الثبات http://safeshare.tv/w/DjvTEuqUlD

بارك الله فيك أخي قنديل الصياد على الاهتمام والمتابعة ولكن أخي الكريم هذا الكود (ranking) ليس الذي اقصده وليس الذي قمت به لعمل ترتيب الاوائل ولكن انا استخدمت كود (topten) وهذا هو الكود الصحيح ' Emad Al Hosami ' hosami1@yahoo.com ' Jordan - Amman ' دالة العشرة الاوائل " TOPTEN " Function TOPTEN(Mark_Table As Range, Cer_Table As Range, RNK As Integer, True_False As Boolean) Application.ScreenUpdating = False Dim Rw, i, k As Long Dim CON As Integer Dim HOS Dim ARR Dim SS Dim M Dim S TOPTEN = "#N/A" '------------------------------------------------------------------- If True_False = True Then ARR = Array("", "الأول", "الثاني", "الثالث", "الرابع" _ , "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر") For i = 1 To RNK CON = WorksheetFunction.CountIf(Mark_Table, WorksheetFunction.Large(Mark_Table, i)) HOS = HOS + (1 / CON) Next i HOS = WorksheetFunction.Ceiling(HOS, 1) SS = "" If RNK = 1 Then GoTo 10 If WorksheetFunction.Large(Mark_Table, RNK) = WorksheetFunction.Large(Mark_Table, RNK - 1) _ Then SS = " مكرر" 10 TOPTEN = ARR(HOS) & SS Exit Function End If '------------------------------------------------------------------- For Rw = 1 To Mark_Table.Rows.Count If WorksheetFunction.Large(Mark_Table, RNK) = Mark_Table.Cells(Rw, 1) Then CON = WorksheetFunction.CountIf(Mark_Table, WorksheetFunction.Large(Mark_Table, RNK)) If CON = 0 Then TOPTEN = Cer_Table.Cells(Rw, 1).TeCONt Exit Function End If If CON <> 0 Then M = M + 1: S = 0 For k = 1 To RNK If WorksheetFunction.Large(Mark_Table, RNK) = WorksheetFunction.Large(Mark_Table, k) Then S = S + 1 Next k If S = M Then TOPTEN = Cer_Table.Cells(Rw, 1).Value Exit Function End If End If End If Next Rw Application.ScreenUpdating = True End Function

جزاكم الله خيراً أخي الكريم تمااااااااااااااااااااااااااااااااااااااااام اذا فلنبدا ولعل هذه المشاركة مراجعة على ما سبق دراسته ( ابتسامة ) أخي بالنسبة لمعادلة اخراج الاوائل اذا اردت ان تعرف كيفية عملها فهي تنقسم الى جزئين الجزء الاول الكود وطريقة وضعه ستجدها في المشاركة رقم 10 وهذا هو الكود الذي ستضعه ' Emad Al Hosami ' hosami1@yahoo.com ' Jordan - Amman ' ÏÇáÉ ÇáÚÔÑÉ ÇáÇæÇÆá " TOPTEN " Function TOPTEN(Mark_Table As Range, Cer_Table As Range, RNK As Integer, True_False As Boolean) Application.ScreenUpdating = False Dim Rw, i, k As Long Dim CON As Integer Dim HOS Dim ARR Dim SS Dim M Dim S TOPTEN = "#N/A" '------------------------------------------------------------------- If True_False = True Then ARR = Array("", "ÇáÃæá", "ÇáËÇäí", "ÇáËÇáË", "ÇáÑÇÈÚ" _ , "ÇáÎÇãÓ", "ÇáÓÇÏÓ", "ÇáÓÇÈÚ", "ÇáËÇãä", "ÇáÊÇÓÚ", "ÇáÚÇÔÑ") For i = 1 To RNK CON = WorksheetFunction.CountIf(Mark_Table, WorksheetFunction.Large(Mark_Table, i)) HOS = HOS + (1 / CON) Next i HOS = WorksheetFunction.Ceiling(HOS, 1) SS = "" If RNK = 1 Then GoTo 10 If WorksheetFunction.Large(Mark_Table, RNK) = WorksheetFunction.Large(Mark_Table, RNK - 1) _ Then SS = " ãßÑÑ" 10 TOPTEN = ARR(HOS) & SS Exit Function End If '------------------------------------------------------------------- For Rw = 1 To Mark_Table.Rows.Count If WorksheetFunction.Large(Mark_Table, RNK) = Mark_Table.Cells(Rw, 1) Then CON = WorksheetFunction.CountIf(Mark_Table, WorksheetFunction.Large(Mark_Table, RNK)) If CON = 0 Then TOPTEN = Cer_Table.Cells(Rw, 1).TeCONt Exit Function End If If CON <> 0 Then M = M + 1: S = 0 For k = 1 To RNK If WorksheetFunction.Large(Mark_Table, RNK) = WorksheetFunction.Large(Mark_Table, k) Then S = S + 1 Next k If S = M Then TOPTEN = Cer_Table.Cells(Rw, 1).Value Exit Function End If End If End If Next Rw Application.ScreenUpdating = True End Function Sub ÇáÇæÇÆá() End Sub Sub ÇÎÝÇÁ_ÇáÌáæÓ_ááÇæÇÆá() ' ' ÇÎÝÇÁ_ÇáÌáæÓ_ááÇæÇÆá ãÇßÑæ ' ' Columns("B:B").Select Selection.EntireColumn.Hidden = True End Sub Sub ÇÙåÇÑ_ÇáÌáæÓ_ááÇæÇÆá() ' ' ÇÙåÇÑ_ÇáÌáæÓ_ááÇæÇÆá ãÇßÑæ ' ' Columns("A:A").Select Selection.EntireColumn.Hidden = False Columns("B:B").ColumnWidth = 7.88 End Sub الجزء الثاني وهو المعادلة وهي تنقسم الى اربع اجزاء 1 ) نطاق المجموع 2 )نطاق الخلية التى نريد اخراج الاوائل فيها وليكن الاسم او رقم الجلوس او الترتيب 3 )الترتيب المراد من 1 الى 10 4 ) رقم 1 او 0 (ملحوظة تضع رقم 1 في خلية الترتيب فقط اما باقي الخلايا في الاسم او المجموع او رقم الجلوس فنضع 0) ---------------------------- اتمنى ان تكون وصلت الفكرة وانا في خدمتك...

حلول رائعة ومتنوعة بارك الله في هذا الصرح العظيم وعمالقته

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

يالك من رائع أخي الحبيب /جمال الفار ما زلت مصمم على خدمة اخوانك .... :fff: