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

اخوتى فى هذا الصرح العلمى الكبير اعتذر لكل الاعضاء بالمنتدى عن كل شئ سئ صدر منى فى اى وقت وفى اى ظرف منذ اشتراكى فى هذا الصرح بتاريخ 26-4-2014م والى اخر مشاركة لى بالمنتدى الان بما فيهم الاخ العرب نت فلكل شئ بدايه ونهايه اسال الله تعالى لكم التوفيق والسداد وكل عام وانتم بخير بحلول رمضان المبارك واتمنى لا تنسونا من صالح دعائكم لى بالهديه فأنا احوج ما يكون لها تقبلوا جميعا تحياتى وحبى وتقديرى لكل عضو بالمنتدى منذ نشأته

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

السلام عليكم تعمدت ان اضع هذا الموضوع مستقل عن سلسلة الشروحات كي يتمكن الجميع من رؤية الموضوع لمن لم يتابعوا السلسلة اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 كثير منا يقوم ببناء برنامجه ولكن تظل مشكلة تفعيل الماكرو العائق امام تشغيل برنامجنا على اجهزة اخرى فيضيع علينا اظهار الانطباع الاول لبرنامجنا واللي ميعرفشي موضوع البرمجة ويلاقيك محتاس عمال تفعل الماكرو كل ما تشغله على جهاز جديد يقول انك مش محترف المهم عشان نشغل برامجنا على اي جهاز بدون تفعيل الماكرو وانسى الماكرو خالص قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا وتبدأ كما بالصورة لمدة نحددها نحن وبعدها تختفى ويفتح لنا البرنامج بدون تفعيل الماكرو كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج ونغير اسم برنامجنا الى ما هو موضح بالصورة Yasser.xlsm وهذا مؤقت فقط لحين شرح كيفية عمل هذه الشاشة الافتتاحية وتحطوا اي اسم لبرنامجكم وطبعا الامتداد xlsm ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من البرنامج التنفيذي المهم كل واحد عنده ملف به اكواد ماكرو يقدر يعطل الماكرو عنده ويحط ملفه بجانب هذا الملف التنفيذي ويقوم باعادة التسمية ليصبح Yasser.xlsm ويقولي ايه رأيه الملف مرفق به طريقتين لعمل الملف التنفيذي تستطيعوا تجربة اي واحد تقبلو تحياتي ياسر العربي يتبع start.rar شرح طريقة عمل البرنامج اضغط هنا

اتمنى ان يكون هذا المطلوب فرز النصوص بناء على عدد الكلمات.rar

