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

أخي الكريم نور وحيد إليك الملف التالي إثراءً للحل Multi Data Validation List YasserKhalil.rar أخي الحبيب ياسر العربي حلك رائع جداً ..إضافة بسيطة لحلك هو إمكانية جعل القوائم كلها مطاطية أي غير ثابتة إليك حل المتميز ياسر العربي بإضافة بسيطة وهي جعل القوائم ديناميكية Multi Data Validation List Araby.rar

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

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

من منا من لم تحدث له هذه المشكلة وهي تعليق قاعد البيانات في الذاكرة فلا تفتح ولا تقفل مما يضطر البعض إلى إعادة تشغيل الجهاز إليكم هذه الطريقة البسيطة لتجاوز هذه المشكلة 1- اضغط على ctrl+Alt+Delet فيظهر أمامك إطار إدارة المهام افتح على تبويب التطبيقات كما في الصورة اليمنى ثم أشر عل قاعدة بياناتك فستلاحظ أن زر إنها المهمة أصبح فعالا فانقر عليه لإنهاء تشغيل القاعدة . 2- إذا لم تجد قاعدة بياناتك في هذا التبويب فافتح تبويب العمليات كما في الصورة اليسرى ولاحظ الاسم الذي تم التأشير عليه فهذا الاسم خاص بقواعد بيانات أكسس أشر عليه ثم اضغط انهاء العملية في الأسفل . مسألة صغيرة أرجو أن يكون نفعها أكبر ،،،

السلام عليكم اليكم طريقتي بدون عنصر الصورة ، وانما وضعت الصورة على الزر مباشرة 1. عملت صورة مائلة الى السواد لكل الازرار ، حيث سنستفيد منها عند الضغط على الزر حتى تعطينا الشعور بضغطة الزر وكتبت الكلمة التي يجب ان تكون على الزر ، حيث ان اعدادات الزر يأخذ احدهما: الكلمة/النص او الصورة ، ولا يأخذهما معا: . 2. هذه اعدادات الزر ، وسنجعل الصورة على خاصية Picture للزر: . وهذا كود ثلاثة احداث تقوم بالعمل: Option Compare Database Dim image_Path As String Private Sub cmd1001_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.cmd1001.Picture = image_Path & "\01-1.bmp" End Sub Private Sub cmd1001_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.cmd1001.Picture = image_Path & "\01.bmp" End Sub Private Sub Form_Load() On Error GoTo err_Form_Load image_Path = Application.CurrentProject.Path & "\icons" Me.cmd1001.Picture = image_Path & "\01.bmp" Me.cmd2005.Picture = image_Path & "\02.bmp" Me.cmd3008.Picture = image_Path & "\03.bmp" Exit Sub err_Form_Load: If Err.Number = 2220 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . والنتيجة: . جعفر 235.Desktop.zip

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

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

ربما كان المطلوب Aziz2 salim.rar

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

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

الف مبروك للاخوة الاعزاء .. اتمنى لهم التوفيق

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

الف الف مبروك عقبالنا لما نتظور ونصبح امثالهم

الف مبروك للاخوة الاعزاء .. اتمنى لهم التوفيق

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

السلام عليكم ورحمة الله وبركاته في احد البرامج التي اشتغلت عليها ، كان المطلوب احد الاشياء التالية مثلا: مدة الخدمة ، من تاريخ التوظيف الى اليوم ، إضافة خدمة (سنوات/اشهر/ايام) الى تاريخ التوظيف ، خصم مدة (سنوات/اشهر/ايام) من تاريخ التوظيف ، فبدل الحساب اليدوي ، عملت نموذج لآلة حاسبة ، للتواريخ النموذج frm_Date_Diff : حساب الفرق بين تاريخين: 1. ادخل التاريخ الاكبر في الحقل 1 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، 2. ادخل التاريخ الاصغر في الحقل 2 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، وعند النقر المزدوج على 1 او 2 ، فان القيم سيتم حفظها في الحقول 11 و 22 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير التواريخ ، بينما تحتفظ بأصل التواريخ في 11 و 22 ، إضافة / طرح (سنوات / اشهر / ايام) من تاريخ: 1. احذف التاريخ من الحقل 2 ، 2. ادخل سنة/شهر/يوم الى الخانات 3 و4 و5 ، 3. حسب الحاجة ، اختر 6 لإضافة السنة/شهر/يوم الى التاريخ الاول ، وسترى النتيجة في الحقل 2 ، 4. حسب الحاجة ، اختر 7 لطرح السنة/شهر/يوم من التاريخ الاول ، وسترى النتيجة في الحقل 2 ، وعند النقر المزدوج على 3 او 4 او 5 ، فان القيم سيتم حفظها في الحقول 543 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير السنوات/الاشهر/الايام ، بينما تحتفظ بالاصل في 3 و4 و5 وهنا مثال متحرك: جعفر 301.Dates_Calculations.mdb.zip

