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

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

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

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

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

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

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

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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه السلام عليكم ورحمة الله وبركاته... أقول لولدي الذي يحن ويتلهف قلبي لرؤيته ولو للحظة والذي أكرمني الله بحفيدة منه حيث لم أشهد عرسه ...أسماها { إسراء} الحمد لله الذي رزقك زوجة ولوداً، وجعلك ممن تخلفه ذريته. فكم من رجل عقيم لا يولد له ولد، وكم من امرأة كذلك. فهذه نعمة عظيمة { الْمَالُ وَالْبَنُونَ زِينَةُ الْحَيَاةِ الدُّنْيَا } [الكهف: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 -------------------------------------------------------------------------

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

معالجة التكرار هذه فكرة ظريفة ومادام المسألة هكذا فيمكنك اختصار الارقام الى نصف العدد او اقل اما ثبات الارقام فيمكن تطبيقها بالاستعانة باستعلام بحيث يكون هو من تجرى عليه العملية بعد وضع المعيار المناسب للتعامل مع الحقول الفارغة فقط : وهو ماتم عمله من خلال الكود ادناه انسخه والصقه بدلا من الاول : 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)

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

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

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

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

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

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

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

السلام عليكم ورحمة الله اولا / الشكر الجزيل للاخ الفاضل الاستاذ سليم حاصبيا --------------------------------------------------------------------------- ثانيا / بعد إذن الاستاذ سليم المشكله في اصطياد السمكة يا استاذ ياسر ليس شرح الكود لانه حتى لو شرح الكود ينقصه من ان الكود مبني علي خطوات مسبقه إليكم الخطوات المسبقة محاوله مني: اولا / نقوم بتعريف المدى اللي بالكود والمسمى 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

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