دعوة لبدء قاعدة بيانات شئون موظفيين شاملة لما لاحظت كثرة التساءل بالمنتدي من استفسارات وطلبات كثيرة حول موضوع شئون الموظفيين وادارة الوثائق بمختلف انواعها وبالبحث بالمنتدي وجد الكثير من اعمال اخواني ومعلميني الأقاضل وعلي رأسهم اخينا المبدع ومعلمنا الجليل الأستاذ / عبدالله باقشير واخي الفاضل الأستاذ/ أحمد فضيلة (صاحب الافكار الجميلة) وأخي ومعلمي الأستاذ / عبدالله المجرب واكواد لاخي الاستاذ / عباد نصار واخي بن علية واستمسحهم واستسمح من استخدمت عمله وارجوا السماحة فالهدف المصلحة العامة ----------------------- نبذة عن قاعدة البيانات اولا: معالجة البيانات الخام من ادخال بيان موظف جديد او البحث عن موظف مع خيارات الحذف والتعديل. وخيارات بحث (بحث بالرقم الوظيفي ) او بحث برقم الهوية / الاقامة- لضمان عدم تكرار الرقم او تشابه ثانيا اعداد تقرير تفصيلي عن حالة موظف معيين بامكانية الطباعة من الفورم وايضا طباعة بي دي اف لارسالها بالبريد وعمل باركود للموظف يحتوي علي رقم الهوية حتي لا يتكررواستخدامه في ملف الموظف ثالثا الصلاحية وتتم فيها معالجة البيانات المدخلة وتحتوي علي - جلب البيانات من صفحة الادخال ومعالجتها واظهار الوثائق المنتهية بالفترة واليوم مع بيان للحالة امكانية الطباعة وعمل تقرير شامل حسب الصلاحية - التصفية مع تقرير بالوثائق المنتهية والسارية علي حدة - التصفية والفرز حسب الجنسية مع تقرير عن كل جنسية - التصفية والفرز حسب المهنة مع تقرير علي كل مهنة - التصفية والفرز حسب الفترة انتهاء الصلاحية (30-60-90 يوم) التعامل مع التاريخيين الهجري والميلادي جاري ان شاء الله تحديث القاعدة لتشمل - امكانية استيراد البيانات من برنامج مقيم بالسعودية - بيان بالاجازات التي حصل علي الموظف واحقيته ف اجازاته السنوية ( جاري العمل عليها) - تقرير عن الراتب الاساسي والبدلات التي يستحقها الموظف شاشات سهلة التعامل وارجوا من الاخوة الكرام لا يبخلوا علينا بافكارهم للتطوير القاعدة بما يتناسب معظم احتياجات الموارد البشرية كلمة مرور القاعدة الدخـول = 2300 حماية الصفحات (2300) DataBase Sheet = 1948 VB Password= Dahy تغيير كلمة المرور للدخول ولحمايــة الصفحات في Sheet8.[zz19760] sheet8.[zz19761] بدون الدخول لمحرر الاكواد مرفق مع الملف ملف الخطوط (حتي يظهر الباركود) ويوضع بالمسار C:\Windows\Fonts توضع صور الموظفيين في نفس مسار ملف قاعدة البيانات ( اذا اردت ارفاق صورة الموظف مع التقرير) وما التوفيق الا من عند الله وهذ بعض الشاشات وان شاء الله ان تكون فيها الفائدة ولو بالقليل لاخواني بالمنتدي officena.rar

الف مبروك اخي الكريم عبد السّلام أبو العوافي على الترقية المستحقة وفقك الله وايانا لما فيه الخير تقبل فائق احترامي

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

السلام عليكم اليوم اضع لكم شرح حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 بداية الشرح اولا سنقوم بعمل مشروع جديد ليظهر معنا فورم واحد وهو المطلوب لكي يتم ربط الاكسيل مع الفيجوال لابد من وجود مرجع يعتمد عليه البرنامج للتعامل مع الاكسيل وهذه صور من دروس سابقة لمعرفة كيفية اضافة مرجع لبرنامج الاكسيل داخل المشروع الخاص بنا صور من درس سابق لربط الفيجوال بالاكسيل بعد ان قمنا باضافة المرجع الخاص بالاكسيل نأتي لمشروعنا دا شكل الفورم وكوده هتضيف صورة او ليبل حسب ما تشوفه مناسب ليك ودا بدون اي اكواد عادي نأتي للكود نضع في الحدث load الكود التالي Private Sub Form_Load() Dim Start, Finsh Form1.Show Start = Timer Finsh = Start + 5 Do Until Finsh <= Timer DoEvents Loop Unload Me Excel.Workbooks.Open App.Path + "\yasser.xlsm" Excel.Application.Visible = True End Sub الكود عبارة عن اعلان عن متغيرين بداية ونهاية البداية تساوي التايمر النهاية تساوي التايمر + اي وقت تضيفه لفترة عرض الفورم كشاشة افتتاحية وبعد كدا ندخل في حلقة تكرارية حتى تكون النهاية اقل من او تساوي الوقت وبعد تحقق الشرط يتم غلق الفورم وفتح ملف الاكسيل وعرضه في الوضع المرئي وبكدا يكون انتهينا من الدرس الكل مستغرب فيين كود تفعيل الماكرو اقوله مفيش ليه اقوله لان تشغيل ملف الاكسيل عن طريق ملف تنفيذي يجبر وحدات الماكرو على العمل حتى وان كانت غير مفعله الفكرة موجودة من زمان بس محدش كان واخد باله منها لاننا كنا بنقوم بربط ملف عادي وليس به اي وحدات ماكرو وطبعا نقوم بتحويل الملف لملف تنفيذي بعد الانتهاء بالنسبة لمن لديه اي صعوبات في التعامل مع الفيجوال6 يتابع الدروس من اولها حتى يتثنى له انهاء هذا العمل اما بخصوص من لديه الرغبة في وضع هذه الشاشة الافتتاحية ولا يريد ان يشغل باله اقوله ايضا سأقوم بعمل ملف به خيارات لضبطه كما تحتاج للردود او الاستفسار يرجى الدخول على هذا الرابط مرفق السورس كود للبرنامج لمن لا يريد وجع دماغه تقبلو تحياتي ياسر العربي يتبع vb6 &vba.rar

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

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

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

