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

انسخ هذه المعادلة و الصقها حيثما تشاء: =AVERAGE($D$6:INDIRECT("D"&$B$4*48+5))

اتفضل اخى الكريم حل على السريع تحياتى 1232.rar

اخى الفاضل جرب الملف المرفق .. اكتب اى شئ بالعمود A ستجد التاريخ ادرج تلقائيا بالعمود B تحياتي DateInCells.rar

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

اخى الفاضل تفضل الملف المرفق .. اختر من القائمة المنسدلة السيارات المباعة ثم اضغط ترحيل المباع تحياتي DEMO.rar

السلام عليكم ورحمة الله تعالى وبركاته اولا بعد الحمد لله الذى تتم بنعمته الصالحات فسبحان الله الحنان المنان الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل له الحمد حمدا كثيرا طيبا طاهرا مباركا فيه له وحده الحمد كما ينبغى لجلال وجهه ولعظيم سلطانه ثانيا ادين بالفضل بعد رب العزة سبحانه وتعالى وللكثير من اساتذتى رواد هذا الصرح الشامخ فلولا الله ثم اساتذتى الكرام لما وصلت الى هذا الحد بعد كل الشكر والتقدير اهنئ نفسى واياكم بما وصلت اليه الموضوع بإختصار هو برنامج الصلاحيات والتحكم بالمستخدمين بالفعل أرهقنى موضوع الصلاحيات هذا لو كان اختياراً لتركته وما ترددت فى ذلك لكن تبقى الضرورة وحتمية العمل به هى المحرك الأول والأخير فكانت محاولات الإستماتة حتى إنى فى إحدى اللحظات توقعت أننى لن ولم أحاول البحث أو محاولة إنشاء الصلاحيات بعد هذه اللحظة إستعصى الأمر لدرجة أنني جربت نسبة 90 فى المئة من كل ما هو مقترح على النت لحل تلك المشكلة العويصة مشكلة الصلاحيات وكما لاحظت يعانى منها الكثير غيرى لكن من الله على سبحانه وتعالى بعلمه وفضله فتوصلت لبرنامج Users maker الإصدار الثانى الذى قيل عنه انه يعمل مع منتجات الاوفيس ابتداء من 2007 وحتى 2013 ولكن من وجهة نظرى البرنامج فقير وكنت دائما أقع فى المشاكل بسببه حتى قررت أن أفتح النسخة وأحاول التعديل عليها بما يتماشى ويتناسب مع متطلباتى وأظنها متطلبات اغلب المشاركين كما لاحظت من تساؤلاتهم وإليكم أقدم لكم البرنامج بإصداره الثالث من تعديلى الشخصى وإضافتى التى لم يسبقنى إليها أحد فحاولت تلافى الكثير والكثير من التعقيدات أترك لكم التجربة والتحليل وفى إنتظار الرد للعلم حافظت على حقوق المبرمج الأصلى للبرنامج بارك الله فى علمه الأستاذ القدير محمد مهند العبادى أتحدى وجود إصدار مشابه على الانترنت لما اطرحه عليكم الأن طبعا البرنامج حجمه كبير لن أستطيع إرفاقه عن طريق المرفقات ولذلك أطلب على استحياء من أساتذتنا الكرام المسئولين عن امور المنتديات بكل الحب والود والتقدير بعد تحليل البرنامج والتأكد من فعاليته بشكل جيد وخلوه من الأخطاء إن خلا فالكمال لله وحده إعادة رفع البرنامج على سيرفر المنتدى حتى يكون مرجع فمواقع الرفع المجانية غير مستقرة معلومات هامه جدا جدا جدا عن البرنامج بعد عمل اى برنامج خاص بكم من خلال هذه الاداة Users maker -Third Edition أولا -- من نموذج الدخول أضفت عدد اثنين مستخدمين لكل منهم صلاحيات خاصة وهم مخفيين لا يظهروا بالبرنامج إطلاقاً فى الوصع الطبيعى لعمل البرنامج المستخدم الاول مميزاته الدخول على لوحة تحكم صلاحيات المستخدمين البيانات للدخول اسم المستخدم / admin كلمة المرور / 2015 ثانياً -- المستخدم الثانى مميزاته الدخول على نموذج خاص لإلغاء تفعيل زر Shift أو تمكينه وكذلك إخفاء الجداول والإستعلامات وإظهارها البيانات للدخول اسم المستخدم / superadmin كلمة المرور / 2015 وفى النهاية إن كفيت ووفيت فمن فضل الله وأن ذللت وأخطأت فمن هوان نفسى وقلة حيلتى اسالكم بكل الحب والتقدير إن رأيتم منى خطأ فتجاوزوا عنه بحلم أو صححوه لى بعلم وفى النهاية أعتذر للإطالة جزاكم الله عنى كل الخير روابط تحميل اولا: موقع ...... ميديا فاير ........ إضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... ميديا فاير ........ إضغط هنا للتحميل mdb for Access 2000 - 2002 - 2003 ثانيا : موقع ...... بن الخليج ........ أضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... بن الخليج ........ إضغط هنا للتحميل mdb for Access 2000- 2002 - 2003 اسألكم الدعاء للأستاذ محمد مهند العبادى المبرمج ولوالديه بظهر الغيب كما أطلب منكم على استحياء أن تتذكرونى بدعواتكم الصالحات لوالدى واللهم كما جمعتنى بصحبتكم الطيبة فى الدنيا دون أن أساله اللهم لا تحرمنى منهخا فى الجنة أنا أسألك آمين ..آمين ..آمين أخوكم العبد الفقير إلى الله محمد عصام

