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

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

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

أستاذى العزيز بارك الله فيك الفكرة جميلة جعلها الله فى ميزان حسناتك أنا بزورك اهــــه وايدى مش فاضيه : ' الكود التالى للحفظ والخروج التلقائى من اكسل يوضع فى حدث الـ Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub الكود التالى : مديول عادى للحفظ والخروج من الملف Sub Close_File() ThisWorkbook.Save ThisWorkbook.Close End Sub الكود التالى مديول عادى للحفظ والخروج نهائيا من اكسل Sub Close_Excel() ThisWorkbook.Save Application.Quit End Sub ملحوظه هامة أرجو تعديل المرفق بحيث يكون العمل من خلال اليوزرفورم فقط تحياتى لكم

كما وعدت احبابي فيديو شرح كيفية استعمال الأداة الإضافية ولا ينقصني سوى دعاؤكم

السلام عليكم ورحمة الله وبركاته ****************** نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم (مكتبة الصرح .. زاخرة بالشرح) بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه .. ** رجاء من الأخ عبد الله .. إضافة للفورم في هذا الملف أن تكون عملية البحث غير مقتصرة على عناوين الأكواد فقط ، بل تشمل عمليه البحث الـ ListBox الذي يحوي الأكواد نفسها ، وكذلك صفحة التعليمات ، حتى يسهل فيما بعد على الباحث أن يصل لمراده بسهولة .. الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد.. من هنا بإذن الله ستكون الإنطلاقة الكبرى نحو المشروع الكبير .. وسأحاول جاهداً أن أبدأ عملية بناء المكتبة بشكل منظم يسهل على الباحث فيما بعد الوصول للكود الذي يرغبه ، ويعرف كيف يقوم بتطبيق الكود بنفسه دون الحاجة لغيره .. يعني مبدأ الاعتماد على النفس في تطبيق الأكواد.. وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية .. ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات . أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع) Codes Library.rar

السلام عليكم أساتذتى واخوانى بالمنتدى تناولت فى موضوعى السابق طريقة نقل بيانات من ملف مغلق الى ملف مغلق أخر بطريقة تسمى ado وهى اختصار للعبارة ActiveX Data Objects بدأ العمل بها فى مايكروسوفت 1996 تستخدم هذة الطريقة فى ترحيل ونقل البيانات بين الملفات استخدمت هذه الطريقة فى جلب البيانات الى شيت رئيسى ثم ربطت الشيت الرئيسى بشيت آخر بلينك . بعد ذلك قلت لنفسى لو عندى كود لادخال البيانات الى ملف مغلق يبقى الأمر 10/ 10 ثم بحث عن كود ووجدت واحد فى أحد المواقع الأجنبية وقمت بتعديله بطريقة لا يشعر فيها المستخدم بأن الملف ده اتفتح والتفاصيل هنا : http://www.officena.net/ib/index.php?showtopic=57798 والحمد لله تم استبدال اللينك بكود . وتركت لكم الملفات فى الرابط ده . مرة مستخدما اللينك ومرة الكود فى ادخال البيانات للملف المغلق . و اليوم أقدم لكم كيفية جلب البيانات من 3 ملفات مغلقة دفعة واحدة وبضغطة زر واحدة ومن ثم ترحيلها وادخالها الى ملف مغلق آخر دون شعور المستخدم بذلك وهذا يتم بذات الطريقة السابقة . للأصدقاء من خارج المنتدى : على الميديا فاير من خلال الرابط التالى http://www.mediafire.com/download/gidslzjdssb2jii/copy__data_from_a_closed_excel_file__&_paste_it_in_a_closed_excel_file_by_mokhtar_(__3_).rar للأصدقاء فى المنتدى : تفضلوا الملفات فى المرفق التالى . أرجوا أن يفيدكم وتستمتعوا به تحياتى للجميع copy data from 3 closed excel file & paste it in a closed excel file by mokhtar ( 3 ).rar

بارك الله فيك أخي الحبيب الجموعي هكذا يكون العمل ويكون النشاط .. بالإضافة إلى وضع الكود في المشاركة يرجى تحميل المرفق من أول مشاركة ووضع الأكواد بعنوان مناسب ، وليكن العنوان مثلاً (تغيير عنوان الفورم) وعمل شرح لها بشكل مبسط . كما يرجى وضع الكود في الحدث المناسب حتى لا يختلط الأمر على الباحث فيما بعد بهذا الشكل مثلاً Private Sub UserForm_Initialize() UserForm1.Caption = ThisWorkbook.ActiveSheet.Name End Sub

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