أخي الحبيب ياسر خليل في هذا الزمن وللاسف الجهلاء والفاشلين لهم قيمة وتكون الاذن منصتة لهم في كل حرف ولكن بإذن الله عزوجل لايصح الا الصحيح بس يجب اتخاذ اجراء في هذا الفايروس كما قال أخونا جلال الجمال

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

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

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

اخى وحبيبى فى الله واستاذى الكبير ابوالبراء يعلم الله كم احبك فى الله وأسال الله تعالى ان يستظلنا بعرشه يوم لاظل الا ظله والله انا لا صاحب عقليه ولا شئ انا زى اللى بيجرب حظه مره تصيب ومره تخيب ههههههههههه تسلم يا غالى على مرورك العطر وكلمات الطيبه وبلغى سلامى للبراء - اتصلت بيك من يومين جوالك كان مغلق المهم هبقى اتصل بيك علشان عايز اسلم على البراء ومريم تقبل تحياتى

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

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

السلام عليكم ورحمة الله وبركاته أحب أن أهنيء الأخ العزيز عبد السلام أبو العوافي بمناسبة ترقيته عضو خبير ، وهو بالفعل يستحقها بجدارة ألف مبروك أخي الحبيب عبد السلام ومن تقدم إلى تقدم ، وإلى الأمام دائماً

