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

أخي الكريم نور وحيد إليك الملف التالي إثراءً للحل 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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه السلام عليكم ورحمة الله وبركاته... أقول لولدي الذي يحن ويتلهف قلبي لرؤيته ولو للحظة والذي أكرمني الله بحفيدة منه حيث لم أشهد عرسه ...أسماها { إسراء} الحمد لله الذي رزقك زوجة ولوداً، وجعلك ممن تخلفه ذريته. فكم من رجل عقيم لا يولد له ولد، وكم من امرأة كذلك. فهذه نعمة عظيمة { الْمَالُ وَالْبَنُونَ زِينَةُ الْحَيَاةِ الدُّنْيَا } [الكهف:46] ولهذا فاستقبل عطية الله عز وجل بفرح وسرور وشكر وحمد، ذكراً كانت هذه العطية أم أنثى. فيكفي أنها سليمة الأعضاء، مكتملة النمو، خالية من الأمراض، فتبارك الله أحسن الخالقين الذي وهب وأعطى بمنه وفضله: {يَهَبُ لِمَنْ يَشَاءُ إِنَاثاً وَيَهَبُ لِمَن يَشَاءُ الذُّكُورَ (49) أَوْ يُزَوِّجُهُمْ ذُكْرَاناً وَإِنَاثاً وَيَجْعَلُ مَن يَشَاءُ عَقِيماً} [الشورى:50،49] وقد وُلد للنبي r أربع من البنات - رضي الله عنهن - ولما ولد لإمام أهل السنة أحمد بن حنبل رحمه الله بنت قال: {الأنبياء آباء البنات، وقد جاء في البنات ما علمت } أي من فضل تربيتهن القيام عليهن. وكُره البنات من عادات الجاهلية؛ أما في الإسلام فإنهن من الأبواب الموصلة إلى الجنة قال : r {من عال جاريتين حتى تبلغا، جاء يوم القيامة أنا وهو هكذا} { وضم أصبعيه} [رواه مسلم]. بورك لك في الموهوبة وشكرت الواهب وبلغت رشدها ورزقت برها وأرجو الله أن يجعل ذرياتكم صالحين ناصحين بارين والسلام عليكم ورحمة الله وبركاته

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 -------------------------------------------------------------------------

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

تفضل اخي لعله المطلوب قائمة منسدلة متعددة المصادر.rar

جواب المهندس ياسر فيه الكثير من الابداع والحكمة شكرا لك وباركك الله

بارك الله فيك أخي الفاضل أحمد على المعلومة التي قد تغيب عن أذهان الكثيرين بالفعل أي خلل في إدخال البياانات في كثير من الأحيان يؤدي إلى مشاكل في التعامل مع الملف والأكواد تقبل تحياتي

وأبو الشباب بعد والنِعم ، والسبعة انعام ، وانا أشهد على هذا تم غالي والطلب رخيص بس بدل ما اخلي بياناتي في الرابط اعلاه ، والقليل اللي بعرف عنه ، انا بخلي هذه المعلومات في ملفي الشخصي: http://www.officena.net/ib/profile/142414-jjafferr/?tab=field_core_pfield_25 جعفر

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

السلام عليكم ألف ألف مبروك للإخوة الأفاضل : حسام " الصّقر " ياسر العربي إبراهيم أبو ليله بارك الله فيكم جميعا وجزاكم الله خيرا

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

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

جيت على حد كدا انا ولا الكلام في محله

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

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

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

السلام عليكم انا عاجز عن الشكر للاخ khmb ولاعضاء الجروب واتمني لكم مزيد من النجاح المستمر

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

انا لم افهم سؤالك وان كنت تقصد shortcut فهذا بسيط خصائص النموذج -تبويب غير ذلك -اختر (لا) قائمة مختصرة

أخي الكريم رميلي تم فك حماية المصنف وعمل معادلة بسيطة جداً تعتمد على الخلية N1 في ورقة العمل (صفحة المعلومات) المسماة 333 إليك الملف المرفق عله يؤدي الغرض ..تم إخفاء العمود N في ورقة المعلومات (قائمة التلاميذ) المسماة 333 تقبل تحياتي CERTIFICAT.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

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

هلا باخي ابوعبيد ان شاء الله ستحل عملت لك بعض التغييرات بحيث تعمل و الملف مشارك ...جرب الكود هذا وخبرنا كلمة السر 111 كما في الملف المرفق With ActiveWorkbook Application.DisplayAlerts = False .ExclusiveAccess Application.DisplayAlerts = True ActiveSheet.Unprotect 111 [A2] = [A1] ActiveSheet.Protect 111 Application.DisplayAlerts = False .KeepChangeHistory = True .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared Application.DisplayAlerts = True End With تشغيل ماكرو في ملف مشارك.zip

السلام عليكم ورحمة الله وبركاته ^_^ اخواني حاولت ان اضيف عدة شروط الى الــ if ولاكن لم يقبل الاكسل ذالك لماذا هل الخللل في المعادلة وطريقتي في صياغتها ام ان الاكسل لا يدعم الامر هذا شاكر لكم وضحت لكم الجدول والمعادلة في المرفقات 999.rar

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

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

وفيك بارك نعم أخي بإمكانك تكتب الرقم في القائمة المنسدلة وتظهر المعلومات ... ومرفق مثال آخر 111.rar

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

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

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

جرب هذه المعادلة: =IF(J23<=L23;"ttt";IF(J23<=L25;"yyyy";"mmm")) والحل في المرفق 999-1.rar

السلام عليكم أخي الكريم صياغتك للمعادلة غير سليمة في حالة وجود شرط مثل 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")))