الصـقر

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

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

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

الاخت الكريمة انا بحث عن هذا الكود () Sub Rappel_eleves اللى انتى عايزه الشرح له غير موجود بالملف ممكن اعرف هو فى اى مودويل

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

استاذى جرب المرفق لا يتم حذف البيانات الاصليه المصنف1.zip

استاذى ايهاب ممدوح انظر الملف المرفق هل هو المطلوب بعد تعبئة البيانات اضغط على الزر تقبل منى الاحترام والتقدير المصنف1.zip

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

1-عدم الرغبه فى التعلم معظم الاعضاء لا يوجد عندهم رغبه فى تعلم واضافه شئ جديد لخبرتهم فالبعض وهم كثر يطلب طلبه وينتظر الرد ثم يترك المنتدى ويمكن لا يدخله مره اخرى ولم يفكر لو كل واحد مننا فكر بالمنطق ده يبقى هذا الصرح العلمى العظيم لن يستمر فالمتأمل فى هذا المنتدى يجد الاساتذه معدودين على صوابع اليد والباقى خبراتهم محدوده علما ان عدد الاعضاء حتى هذه اللحظة (106946) فكيف يخدم بضع اشخاص هذا العدد 2- عملية البحث على الرغم ان معظم الموضوعات الجديده مكرره وتم الاجابة عليها من سنوات عديده فهذا الصرح العلمى من اكثر من 10 سنوات اعتقد من 2004 م فان العضو قبل ان يقوم بعملية البحث يعمل موضوع جديد على طول اتمنى من الزملاء حاجتين 1- قبل طرح موضوعك استخدم خاصية البحث 2- حاول بقدر الامكان تعلم كيف تم عمل طلبك / اسال ليس فى السؤال من حرج ويوجد العديد من الحلقات والشروحات وعلى سبيل المثال لا للحصر حلقات افتح الباب للاستاذ العلامه / ياسر خليل وحلقات الاستاذ/ محمود الشريف وحلقات الاستاذ / ضاحى تعلم اليوم شئ جديد لتفيد غيرك غدا وتقدم للمنتدى ما قدمه لك ويستمر المنتدى ممتد الى ابد الابد اتبع لا تعطينى سمكة ولكن علمنى كيف اصطاد نريد اضافه كل يوم للمنتدى خبير واستاذ متمكن جديد يخدم الاعضاء فى الفترة المقبله اسف على الاطاله ولكنها مجرد وجه نظر وتقبلوا احترامى وتقديرى

اخى الكريم الملف لا يفتح يعطى شاشه زرقاء فقط

تم تعديل الكود هل هو المطلوب TIST.zip

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

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

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

اتمنى من الادارة فتح الموضوع للتعديل والاضافه اريد الشرح كله لهذا الموضوع يكون بمشاركة واحده . ارجو ذالك

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

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

اخى الكريم حضرتك تقصد طريقه مثل ctrl +z اعتقد لا يوجد طريقه للتراجع

اخى وحبيبى الاستاذ / محمد الريفى شكرا على مرورك العطر تقبل منى وافر الاحترام والتقدير

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

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

استاذى/ ابراهيم ابوليله الف شكر ليك ولكن هل يوجد طريقه من خلال منتدى اوفيسنا

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