اعزائي رواد المنتدى الفاضل اقدم لكم فكرة وطريقة في تحويل التاريخ الميلادي الى تاريخ ام القرى وهو الى حد ما التاريخ الهجري . وذلك باستخدام مكتبات الاكسل ! كما انه وعد مني للاخ والأستاذ أبو خليل وفي احد المناقشات وجب على الوفاء به ! وقد كانت هذه الفكرة طرحتها في احد المنتديات الشقيقة ولكن بدون مثال او تنفيذ . اترككم مع المثال املا الاستفادة منه وطرح آراؤكم ومقترحاتكم البناءة ! لكم خالص تحياتي Private Sub أمر4_Click() ''رمهان '' اوفيسنا ''abc_2_me@hotmail.com '' هدية للاخ ابو خليل Set xl = CreateObject("Excel.Sheet") xl.Application.Range("A1").Value = CDate(t2) xl.Application.Range("A1").NumberFormat = "[$-1170000]B2yyyy-mm-dd;@" t1 = xl.Application.Range("A1").Text xl.Application.Quit Set xl = Nothing End Sub رمهان - ام القرى.rar

العنوان يدل على الموضوع لا تكلف نفسك بالترتيب الابجدي او الرقمي بعد اليوم اكسل يقوم بالواجب autosort.rar

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

الأخ الفاضل أحمد تفضل المرفق التالي .. Create 400 Sheets.rar

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

الاستاذ الفاصل Ibn_eygpt جزاك الله خير الجزاء هذا المطلوب تماما اشكرك مرة اخرى تقبل تحياتي

اخى الفاضل لإثراء الموضوع وبعد إذن أخى الحبيب محمد الريفي مرفق الحل بالأكواد تحياتي Book1.rar

اخى الفاضل بنفس المعادلة بامكانك اضافة شرط آخر لتصبح كالتالي .. مرفق الملف للتوضيح =SUM(IF(FREQUENCY(IF($A$2:$A$1000=$E2,IF($B$2:$B$1000=$F2,MATCH($C$2:$C$1000,$C$2:$C$1000,0))),ROW($C$2:$C$1000)-ROW($C$2)+1),1)) تحياتي count2.rar

السلام عليكم مرفق الملف مع أول طلبين إستحداث صفحات الموظفين والترحيل إليها بالضغط علي زر Shift مع امكانية حذف البيانات بعد الترحيل بالضغط علي الزر الأحمر تفضل المرفق New_sample.rar

وياليت الطريقة كتابياً اكون مشكور لك

شكراً جزيلا والله يعطيكم الصحة والاجر

السلام عليكم تفضل أخي الحل بالكود يبقي عليك فقط التنسيق ليناسب ذوقك الكود هو دالة استحدثتها لتناسب الحالة وهي Mrk(a) حيث تكتب Mrk وتفتح القوس وتشير بالماوس علي الدرجة فيعطيك الدرجة المعدلة أو لايعدلها هذا هو الكود Function Mrk(a As Range) As Variant If a.Value >= 50 Or a.Value < 45 Then Mrk = a.Value: GoTo 10 njh = Cells(a.Row, 18): rsb = Cells(a.Row, 19) Dim sbj(9) For c = 2 To 9 sbj(c - 1) = Cells(a.Row, c) If sbj(c - 1) < 50 And sbj(c - 1) > 44 Then n_rf = n_rf + 1: t_rf = t_rf + (50 - sbj(c - 1)): n = n + 1 Next c If t_rf <= 5 And rsb - n_rf < 3 Then Mrk = 50: GoTo 10 Mrk = a.Value 10 End Function ومرفق الملف به الكود تغير شرط القرار3.rar

انظر أخى المرفق حل بالمعادلات DEMO_By Yasser.zip

مشكووووووووووووووووووووور جدا هو المطلوب بالضبط .... اشكرك بشده

تم رفع الملف مره اخرى ارجو ان يكون المطلوب Copy of Ramy sheet.rar

بعد اذن اخى الحبيب الصقر(الاستاذ حسام عيسى) Copy of Ramy sheet.rar

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

اخى الكريم بالتاكيد ممكن واكثر من معادله ممكن ارفق ملفك للعمل علية تقبل تحياتى

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