السلام عليكم يا جماعة الخير عندي نافذة برنامج أكسس ، أضفت فيها زر أريد اضع فيه كود لإيقاف تشغيل الكمبيوتر اللي يعرف الكود يزودنا فيه بالخير (( عندي الوندوز - وندوز عشرة ) وشكرا لكم

كان احد السادة عرض نفس الموضوع سابقا منذ ايام وضعت اجابة و لكنه لم يبدي اي راي فيها .. كان طلبه كالتالي: 1- نقوم بترتيب الطلبة العشرة الاوائل وفقا لمعدلهم و بالطبع من الاكبر الى الاصغر 2- الترتيب يكون باظهار كل العشرة الاوائل مختلفي المعدل بمعنى في حالة مثلا تساوي طالبين في المعدل فانه في المحصل يظهر 11 طالب مثلا 1-2-2-3-4..الخ ( لان الترتيب النموذجي حسب الاكسل يكون باظهار العشرة الاوائل فقط و في حالة تساوي طالبين في المعدل يظهر 1-2-2-4....الخ 2- في حالة تساوي معدلات الطلاب نقوم بالتفريق بينهم على اساس السن و الاولية للاصغر سنا 3- في حالة تساوي السن تكون المفاضلة حسب الترتيب الابجدي للاسماء.......... .... النتيجة التي توصلت اليها تكون من الشكل 3/1(1) 3/1(2) و تعني 3 : ان الطالبان ترتيبهما حسب معدلهما هو الثالث 1 : ان الطالب حسب سنه هو الاول و اذاكان متساويان في السن سنجد 1 و 1 و بالتالي نذهب لقراءة الرقم وراء القوس و هو الذي يعبر عن الترتيب الابجدي New WinRAR archive.rar

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

الله يحفظ ويصون الاستاذ المحترم عبد السلام ابو العوافي وانت يا استاذ باسر احسنت الاختيار

السّلام عليكم و رحمة الله و بركاته و الله لم أجد ما أضيف عمّا ذكره أخي الغالي " محمّد حسن المحمّد " بصفة خاصّة و بقيّة الإخوة الأفاضل بصفة عامّة في الحقيقة : ما رأيت منهم على العموم إلا الأخوة والمحبة والإيثار وبذل العلم وتبسيطه حتى للمبتدئين أمثالي.فإن كان هناك منهم من يكتم علماً فإن العالم واسع ووسائل التواصل الاجتماعي كثيرة يستطيع أن يجد كل منا ضالته دون هذا السخط على الناس ...لافضل لنا على أحد ... ولذلك فإنني أربأ بإخوتي عن كل كلام ينال منهم وأطلب منهم أن يكون لديهم خفض جناح لإخوانهم فما كتبه أخونا قد يكون له دافع ما ..نعذره عليه وهذا ما أرجوكم كما أطلب من أخي حسام أن لا يتسرع بقراراته التي قد تضر بإخوته إن هو حرمهم نعمة وجوده بينهم ومتابعة أعمالهم وتطوير عمل المنتدى الكريم والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين...

انسخ هذه المعادلة الى الخلية D1 واسحب نزولاً =IF(C1<>"",TEXT(TODAY(),"dd/mm/yyy"),"")

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق الشرح بالفلاش من المبدع / على السحيب و لا تنسونا من صالح الدعاء تحياتى كيفية عمل قائمه منسدله_فلاش.rar

تحياتى لشخصكم الكريم استاذ / ناصر سعيد

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

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

عندما نترابط بقوة يصعب ان نفك هذا الرباط

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

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

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

اساتذتى الافاضل فى هذا الصرح العلمى كثيرا ما نواجه عناء وتعب الاختيار من القائمه للكمبوبوكس خاصه لو كان القائمة تحتوى على 2000 صف مثلا فيكون الاختيار من القائمة امر شاق ومرهق واستمراراً فى البحث عن ابتكار شئ جديد يفيدنا جميعا أقدم لكم اليوم كود فى حدث تغيير الكمبوبوكس لحل هذه المشكله وتوفر علينا عناء البحث بمجرد كتابة حرف ( عربى او انجلش) او رقم او علامه مثل ( & * / # وغيرها ) ستجد الكمبوبوكس تم فلترة القائمه طبقا لما تريد البحث عنه أقدمه لكم صدقه جاريه على روح المغفور له بأذن الله استاذى / عماد الدين الحسامى لا تنسوا الفقيد من صالح دعائكم اسال الله تعالى ان يتغمده بواسع رحمته تقبلوا تحياتى اخوكم وتلميذكم / حسام كمبوبوكس طبقا للبحث - الصقر.zip

أخي العزيز هشام محمد شرقاوي لغة البرمجة تعني المنطق في الطلب ، وقد طلبت أمراً ما ، ويوجد الكثير من الاحتمالات ..فقم بتحديد أي الاحتمالات أقرب إليك والذي يمكنه أن يحل مشكلتك بشكل جذري .. مع العلم بأن الاحتمالات التي أرفقتها هي مجرد جزء من الاحتمالات إذ أنني أدرجت لك فقط الاحتمالات التي تحمل أرقام صحيحة مع العلم يوجد احتمالات لكسور ..أي أن الموضوع بهذا الشكل غير منطقي حاول تحدد معايير للاحتمال المطلوب .. ما رأيك مثلاً في أن يكون المجموع (على سبيل المثال 185) يقسم على 2 والناتج أو أقرب ناتج له يكون الأساس في العمل إذا كنت توافقني هذا الاقتراح فأعلمني بذلك ، وإذا كان لديك فكرة أخرى أو اقتراح آخر فلتتفضل به وإن شاء الله نصل لحل .. تقبل تحياتي Goal Seek To Calculate Tax YasserKhalil Officena.rar

اخى الكريم الكود صحيح ولكن استبدل Me.Refresh استبدلها بالسطر التالى قبل تنفيذ سطر الحذف Me.Requery

المرفق sedo.rar

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

لا أعلم لماذا تتكرر المشكلة.. سأعاود إرفاق الملف add shapes.rar

أخي الكريم أبو حمادة يبدو لي أنك تقوم بتغييرات في الكود .. مما يتسبب في حدوث مشاكل إليك الملف المرفق التالي لم يتم فيه تنفيذ الكود .. يعني نسخة أصلية كما أرفقتها في مشاركة سابقة .. جرب الملف وأعطي ملاحظاتك !! انقر على صورة "إنا فتحنا لك فتحاً مبيناً" ... لو فيه أية ملاحظات يرجى ذكر ملاحظة واحدة فقط .. وتذكر كيف حدثت المشكلة ؟ أي ما هي الإدخالات التي سببت المشكلة؟ لن ارفق أكواد .. سأرفق ملف مرفق وأمري لله Filter Data By Dates & Transfer Skipping Formula Rows YasserKhalil.rar تم تعديل الملف المرفق .. دعك من الإصدار الأول للملف ..جرب الملف التالي (الإصدار الثاني) حيث اكتشفت بعض الأخطاء وتمت معالجتها إن شاء الله Filter Data By Dates & Transfer Skipping Formula Rows YasserKhalil V2.rar

أخي الكريم محمد عبد الناصر بعد الإطلاع على ملفك جرب التعديل التالي أولاً الموديول رقم 1 قم بوضع الكود التالي بدلاً من الكود الموجود حيث تمت إضافة بعض الأسطر Public PrvntPrnt Sub Print_Specific_Pages_In_ActiveSheet() Dim Arr, SH As Worksheet, Rng As Range, Cell As Range, I As Long Set SH = ActiveSheet PrvntPrnt = 1 With SH ReDim Arr(0 To .HPageBreaks.Count + 1) If Len(.PageSetup.PrintTitleRows) Then Set Rng = .Range(.PageSetup.PrintTitleRows) Arr(0) = Rng.Rows(Rng.Row + Rng.Rows.Count).Row Else Arr(0) = 1 End If For I = 1 To .HPageBreaks.Count Arr(I) = .HPageBreaks(I).Location.Row Next I Arr(UBound(Arr)) = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1 For I = UBound(Arr) To (LBound(Arr) + 1) Step -1 Set Rng = Intersect(.Rows(Arr(I - 1) & ":" & (Arr(I) - 1)), .UsedRange, .Columns("G")) If Not Rng Is Nothing Then For Each Cell In Rng If Cell.Value > 0 Then On Error GoTo Skipper .PrintOut From:=I, To:=I Exit For End If Next Cell End If Next I End With Skipper: PrvntPrnt = 0 End Sub ثانياً قم بوضع الكود التالي في حدث المصنف ThisWorkbook Const Warning As String = "Warning" Private Sub Workbook_Open() Dim Ws As Worksheet PrvntPrnt = 0 Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets Ws.Visible = xlSheetVisible Next Ws Sheets(Warning).Visible = xlVeryHidden Application.ScreenUpdating = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Ws As Worksheet Application.ScreenUpdating = False Sheets(Warning).Visible = xlSheetVisible For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> Warning Then Ws.Visible = xlVeryHidden End If Next Ws Application.ScreenUpdating = True ActiveWorkbook.Save End Sub Private Sub Workbook_BeforePrint(Cancel As Boolean) If PrvntPrnt = 0 Then Cancel = True: MsgBox "PRINT Disabled", vbCritical End Sub ولا تنسى أن تقوم بتعيين الماكرو في زر الأمر الموجود في ورقة العمل Sheet1 ..كليك يمين على زر الأمر ثم Assign Macro واختر الإجراء الفرعي المسمى Print_Specific_Pages_In_Activesheet لابد أن تقوم بتنفيذ الخطوات بنفسك لتتعلم وترتقي والموضوع ليس بمستحيل ولا بصعب .. يمكنك الرجوع إلى موضوع "بداية الطريق لانقاذ الغريق" لتعرف التعامل مع البدايات والأساسيات للتعامل مع محرر الأكواد رابط الموضوع من هنا

أخي الكريم أبو حمادة يرجى فيما بعد في أي موضوعات قادمة أن يكون الملف المرفق معبر عن الملف الأصلي .. لاحظ أنني طلبت منك أكثر من مرة إرفاق ملف وفيه المعادلات في الخلايا الخضراء ولم تستجب ، فهل إذا لم تستجب لمطلبي ترى هل يمكن أن أستجيب لمطلبك ؟؟!! راعي الآخرين كما تحب أن يراعيك الآخرون جرب الكود التالي عله يفي بالغرض (الكود استغرق مني أكثر من 3 ساعات فلا تنسانا بدعوة بظهر الغيب) Sub Filter_Transfer_Data() Const nGroup As Long = 25 Const nInsert As Long = 3 Dim Ws As Worksheet, Sh As Worksheet Dim myDate1 As Date, myDate2 As Date Dim arr1 As Variant, arr2 As Variant Dim I As Long, J As Long, P As Long Set Ws = Sheets("add") Set Sh = Sheets("Aldata") Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Sheets("Temp").Delete Sheets.Add.Name = "Temp" On Error GoTo 0 If IsDate(Sh.Range("W2")) And IsDate(Sh.Range("W3")) Then myDate1 = Sh.Range("W2"): myDate2 = Sh.Range("W3") myDate1 = DateSerial(Year(myDate1), Month(myDate1), Day(myDate1)) myDate2 = DateSerial(Year(myDate2), Month(myDate2), Day(myDate2)) End If With Ws .AutoFilterMode = False .Range("A2:R2").AutoFilter Field:=15, Criteria1:=">=" & myDate1, Operator:=xlOr, Criteria2:="<=" & myDate2 .Range("A2:R2").AutoFilter Field:=17, Criteria1:=Sh.Range("U3").Value .Range("A2").CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheets("Temp").Range("A1") .AutoFilterMode = False End With On Error Resume Next Sh.Range("A6:R10000").SpecialCells(xlCellTypeConstants).ClearContents arr1 = Sheets("Temp").Range("A1").CurrentRegion.Value I = ((UBound(arr1, 1) \ nGroup) + 1) * (nGroup + nInsert) arr2 = Sh.Range("A6").Resize(I, UBound(arr1, 2)).Formula For I = 1 To UBound(arr1, 1) P = P + 1 For J = 1 To UBound(arr1, 2) arr2(P, J) = arr1(I, J) Next J If I Mod nGroup = 0 Then P = P + nInsert Next I Sh.Range("A6").Resize(UBound(arr2, 1), UBound(arr2, 2)).Formula = arr2 Sheets("Temp").Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub تقبل تحياتي

وعليكم السلام أخي الكريم وليد ضع الكود التالي في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("E2:H7")) Is Nothing Then If Target.Value = Target.Offset(, -4).Value Then Target.Offset(, -4).ClearContents End If End Sub بالنسبة لطلبك الثاني الخاص بنسبة الإنجاز لم توضح كيفية وآلية حساب النسبة؟

تفضل التعديل مع العلم يجب تفعيل الفنت المرفق بالبرنامج اما عن طريق نسخه بفولدر اسمه Fonts داخل مجلد الويندز لديك أو من خلال فتح الفونت والضغط على زر install كما بالصور BarCodeFont.rar

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

وعليكم السلام ورحمة الله وبركاته وحياك الله بين اخوانك الحل : fldDay: Format([fldDate];"dddd") fldDate هو حقل التاريخ fldDay هو الحقل الذي تريد عرض اسم اليوم فيه

اليك أخي كل ماتريد وأي شئ أنا تحت أمرك قائمة منسدلة 2.rar

بسم الله الرحمن الرحيم دالة VLOOK2ALL ( النسخة الاولى ) داله جديدة لتضاف لسلسلة الدوال العربية ليكون الاكسيل طوع بنانك دالة VLOOK2ALL تستخدم للبحث عن حالات ظهور إحدى القيم فى العمود الأول من جدول ثم ارجاع إحدى القيم فى نفس الصف من أحد الاعمدة التى تحددها فى الجدول فنحن نعرف دالة VLOOKUP التى تستخرج قيمة من جدول وهى دائما اول قيمة فى العمود الاول فماذا اذا كنت تريد استخراج ثانى قيمة او ثالث قيمة وماذا ايضا اذا اردت استخراج كل القيم وليس واحدة او اثنين او ثلاثة دالة VLOOK2ALL تقوم بما تعجز عنه دالة VLOOKUP الموجودة بالاكسيل فهى عربية بأيدى عربية لتطويع الاكسيل ليكون طوع بنانك بناء الدالة VLOOK2ALL( عمود_النتيجة; رقم_الظهور; قيمة_البحث; جدول_البيانات ) المدخل الاول : جدول_البيانات هو جدول المعلومات الذي يتم البحث فيه عن البيانات ( قيمة_البحث ) فى العمود الأول منه استخدم أحد المراجع لأحد النطاقات أو أحد أسماء النطاقات، مثل MyRng المدخل الثانى : قيمة_البحث هو القيمة التي سيتم البحث عنها في العمود الأول من جدول_البيانات يمكن أن تكون قيمة_البحث قيمة أو مرجع أو سلسلة نصية المدخل الثالث : رقم_الظهور هو رقم ظهور قيمة_البحث فى العمود الاول من جدول_البيانات فإذا كانت قيمة رقم_الظهور مساوية 1 فستكون قيمة_البحث هى اول قيمة فى العمود الاول و إذا كانت قيمة رقم_الظهور مساوية 2 فستكون قيمة_البحث هى ثانى قيمة فى العمود الاول وهكذا المدخل الرابع : عمود_النتيجة هو رقم العمود فى جدول_البيانات الذي يجب إرجاع القيمة المطابقة منه يقوم عمود_النتيجة الذى قيمتة 1 بإرجاع القيمة من العمود الأول في جدول_البيانات و يقوم عمود_النتيجة الذى قيمتة 2 بإرجاع القيمة من العمود الثانى في جدول_البيانات وهكذا الملف المرفق به شرح الدالة ومثال للتوضيح VLOOK2ALL.rar

بسم الله الرحمن الرحيم تحياتى الى الجميع احتفالا منى بالثوب الجديد للمنتدى . قررت المساهمة بمشاركة ذهبية حصلت عليها فى احدى ابحاراتى الاولية وكانت على سفينة الصحراء وليست جوية او بحرية بل كانت على الجمال . مش راح تصدق ...............................................! دالة "IFYES" مع 112 احتمال ...................................! فى معادالة واحدة معقول !!! ده يبقى جنان فى جنان ونبقى محتاجين علام من جديد . حقيقى لم نقدم للاكسل اى شئ حتى الان غير الكـــــــــــــلام . دالة "IF" فى الوضع العادى تعطى شرط واحد و احتمالين اثنين فقط وفى الوضع المركب منها بأمكانها ان تصل بنا الى سبعة "IF" مع ثمانية احتمالات . ويمكن الوصول بها الى مئات الاحتمالات فى حالة تمرير النتيجة الى خلايا اخرى ثم حصد النتيجة النهائية . دالة اليوم اسمها " إف_صح " فى الوضع العادى منها تعطى 18 ثمانية عشر احتمال . وفى الوضع المركب منها فقط تعطى 112 مئه واثنى عشر احتمال . اما فى حالة التمرير تعطى الآف الاحتمالات . سوف تجد الدالة مع الدوال فى ( معرفة بواسطة المستخدم ) . وطريقة عملها اسهل من "IF" بدون تكرار اسم الدالة زى "IF" العقيمة . ومرفق لكم ملف به مثال للتدريب عليها احتفالا بالثوب الجديد للمنتدى . واذا عجبكم الموضع نبدأ فى تجهيز دالة " إف_خطأ " وهى معكوس دالة " إف_صح " مع تحيات تامر عمر المرفقات دالة ( IFYES ) احتمالات اكثر من دالة ( IF ) العادية مع سهولة اكثر فى التعامل IFYes.rar