نجوم المشاركات

السلام عليكم ورحمة الله وبركاته أخواني الفضلاء يسعدني ان اقدم لكم [الاصدار الخامس] من شيت التعليم الفني اهم المميزات 1 ) اضافة ورقتان وهما راسب وليس له حق الاعادة راسب وله الحق الاعادة يتم الترحيل لهم بواسطة زر الترحيل في ورقة الشيت لتصبح الورقات المرحلة 4 بدلاً من 3 2 ) تم اضافة عمود بجوار المادة رقم 20 وفائدة هذا العمود هو ادخال النتيجة يدوي بمعني ان المعادلة ستنفذ كما كانت من قبل بالشكل الطبيعي ان كانت الخلية فارغة في العمود المضاف جديد اما اذا تم وضع كلمة له دور ثان للمادة في الخلية في العمود المضاف جديد سيتم رسوب الطالب في المادة وقمت بعمل ذلك نظرا للخلاف الذي تم في مادة العملي!!! 3 ) اضافة عمود حالة الطالب يدوي في ورقة الشيت وقمت بعمله بسبب الخلاف ايضاً الذي تم في كيفية رسوب الطالب ونجاحه وهذا العموود يساعد في تنفيذ حالة الطالب كما يتراى لك 4 ) تغيير المعادلات الموجودة في حالة الطالب لتقسم الطلبة اربع حالات وهي ناجح راسب له حق راسب ليس له حق له دور ثان بدلا مما كانت عليه سابقا حيث كان التقسيم الى ثلاث حالات فقط 5 ) اضافة ثلاث تقسيمات في ورقة نتيجة الدور الثاني في عمود حالة الطالب وهما ناجح وراسب له حق وراسب ليس له حق بدلا من اثنين فقط تنويه : 1 ) احب ان اكرر الشكر للاستاذ // أحمد ايمن لمجهوداته في معرفة قوانين التعليم الفني 2 ) للعلم انا لا اعتبر هذا الاصدار اصدار بالمعنى ولكني اعتبره ملحق للاصدار الرابع 3 ) عند وجد اي خطا انا في انتظاركم لتعديله والسلام عليكم ورحمة الله وبركاته.. التحميل http://www.gulfup.com/?ft36DG

تفضل أخى لعله ماتريد =IF(ISERROR(MATCH(COLUMNS($A:A);MONTH(DateRng);0));"";MAX(IF(MONTH(DateRng)=COLUMNS($A:A)*($C$2:$C$173=$E5);CloseRng;0))) تقبل تحياتى

السلام عليكم اقدم لكم في هذا الموضوع قناة على اليوتيوب خاصة بالاكسيل تحتوى القناة على اكثر من 160000 (مائة وستون الف) درس فيديو مدعمة بملفات للشرح حتى لحظة كتابة الموضوع وبعض الدروس اكثر من ساعة للدرس انا استفدت من هذه القناة كثيرا جدا ارجو ان تستفيدوا منها https://www.youtube.com/user/ExcelIsFun/videos

اخواني الكرام بعد التوكل على الله ثم الاستشارة وحسب رغبة بعض الاخوة نبداء على بركة الله هذه الدورة شروط الدورة: تقتصر الدورة على شرح الفيجول بيسك للتطبيقات VBA ولا علاقة للمعادلات بهذه الدورة لذا نرجو ان يقتصر السؤال والاستفسار حول الاكواد فقط. عدم إضافة عبارة الشكر (نشكر الجميع على تقدير الجهود) حتى لا يحتاج الموضوع الى تنقيح فإن أعجبك شرح أو رد يمكنك تقييمه من خيار أعجبني شكراً. ان يكون موعد الاستفسارات حول الجزء المطروح للشرح خلال 24 ساعة فقط ويتم الانتقال الى جزء أخر لتعميم الفائدة. سيكون الشرح بشقين كتابي ومرئي. على الاساتذة الذين يشاركون في الشرح اخذ الشرط الثالث بالاعتبار (مشكورين). * سيتم حذف أي مشاركة لا يتم التقيد فيها بالشروط. == تم نقل جميع مشاركات النقاش الى هنا =============================== دروس الدورة ============================= الدرس الاول1 الدرس الاول2 الدرس الثاني الدرس الثالث الدرس الرابع 1 الدرس الرابع 2 الدرس الرابع 3 اساسيات لغة VBA كلغة برمجة (نظري) الفصل الثالث ج1 الفصل الثالث ج2 اسئلة الدورة (الجزء الاول)

