ياسر خليل أبو البراء

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

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

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

شفاكم الله وعافاكم أخي في الله أسامة والحمد لله أن تم الموضوع على خير

الأخ محمد يوسف أيوا كل شيء ممكن إن شاء الله ممكن زي كدا With Range("A1:B13") .HorizontalAlignment = xlCenter .Font.Name = "Times New Roman" .Font.Size = 17 .Font.Bold = True .Font.Color = vbBlue End With With Range("A1:B1") .Font.Size = 20 .Font.Color = vbRed End With اعتمدت على نطاق واحد بالكامل من أول A1:B13 وعملنا التنسيقات المتشابهة وبعدين نشوف المختلف ونخصص له جزء جديد من الكود ونغير فيه ..

الأخ الفاضل عبد الله بولنوار بارك الله فيك وجزاك الله خير الجزاء تسلم حبيبي... ربنا يجعله في ميزان حسناتك

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

بسم الله ما شاء الله كنت متأكد إن مش هيهدالك بال غير لما تكتب المعادلة بأسلوبك بارك الله فيك أستاذنا جمال ملك المعادلات

أخي حسام جرب المرفق التالي m-m.rar

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

الأخ الحبيب محمد الريفي جزيت خيراً على كلماتك الرقيقة وشعورك الطيب . ووالله مخدت بالي من موضوع الترقية دا إلا منك .. دي مسئولية قبل ما تكون هدية .. وعقبالك يا كبير وصدقني هناك من يستحق هذه الترقية ومن هم أفضل مني أمثال سليم وحضرتك والأخ وائل المصري وابن مصر وكتير صراحة يعذروني لو كنت نسيت حد فيهم. بالنسبة لطلبك شوية كدا وهتلاقي ابن الحلال اللي يتبرع ويعمل الدروس PDF لأني معنديش فكرة صراحة أو مجربتش .. شوية كدا بس لما الأمور تبدأ تتظبط متقلقش الأخ الفاضل عبد الله إحنا بنتعلم وتسجيل الماكرو مجرد معين مش هو الأساس لأن فيه أكواد مينفعش فيها تسجيل ماكرو .. وبعدين اللي هيكتبه التسجيل في 50 سطر إحنا هنقدر نعمله بكل بساطة في 5 أسطر أكيد يفرق .. وإلا مكانش حد اتعلم واعتمدنا على تسجيل الماكرو وانتهى الأمر

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

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

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

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