أستاذي الفاضل /ياسر خليل عمل ممتاز بالتوفيق جزاك الله كل الخير

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

السلام عليكم ورحمة الله قم بترقيم طلبة الصف الأول بأرقام فردية وطلبة الصف الثالث بأرقام زوجية (مثلا) ثم قم بجمع رقمين أحدهما فردي وآخر زوجي في الطاولة نفسها (بطبيعة الحالة ولتسهيل ذلك نستعمل المعادلات)... بن علية

السلام عليكم أثناء تصفحي بالمنتدى وجدت موضوع مميز جدا والغريب أنني قمت بإضافة مشاركة للموضوع حتى يظهر الموضوع بالصفحة الأولى ، ولكنه لم يظهر ..ثم قمت بعمل مشاركة ثانية وعملت ريفرش للصفحة الرئيسية ولم يظهر أيضاً ... لا أدري ما السبب عموما هذا هو رابط الموضوع ... للاستفادة منه http://www.officena.net/ib/index.php?showtopic=36867&st=0

هلا و غلا بالاخ العزيز ياسر ... جزاك الله خيرا على كلماتك الطيبة اولا و على حسب علمي ان الدالة DateDif تعمل بشكل جيد في جميع اصدارات الاكسل و ان كان هناك مشاكل في Excel 2007 SP2 (ماعندي الاصدار لهذا ما اقدر أأكد) الا ان الدالة غير موثقة و لا تضهر ك Tipعند كتابتها في الخلية. ثانيا ال VBA لديها الدالة DateDIFF الا انها ليست بأمكانيات الدالة DateDif ... ولهذا اعتقد الدالة DateGap ممكن تكن بديل عن الدالة DateDIFF عند استخدامها مع VBA. تحياتي تحياتي

قمة في الابداع جزاك الله خيرا اخي الكريم الملف يعمل بشكل رائع

السلام عليكم تفضل اخي اعتقد هذا طلبك بالتوفيق student.rar

السلام عليكم اليك هذا النموذج /يمكنك البناء عليه في الصفحة الاولى اذا اردت ان تتعامل مع السماء فقط في الصفحة (sheet(1)2) الاسماء مع البيانات ترتيب ابجدي معدل.rar

أخي الكريم جرب في الخلية AC15 المعادلة بالشكل التالي : =IFERROR((U15-T15)/T15*100,"")

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

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

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

يا ابو تراب يا شيخ قل امين الله لا يحرمك الجنة انت ووالديك

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

اليك مثال عما تريده يمكنك انشاء رز لهذا الماكرو copaste exemple.rar

تفضل ملف الاستاذ طارق ممكن يفيدك جمع عدد ايام و عدد اشهر و سنوات مع التقريب.rar

وعليكم السلام جرب المرفق Sheet.zip

بارك الله فيك أخي عبد الله بولنوار وجزاك الله خير الجزاء يمكن استخدام الكود بهذا الشكل بود الحاجة للتحديد : Sub HideSpecificColumns() Range("B:B,D:D,F:F,H:H,J:J,L:L").EntireColumn.Hidden = True End Sub Sub ShowSpecificColumns() Range("B:B,D:D,F:F,H:H,J:J,L:L").EntireColumn.Hidden = False End Sub

لم تذكر الاعمدة التي تريد اخفاءها هذا مثال اخفاء.rar

هل تريد المطلوب مثل هذا توزيع طلبة.rar

أليك أخى ماطلبت البحث فى شيتين.rar

السلام عليكم ورحمة الله وبركاته تفضل أخي الملف المرفق قد تجد فيه ضالتك ، مع العلم أن الفورم تم تطويره من طرف أحد أعضاء المنتدى لاتنسى له بالدعاء بظهر الغيب له ولوالديه VLOOKON_With_No_Limitation.rar

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

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

العزيز يحياوي : تحية طيبة هنا كود للترحيل واشياء اخرى يمكن الاطلاع على التفاصيل في المرفق ( منقول ) واشكرك على حسن ادارة هذه المشاركة وفقك الله ياسر الحافظ كود ترحيل واشياء اخرى.rar