السلام عليكم ورحمة الله وبركاته جاري حاليا اعداد دورة جديدة عبارة عن التعامل مع قواعد البيانات SQL Server و Access باستخدام Visual Basic.net والحقيقة انا لا اعرف المكان المناسب لوضع الدروس لان الكورس اكثر متعلق بالفيجوال فارجو من حضراتكم اقتراحاتكم في المكان المناسب لوضع الكورس وشكرا مقدما

السلام عليكم و رحمة الله و بركاته لائحة منسدلة جديدة كما وعدتكم،تجمع نتائجها في خلية واحدة لائحة في نفس الخلية.rar

أخي وحبيبي أبو البراء السلام عليكم بالنسبة لموضوع كنترول الازهر - في صفحة بيانات التخصص عدد المواد بيظهر 17 فقط ويجمع في الشيت مجموع 17 مادة فقط - في المجموع للمواد الكلي في صفحة الشيت لايجمع الحديث الشفوي ولا الانجليزي - عدد مواد الرسوب كان يكتب الضعف يعني عنده مثلا 4 مواد كانت تظهر 8 مواد - كانت تظهر رسالة تقول ( وجدنا مرجعا دائريا أو أكثر في مصنفك قد ي}دي الي احتساب القيم والصيغ بطريقة خاطئة) - مواد النجاح فيها من 50% وهي (فقه -حديث - حديث شفوي-قرآن- توحيد- نحو-صرف-بلاغة - أدب- انشاء-نصوص-تفسير -منطق-عروض) - مواد النجاح فيها من40% وهي (انجليزي-فرنساوي-رياضيات-فيزياء-كيمياء-أحياء-فنية-حاسب آلي-فلسفة-علم نفس) السلام عليكم أبو البراء وكل الزملاء تابع شيت الازهر - الدرجة الاقل من 25% في أي مادة في الترم الاول تدخل الطالب الامتحان في المادة كلها في الترم الثاني ولايكون عنده دور تاني فيها ويكون درجة المادة الكلية في الترم الثاني من مجموع الترمين مثال مادة الرياضيات مجموع الترمين فيها من 60 درجة ( 30 درجة في الترم الاول + 30 درجة في الترم الثاني ) اذا حصل الطالب علي أقل من 25% (7.5 درجة) بمعني حصل علي 4درجات من 30 درجة في الترم الاول اذن يدخل الطالب امتحان الترم الثاني في المادة كلها ويكون مجموع الدرجات في الترم الثاني فقط للمادة 60 درجة فاذا حصل علي 40% (24 درجة) أو اكثر يكون ناجح ولاتجمع درجة الترم الاول واذا حصل علي أقل من 40% (24درجة) يكون عنده دور ثاني اذن شرط النجاح في الرياضيات حصول الطالب علي 40%أو أكثر + 25% في الترم الثاني أوأكثر فقط أخي أبو البراء وكل من لديه خبرة السلام عليكم تابع شيت الازهر - بالنسبة لمادة القرآن يعتبرمادتان ...... قرآن شفوي وقرآن تحريري ولكن يكملان بعضهم في المجموع فقط فأقترح كما في الشيت الورقي ترم أول ( قرآن تحريري قرآن شفوي ) ترم ثاني (قرآن تحريري قرآن شفوي) المجموع (15/3.5 5/1.5 ) (15/3.5 5/1.5 ) 40/20 اذا حصل الطالب علي أقل من الربع في القرآن التحريري في الترم الاول فانه يدخل امتحان الترم الثاني من 30 درجة اذا حصل الطالب علي أقل من الربع في القرآن الشفوي في الترم الاول فانه يدخل امتحان الترم الثاني من 10 درجة واذا حصل الطالب علي اقل من 50% في المجموع الكلي أو أقل من 25% في الترم الثاني فيكون عنده دور ثاني في القرآن كله السلام عليكم ياأبو البراء وكل الزملاء السلام عليكم تابع شيت الازهر - حصول الطالب علي أقل من الربع للدرجة في الفصل الدراسي الاول يدخل الطالب الترم الثاني في المادة كلها وتكون الدرجة في الفصل الدراسي الثاني من الدرجة الكلية للمادة ولايجمع درجة الفصل الدراسي الاول - وحصول الطالب علي أقل من ربع الدرجة في الفصل الدراسي الثاني يدخل الطالب دور ثاني في المادة كلها واذا غاب الطالب في الفصل الدراسي الاول يدخل المادة كلها في الفصل الدراسي الثاني ولاينظر الي غيابة ولايكون عنده دور ثاني في المادة مادام حصل علي الربع أوأكثر + 40% من المجموع أو50% حسب المادة

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