متابعة الواجبات : ************** قام الأخ الفاضل الجموعي بعمل الواجب المطلوب على أكمل وجه .. بارك الله فيك أخي الحبيب الجموعي وجزيت خيراً على هذه المتابعة الجيدة ممكن نستفيد معلومات جديدة من خلال الواجب مش هنصحح كدا ونقول صح ولا غلط وبس لا إحنا نضيف معلومة تضاف للحلقة الثالثة كملحق ليها . يا ريت المشرفين يقوموا بالمهمة دي .. عايز تجميع لكل الحلقات والملحقات للحلقات زي الملحق ده عشان يضاف للشرح لتسهيل المتابعة لمن أراد المتابعة بإذن الله . طبعا الكود اللي تفضل به أخونا الفاضل بالشكل ده Range("A1:B10").HorizontalAlignment = xlCenter Range("A1:B10").Font.Name = "Arial" Range("A1:B10").Font.Size = 14 Range("A1:B10").Font.Bold = True Range("A1:B10").Font.Color = -4165632 لو لاحطنا هنلاقي الأسطر الخمسة كلها بتبدأ نفس البداية ودا طبيعي لأن كل الشغل على نفس النطاق . ممكن تضيف لمعلوماتك إنك ممكن تستغنى عن تكرار هذه البداية باستخدام جملة With .... End With ومننساش بردو القفلة مهمة جدا نقطة تانية بالنسبة للون يمكن استبالها بقيمة vbBlue بدلا من الرقم اللي شكله يخض ده .. الأسطر كلها تحتوي على Properties أي خصائص وطبعا كل خاصية بيكون ليها قيمة ..ممكن تكون القيمة نص زي اسم نوع الخط Arial وطبعا مننساش إن النص يوضع بين أقواس تنصيص .. وقد تكون القيمة رقم زي حجم الخط ودا طبيعي لأن الحجم بيكون برقم (افتكروا التلاجة الـ 10 قدم .. رقم 10 دا حجم) .. وممكن تكون القيمة حاجة اسمها Boolean أيوا يا شيرين اسمها بولين ، ودي يا إما 1 أو 0 واحد هيقولي غلط إنت بتدي معلومات غلط هي القيمة إما True أو False هقوله صحيح .. ما هي القيمة True =1 والقيمة False = 0 ، وقد تكون القيمة عبارة عن تنسيق معين زي أول سطر xlCenter ودي شرحناها الحمد لله .. وقد تكون قيمة ثابتة vbBlue زي مثلا اللون الأزرق دا ثابت ومعرف في محرر الأكواد هيكون الكود بهذا الشكل بعد التعديل عليه .. وبكدا نكون اتعرفنا على أشكال مختلفة للقيم اللي بتيجي بعد علامة يساوي يعني دلوقتي الأخ الجموعي اختصر الكود اللي في تسجيل الماكرو بشكل رائع ، وإحنا كمان هنختصر اللي اختصره في الكود التالي فبكدا يكون دا مختصر المختصر (يعني دا المفيد) With Range("A1:B10") .HorizontalAlignment = xlCenter .Font.Name = "Arial" .Font.Size = 14 .Font.Bold = True .Font.Color = vbBlue End With آخر نقطة ممكن نتكلم فيها عشان دي أنا نسيتها إزاي نربط الماكرو بزر يقوم بالتنفيذ : معلش نسيت النقطة المهمة دي - اعذروني بسبب الزهايمر - بنروح للتبويب ومش هقول اسمه لأن كل شغلنا عليه هنلاقي فيه كلمة Insert بنضغط عليها بيفتح معانا قايمة منسدلة فيها أدوات تحكم اختار أول واحد اسمها Button (Form Control ودا أول أداة تحكم موجودة وأكثرها استعمالا ..ارسمها ببساطة على ورقة العمل وبعديها كليك يمين ثم اختر الأمر Assign Macro وحدد اسم الماكرو المراد ربط الكود به في المثال السابق مثلا دا مثلا شكل الكود بالكامل فيه اسم الإجراء الفرعي بعد كلمة Sub Sub FormatRangeA1_B10() With Range("A1:B10") .HorizontalAlignment = xlCenter .Font.Name = "Arial" .Font.Size = 14 .Font.Bold = True .Font.Color = vbBlue End With End Sub لما نعمل كليك يمين على زر التحكم هنلاقي اسم الإجراء الفرعي موجود نعلم عليه ونضغط أوك وبكدا نكون ربطنا الكود بزر تحكم ما عليك الآن إلا أن تقوم بعمل كليك واحدة على الزر لتنفيذ الأمر بكل بساطة .. الأخت الفاضلة morestudy بالنسبة لأول ملف عندك مفيش أي خطأ لا في الكود ولا في التنفيذ .. وبعدين لما يظهر خطأ يا ريت نسرد محتوى رسالة الخطأ لتحليلها .. بس الملف مفيهوش أي مشكلة. الملف الثاني أيوا فيه أخطاء المفروض إننا لازم قبل أي شيء الإشارة لنطاق محدد في الأسطر اللي في الكود خاصتك مفيش إشارة فطبيعي إنه يكون غط راجعي الكود اللي تفضل بيه الأخ الجموعي وشوفي الفرق .. وصححي الخطأ بنفسك أرجو ان تكونوا قد استفدتم إخواني الكرام دمتم في رعاية الله وحفظه

الأخ الحبيب حماده عمر العفريت أخيرا ظهرت كنت فين يا ابني .. بتظر فجأة وتختفي بعديها هو انت عفريت بجد .. ليك وحشة كبيرة والله .. فين أراضيك؟؟؟ مشكور على متابعتك لموضوعي المتواضع الأخ محمد لطفي ...شكرا على الحلاوة أول واحد يقدم لي حاجة عينية .. ربنا يبارك فيك على متابعتك لموضوعي البسيط بس مين سان توب ده ؟ دا جاي من سان فرانسيسكو !!

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

تفضل أخي الغالي Private Sub UserForm_Initialize() Me.Caption = ActiveSheet.Name End Sub

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

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

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

والله إنت محير نفسك .. إنت دلوقتي قلت فيه مدارس ب وث وع بتكون بنفس الاسم يبقا الشرط الأول الاسم والشرط التاني مش هيكون الرمز ولا هيكون البلدية هيكون نوع المؤسسة : ابتدائي إعدادي ثانوي أنا كدا فاهم صح ولا غلط وضح الأمور حتى تكون على بينة من أمرك كل الأكواد تعمل بشكل ممتاز وخصوصا كود العلامة عبد الله فوق الرائع ..حدد شروطك بشكل أدق ليس فيه أدنى شك

سأعمل عليه ليلا إن شاء الله .. إن لم يتدخل أحد الأخوة الكرام

تفضل أخي جرب المرفق التالي يختار او لايختار.rar