الاخوة الزملاء فى هذا الصرح العظيم اقدم لكم شرح مبسط عن msgbox فى لغة البرمجه VBA فى البداية كلنا نتفق ان اى عمل فى الاكواد يتطلب فى اغلب الاحيان وجود رساله تحذيرية للمستخدم او رساله معلوماتية او رسالة فى صيغه سؤال الرساله عبارة عن 3 أجزاء وهى كالتالى "title عنوان الرساله",BUTTONS الازرار,"text نص الرساله " msgbox نلاحظ ان ما بين كل جزء يوجد هذه العلامه ( , ) وتكتب من خلال الضغط على shift+حرف و بالعربى اولا نقوم بشرح الجزء الاول من الرساله وهو "نص الرساله " نقوم بفتح محرر الاكواد من خلال ALT+F11 ُم ادارج مودويل جديد للعمل علية اول نوع من الرسائل هى النوع العادى مثال 1 لو حبينا نعمل رساله ونكتب فيها ( كلنا بنحب أوفيسنا ) اول شئ نعمل ادراج مودويل جديد ونكتب فيه الكود التالى Sub hossam() MsgBox "كلنا بنحب أوفيسنا" End Sub نلاحظ فى الكود ان فى ثلاثة اسطر السطر الاول وهو اسم الكود وهو هنا اسمه Hossam ويمكن تغيير الى اى اسم تحبه انت الثانى وهو الكود الذى يتم تنفيذه وفى المثال السابق هو تنفيذ رساله كلنا بنحب اوفيسنا (كيف يتم كتابة الرساله) msgbox ثم "الرساله" نلاحظ ان الرساله بين علامتين تنصيص اى الضغط على shift+حرف ط بالعربى من لوحه المفاتيح لو رجعنا الى قمنا باغلاق محرر الاكواد ورجعنا الى ورقة العمل 1 من زر Developer بشريط القوائم الضغط على اول زر فوق ناحية اليسار ثم رسم الزر على ورقة العمل ستظهر لك قائمة بها كل الاكواد التى قمت بعملها اختار منها كما هو بالمثال hossam لو قمنا بالضغط على هذا الزر ستظهر لنا الرساله التالية مثال 2 عمل رساله من شقين شق ثابت وهو الرساله وشق متغير مثلا "عدد الطلبه فى الفصل الاول" & ( الرقم بالخلية A1 ) يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبه فى الفصل الاول " & Range("A1").Value End Sub وهنا نلاحظ ان بعد الانتهاء من الرساله وضعنا علامه & ثم Range("A1").Value اى الرقم اللى موجود بالخلية A1 وهو كما هو بالصورة 15 عند الرجوع الى ورقة العمل والضغط على الزر ستظهر لنا الرساله كما هو مبين بالصورة مثال 3 نريد عمل رساله فى سطرين يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبة فى الفصل الاول " & Range("A1").Value & vbNewLine & "عدد الطلبة فى الفصل الثانى" & Range("A2").Value End Sub نلاحظ هنا هذا هوالجزء الاول من الرسالة Range("A1").Value & "عدد الطلبة فى الفصل الاول " MsgBox نفس الكود السابق ثم علامة & vbNewLine & أى عمل سطر جديد ثم السطر الثانى من الرساله Range("A2").Value & "عدد الطلبة فى الفصل الثانى" MsgBox وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الرساله التالية كما موضح بالصورة الحمد لله انتهينا من الجزء الاول وهو نص الرساله وعرفنا انى ممكن يكون نص ثابت كما هو بالمثال الاول وممكن يكون جزء ثابت وجزء متغير كما هو بالمثال 2 وممكن يكون جزء ثابت ومتغير اكثر من مره على سطرين كما بالمثال 3 ثانيا: نقوم بشرح الجزء الثانى من الرساله وهو BUTTONS الازرار BUTTONS الازرار,"text نص الرساله " msgbox قبل ان نبداء بشرح هذا الجزء ننظر الى الصورة التالية شكل الزر رقمه الاسم فى اول مثال من الشرح وهو عمل رساله ثابته "كلنا بنحب أوفيسنا" فاذا اردنا عمل رساله "هل تحب أوفيسنا " هنا صيغة سؤال اى يوجد له اجابة اما نعم او لا اذن لابد من وجود ازرار فلو حبينا نعمل كود يكون كالتالى Sub hossam() MsgBox "هل تحب أوفيسنا ؟", vbYesNo End Sub وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الصورة التالية كما موضح بالصورة كما يمكن ايضا كتابة الكود بتلك الطريقه وهى استبدال vbYesNo بالرقم 4 كما هو موضح بالجدول اعلاه ويكون الكود كالتالى Sub hossam() msgbox "هل تحب منتدى اوفيسنا؟",4 End Sub

اخى الكريم ارفق ملف للعمل علية