Protect and maintain databases حماية و صيانة قواعد البيانات 1. ضغط و اصلاح قاعدة البيانات تساعدنا في تحسين أداء قاعدة البيانات و اصلاح الملف عند حدوث المشاكل. 2. تشفير قاعدة البيانات بتطبيق كلمة مرور لتقييد الوصول, فقط المستخدمون الذين يعرفون كلمة المرور يستطيعون الوصول الى قاعدة البيانات. 3. العمل مع النسخ الاحتياطي. 4. دمج قواعد البيانات. 5. تقسيم قاعدة البيانات و هي خطوة تطبق خصيصا للمشاركة مع عدة مستخدمين. ------------------------------------------------------------------------- ------------------------------------------------------------------------- تحميل ملف PDF https://www.dropbox.com/s/00e1yxc9rf60rlo/Lesson14.pdf?dl=0 تحميل ملف البوربوينت https://www.dropbox.com/s/xz2wt4p4y4ahvxi/Lesson14.ppsx?dl=0 -------------------------------------------------------------------------

بورك لك في الموهوبة وشكرت الواهب وبلغت رشدها ورزقت برها الف مبروك تترباء في عز والديها

لم أفهم الموضوع بشكل كامل ولكن هذه محاولة المستخدم : ADMIN المرور : 3333 صلاحية دخول مع حفظ التغييرات1.rar

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

آسف لم ألاحظ الخطأ سوى الآن حضرتك لحظ السطر الأول بالكود ستجد اسم مربع النص ( نص 184) وليس a11 1- غير اسم مربعى النص الى a11 & a11Hijri كما تريدهما أولا 2- أرجع الجملة التى حذفتها من قبل - .text- كما كانت ووافنا بالنتيجة

تفضل أستاذ وائل تم التعديل على مرفقك - بشرط أن يكون مجلد الأيكونات موجود مع البرنامج بمكان واحد حاول تغير موضع البرنامج ووافنا بالنتيجة Desktop.rar

الف الف مبروك للاساتذه الكرام أ / حسام عيسى أ / ياسر العربي أ / إبراهيم أبو ليلة ومن نجاح الى نجاح

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

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

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

مشكور اخي سليم على الحل الرائع ومرفق حل بسيط اخر Aziz2.rar

معالجة التكرار هذه فكرة ظريفة ومادام المسألة هكذا فيمكنك اختصار الارقام الى نصف العدد او اقل اما ثبات الارقام فيمكن تطبيقها بالاستعانة باستعلام بحيث يكون هو من تجرى عليه العملية بعد وضع المعيار المناسب للتعامل مع الحقول الفارغة فقط : وهو ماتم عمله من خلال الكود ادناه انسخه والصقه بدلا من الاول : Dim db1 As DAO.Database Dim rs As DAO.Recordset Set db1 = CurrentDb Set rs = db1.OpenRecordset("SELECT table1.nox, table1.nameX, table1.id, * " & vbCrLf & _ "FROM table1 " & vbCrLf & _ "WHERE (((table1.id) Is Null))") If rs.RecordCount > 0 Then rs.MoveFirst Else Exit Sub End If Do While Not rs.EOF rs.Edit rs!id = Format(Int(Rnd * 123456789), "0000000") rs.Update rs.MoveNext Loop rs.Close: Set rs = Nothing

كل الشكر والتقدير للاخوة في تقديم المساعدة واشكر لكم روح التعاون التى اراها وجزاكم الله كل الخير المرفقات ___________________ شرح المتغيرات والثوابت.rar شرح كيفية ربط الفيجوال دوت نت بالاكسيل والتعامل معه.rar تشغيل البرنامج ولمحة عن الشاشة الرئيسية.rar تطبيق اول مثال على الفيجوال دوت نت آله حاسبة.rar تطبيق مثال آله حاسبة بكود اخر وتوضيح شكل محرر الاكواد.rar for next.rar

وعليكم السلام text2 = DateAdd("yyyy", 60, text1)

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

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

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

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

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

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

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

أو Database2.rar

تفضل Database2.rar