اضم صوتى لأخى الحبيب // احمد النجار

اخى الفاضل جزاك الله خير وشكرا للاهتمامك واشكر فيك روح التعاون معلش هتعبك معايا وابعت لحضرتك المعلومات اللزمة

السلام عليكم الاستاذ محمد ابو ضيف احاول ان اساعدك حسب مافهمت من سؤالك اتبع الخوات التاليه 1- اذهب الى tab مراجعه 2- تميز التغيرات 3- تحديد الخلايا المراد معرفة التغيرات بها 4- ok 5- ثم احفظ الملف 6- ثم قم بفتح الملف مره اخرى 7- اضغط وكرر نفس الخطوات كما فى الصوره New Folder.rar

السلام عليكم بعد اذن الأخت الفاضلة أم عبد الله ولاثراء الموضوع حل آخر تجربة.rar

السلام عليكم ورحمة الله وبركاته أولاً اهلاً بك في منتدانا الرائع وإليك الملف به المطلوب. تجربة.rar

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

أخى الفاضل أولا : مرحبا بك بين إخوانك فى منتدى أوفيسنا العريق ثانيا : برجاء تغيير إسم الظهور إلى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثالثا: يرجى ارفاق ملف توضح به المطلوب حتى يمكن العمل عليه رابعا: يجب كتابه عنوان واضح للموضوع يدل على محتوى الطلب قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

قم اخي الكريم بارفاق ملف كمثال لتوضيح طلبك واليك الرابط التالي به طريقة رفع الملفات للمنتدي http://www.officena.net/ib/index.php?showtopic=44625 تقبل خالص تحياتي

تفضل أخى الحبيب =MAX(INDEX((MONTH(DateRng)=COLUMNS($A:A))*(CoRng=$F3)*CloseRng;)) =MIN(IF(MONTH(DateRng)=COLUMNS($A:A);IF(CoRng=$F4;CloseRng))) وفى معادلتك سيتم إضافة الجزء الأول من المعادلة لعدم جلب الخطأ فستكون كالتالى : =IF(ISERROR(MATCH(COLUMNS($A:A);MONTH(DateRng);0));"";MAX(INDEX((MONTH(DateRng)=COLUMNS($A:A))*(CoRng=$F3)*CloseRng;))) =IF(ISERROR(MATCH(COLUMNS($A:A);MONTH(DateRng);0));"";MIN(IF(MONTH(DateRng)=COLUMNS($A:A);IF(CoRng=$F4;CloseRng)))) مع ملاحظة : أن المدى المعرف ( CoRng ) هو عمود ال ( Company ) تقبل تحيات أخيك

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