تفضل اخى الكريم هذا الكود هو اللى موجود بالملف المرفق Private Sub TextBox1_Change() lr = Range("B" & Rows.Count).End(xlUp).Row ActiveSheet.Range("$A$7:$B$" & lr).AutoFilter Field:=2, Criteria1:="=" & ActiveSheet.TextBox1.Text & "*" End Sub وتم تعديله الى Private Sub TextBox1_Change() LR = Range("B" & Rows.Count).End(xlUp).Row ActiveSheet.Range("$A$7:$B$" & LR).AutoFilter field:=2, Criteria1:="*" & ActiveSheet.TextBox1.Text & "*" End Sub لاحظ الفرق جرب المرفق تقبل تحياتى EOTP.zip

السلام عليكم اتفضل اخى الكريم الحل فى صفحة اجمالى الفترات وصفحة التقرير الاجمالى مسئول-الوقود.rar

اخي الحبيب جزاك الله كل خير اعتذر ع ن التأخير فى الرد "مشكلة فى الانترنت" تسلم ايدك علي الكود المميز ونشكرك علي حسن التعاون

أخى الحبيب " mounirf " أولا - مرحبا بك عضوا جديدا فى منتدى أوفيسنا وأتمنى لك الإفادة والأستفادة معنا إن شاء الله ثانيا - أتمنى مستقبلا أن يكون سؤالك مشفوع بمرفق يحتوى على المطلوب وبه المتوقع كنتيجة " أى النتيجة التى تتوقعها من سؤالك " لأن هذا سيحدد بشكل دقيق ماالذى تريدة ، مما يسرع بالإجابة وبشكل دقيق وإذا كنت لاتدرى كيفية عمل ذلك 1- قم بعمل المطلوب على ملف إكسيل 2- ثم قم بضغطة ببرنامج " winrar " 3- ثم إضغط على " المحرر الكامل " سوف يقوم بنقلك لصفحة أخرى 4- ستجد كلمة " Browse " منها سوف تنتقل للمكان الذى وضعت به ملفك الذى قمت بعملة وضغطة " winrar " 5 - ثم قم بالضغط على " رفع الملف " وبذلك سوف تجد ملفك قد رفع بعد الضغط على " إضافة رد " إذن الصورة التى قمت برفعها غير كافية للعمل عليها قم بعمل ملف بالطريقة المشروحة ورفعها ستجد الكثير قد سارع لتقديم العون فى الإجابة لأنى لاأؤمن بهذه الصور حتى لوكانت الأجابة بسيطة ومباشرة من وجهة نظر البعض تقبل تحياتى

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

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

اختى الفاضلة جربي الملف المرفق تحياتى استمارة128.rar

السلام عليكم ورحمة الله أخي الكريم، أكواد الطباعة والأزرار موجودة في الأصل ولم أقم إلا بتعديل طفيف على كود "طباعة كل الشهادات"، ثم ربط الأزرار بهذه الأكواد... أخوك بن علية الملف المرفق : ‫القالب - نسخة 2.rar

جزاك الله كل خير أخي رفيع لدعواتك الكريمة جزاك الله كل خير أخى خيماوي وجمعه مباركة عليكم جميعا احبتى في الله تحياتي

الأخ الكريم جرب الملف التالي .. Remove Dupicates Based On Dates.rar

أخي أكرم جرب الملف التالي قم بكتابة اسم المجلد في الخلية A1 واضغط زر الأمر وحدد مكان إنشاء المجلد Create Folder Using File Dialog.rar

ارجو ان يكون الشرح واضح واذا استفدت ارجو ان لا تنساني من داعئك الصالح http://youtu.be/p2dsbTlK8m4

طبعا ممكن أخي وبكل سهولة دون الحاجة إلي شئ وذلك عن طريق الأتي: 1- نقوم بتظليل الورقة التي نريد حماية العمود بها بالكامل بما فيها العمود المراد حمايتة. 2- في أي مكان نقوم بعمل كليك يمين ثم نختار ( format cells). 3- ستظهر لنا قائمة نختار منها (protection) سنجد عنوانين (locked) و( hidden ) 4 - إدا كان بهم إي علامات يتم إزالتهم 5- ثم نذهب إلي العمود المراد حمايتة ونقوم بتظليلة بالكامل إيضا ونكرر نفس الخطوات من 1:3 أما الخطوة الرابعة سنعمل هنا العكس أي سنعيد العلامات إلي (locked) و( hidden ) أونكتفي ب ( locked ) فقط إذا لم يكن بالعمود معادلات نريد إخفائها أما لو يحتوي علي معادلات يفضل التعليم عليهم الأثنان 6- نذهب إلي قائمة ( tools) ثم نختار ( protection) ثم نختار (protect sheet ) ونضغط عليها ستظهر قائمة إما نضغط ( ok ) فقط لو أردنا حماية العمود دون باسورد أونكتب (الباسورد الذي نريده في المستطيل العلوي) ثم سيطلب التأكيد علي الباسورد نكررة مرة أخري وهكذا تمت حماية العمود من العبث في محتواة أرجو أن يكون الأمر قد إتضح لك ويكون المطلوب وأنا تحت أمرك في أي إستفسار

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