السلام عليكم ورحمة الله اولا / الشكر الجزيل للاخ الفاضل الاستاذ سليم حاصبيا --------------------------------------------------------------------------- ثانيا / بعد إذن الاستاذ سليم المشكله في اصطياد السمكة يا استاذ ياسر ليس شرح الكود لانه حتى لو شرح الكود ينقصه من ان الكود مبني علي خطوات مسبقه إليكم الخطوات المسبقة محاوله مني: اولا / نقوم بتعريف المدى اللي بالكود والمسمى Prot_Range نذهب إلي الشيت المسمى Sheet1 ثم من شريط الادوات نذهب إلي صيًغ ثم إدارة الاسماء ثم جديد ونضع الاسم Prot_Range ونشير للخلايا أي نحدد الخلايا حسب رغبتنا في تطبيق العمل عليها وهنا في عمل الاستاذ سليم اشار للخلايا من A1 إلي Z255 ثم موافق خلاص إنتهينا من تسمية النطاق او المدى.والآن يأتي دور الاكواد نذهب لمحرر الاكواد الخاص بالصفحة Sheet1 عام أي في ال General ونضع هذا الإجراء : 'xxهنا نقوم بتسمية إجراء ونسميه اي إسم اي حرف وهنا إسمه Sub xx() ' salim يقوم بإلغاء الحماية من علي الصفحة النشطه والتي كلمة المرور الخاصة بها هي ActiveSheet.Unprotect "salim" إذاً' Prot_Rang إذا لم يتقاطع الإختيار بمدى النطاق المسمى If Not Intersect(Selection, Range("Prot_Range")) Is Nothing Then ' هنا الإشارة للمجال المختار وهو مدى النطاق في الصفحة النشطة بالخاصية With With ActiveSheet.Range("Prot_Range") ' تنشيط إقفال الخلايا .Cells.Locked = True 'عدم إقفال الخلايا الفارغة التي لايوجد بها بيانات .Cells.SpecialCells(xlCellTypeBlanks).Locked = False ' إغلاق الخاصية With End With ' يقوم بحماية الصفحة وعمل كلمة المرور salim ActiveSheet.Protect "salim" End If ActiveSheet.Protect "salim" End Sub ثم نضع الكود التالي في حدث تغيير الصفحة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) ' إذا لم يتقاطع الهدف بالمدى وان نتائج الهدف يساوي واحد ‘ذاً If Not Intersect(Target, Range("Prot_Range")) Is Nothing And Target.Count = 1 Then ' عدم تمكين تطبيق الاحداث Application.EnableEvents = False 'هنا بعد إدخال اي بيانات تأتي رسالة تفيد حسب الموضح في الرسالة mess = MsgBox(" بعد ادخال البيانات سوف يتم اقفال هذه الخلية" & vbNewLine & _ "لا يمكن تغييرها الا من خلال كلمة السر في حال الموافقة اضغط نعم", vbYesNo, "تنبيه") ' عند الموافقة If mess = vbYes Then 'xxهنا يتم إستدعاء الإجراء والمسمى xx ' عند عدم الموافقة Else ' تراجع عن التطبيق Application.Undo End If End If ' تمكين تطبيق الاحداث Application.EnableEvents = True End Sub

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

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

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

تفضل اخي المثال المرفق ويمكنك من خلاله البحث عن عدد تكرار حرف او سلسلة نصية ضمن نص تحياتي,,, عدد الاحرف ضمن نص.rar

قاعدة IF تستوعب عدد كبير من الشروط وبدون آند أو أور تصل إلى 14 شرط وفى حالة IF and , IF OR قد تصل إلى أضعاف هذا الرقم وهناك ملف للأخ الكبير الخبير خبور خير يوضح العدد الكبير من الشروط الذى يمكن أن تعمل قاعدة إف بها

شكرا وفقك الله ^_^

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

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

أخى الفاضل راجع الشروط مرة اخرى الشروط من 10 إلى 20 و من 30 إلى 40 من 50 إلى 60 يوجد فراغات فى الشروط

السلام عليكم أخي الكريم صياغتك للمعادلة غير سليمة في حالة وجود شرط مثل OR أو AND فإنك لابد أن تضع مكوناته بين قوسين ، راجع هذه المعادلة مع اعتبار الفاصلة او الفاصلة المنقوطة حسب جهازك =IF(OR(J23<L23,J23>L22),"ttt",IF(OR(J23>L25,J23<L24),"mmm",IF(OR(J23>L27,J23<L26),"yyy"))) أو =IF(OR(J23<L23;J23>L22);"ttt";IF(OR(J23>L25;J23<L24);"mmm";IF(OR(J23>L27;J23<L26);"yyy")))