السلام عليكم تفضل أخي المرفق به المطلوب 1.rar

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

السلام عليكم أخي العزيز أنظر الخطوات في الصورة

الأستاذ / KeL1110 السلام عليكم ورحمة الله وبركاته إليك الملف بعد عمل قائمة منسدلة مطاطية ما عليك إلا أن تكتب فيها رقم الصنف الجديد وفي عمود الصنف تختار الرقم المطلوب جلب بياناته فقط 112.rar

اخى واستاذى ملك المعادلات / جمال السلام عليكم جزاكم الله خيرا ولكن المعادلة تعمل فقط على اقصى قيمة فى الشهر والشركة ولاتعمل على ادنى قيمة مرفق الملف Max-and-Min-Value-in-every-month.rar

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

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

السلام عليكم ورحمة الله وبركاته الاخ الفاضل / محمد ابو البراء .............هداك الله ان اكواد الحدث التلقائي يجب ان يقيد عملها في اطار النطاق الذي تريد العمل عليه ولا تكون مفتوحة على الغارب ويجب ان تختار كود الحدث المتاسب في المكان المناسب في كودي السايق قيدت العمل في خلية واحدة وهي A1 اذا تم تغييرها يتم تنفيذ الكود يعني استخدمت هذا الحدث Worksheet_Change وليس هذا الحدث Worksheet_SelectionChange وقد اخبرتك ان مثل طلبك لا يحتاج الى حلقة تكرارية ويمكنك تعيين النطاق الذي تريد العمل عليه وانت الان تريد الغمل على النطاق A1:A100 وهذا تعديل الكود: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1:a100")) Is Nothing Then If Target.Value = 9 Then Target.Font.Color = -16776961 Else Target.Font.Color = 0 End If End If End Sub وسؤالي لك هل تريد ان تعمل كود او تريد تتعلم كيف تعمل كود ؟؟؟ تحياتي الحلقات التكرارية - تلوين الخلية بشرطbraa.rar

السلام عليكم تفضلي أختي الحل بالأكواد معذرة لإنشغالي في الفترة السابقة يمكنك الحصول علي التقرير بالضغط علي أي من الزرين بالورقتين الكود المستخدم Sub countt() LR = [B9999].End(xlUp).Row Sheets("Report").[A2:D99].ClearContents For r = 2 To LR nr = Sheets("Report").[B99].End(xlUp).Row + 1 If Cells(r, 2) = Cells(r - 1, 2) Then GoTo 10 cc = 1 For i = 1 To 9 If Cells(r, 2) <> Cells(r + i, 2) Then GoTo 5 cc = cc + 1 Next i 5 If cc = 1 Then kh = 0.75: txt = "يوم واحد": GoTo 8 txt = cc & " ايام متتالية" If cc < 5 Then kh = 0.4 Else kh = 0.2 8 Range("B" & r & ":C" & r).Copy Sheets("Report").Cells(nr, 1) Sheets("Report").Cells(nr, 3) = txt Sheets("Report").Cells(nr, 4) = kh 10 Next r Sheets("Report").Activate End Sub شرح سريع للكود يمر في جميع صفوف الورقة الأولي ويقارن الخلية التي بها رقم الصنف بالتي تعلوها ، إن كانت تساويها يعني الصنف متكرر فلن يفعل شيئا ويتجاوزها للتي تليها Next r فإذا لم تكن تساويها يعطي التكرار رقم 1 ثم يبدأ في عدد التكرارات cc للأسطر التسعة التالية وبناءا علي عدد التكرارات يغير الجملة txt التي ستوضع في سطر التقرير وكذلك نسبة الخصم kh والباقي سهل إن شاء الله الاصناف ونسبة الخصم2.rar